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Introduction 





Vous êtes assis dans un fauteuil largement capitonné qui 
vibre à peine. Brusquement vous sentez une secousse et 
votre écran vidéo qui était noir, vous montre maintenant le 
module de commande lunaire qui s'éloigne. Il va continuer à 
tourner autour de la lune, à deux cent miles au-dessus de 
vous, pendant que vous poserez votre LEM et explorerez la 
lune. Sur votre écran vidéo, vous voyez que vous commencez 
à pencher. Immédiatement, vous appuyez sur le bouton de 
votre manche à balai de droite, pour faire donner une brève 
poussée aux fusées de stabilisation tribord. Quelques brèves 
impulsions à droite, à gauche puis encore à droite. Votre 
écran vidéo montre que l'engin est stabilisé et se dirige régu- 
lièrement, bien qu'un peu vite, vers la surface lunaire. Terro- 
risé, vous réalisez que vous avez passé un temps fou à vous 
stabiliser. Aussi déclenchez-vous la rétro-fusée à pleine puis- 
sance. L'écran est obscurci par les flammes et vous vous 
branchez sur un écran d'ordinateur qui vous montre la posi- 
tion de votre vaisseau approchant la lune. Vous arrivez à ra- 
lentir l'engin, mais vous vous dirigez vers la paroi d'un cratère. 
Vous ne pouvez plus rectifier la trajectoire. Vous repassez sur 
écran vidéo et comptez sur la chance. Malheureusement les 
parois du cratère sont à-pic, et une jambe du LEM touche 
avant les autres. L'engin se renverse. A cet instant le Contrôle 
de Mission à Houston vous adresse un message radio « Télé- 
métrie au sol rend compte d’avaries sérieuses. Vous avez 
13 jours d'oxygène. Information sur tentative de secours suit. 
Gardez votre sang-froid ». 

Vous poussez un autre bouton sur la console et l'écran s'é- 
claire, « Simulation d’Atterrissage Lunaire achevée. On re- 
commence ? Vous vous renversez dans votre fauteuil, les 
mains moites de transpiration. Vous tapez « Non. Le Foot- 
ball ». Un arbitre apparaît sur l'écran. Il se tourne vers vous et 
demande « Pile ou Face ? » 

Tiré par les cheveux ? Pas du tout. Techniquement tout ce- 
la est possible aujourd'hui. Sur le plan économique, il faudra 
encore quelques années avant que les systèmes ayant toutes 
ces possibilités soient à la portée du consommateur moyen. 
Mais dès maintenant quelques jeux stupéfiants peuvent tour- 
ner sur les ordinateurs individuels existants. C'est là tout le 
sujet de ce livre : des jeux pour les microordinateurs indivi- 
duels, pour les minis, pour les systèmes de temps partagé et 
même pour les grosses « bécanes », en bref, pour tout ordi- 
nateur parlant BASIC. 

Les jeux sur ordinateur ne sont pas un phénomène nou- 
veau. En 1952, peu de temps après l'apparition des premiers 
ordinateurs commerciaux, A.L. Samuel, d'IBM, écrivit un pro- 
gramme de jeu de dames sur IBM 701. L'idée sous-jacente 
était que l’on pourrait beaucoup apprendre sur le cerveau hu- 
main, en en simulant le fonctionnement sur ordinateur. C'est 
la même raison qui poussa, quelques années plus tard, Ne- 
well, Shaw et Simon de la Rand Corporation, à écrire le pre- 
mier programme d'échecs pour ordinateur. Mais même pour 
les non-spécialistes dans le domaine de l'intelligence artifi- 
cielle, ces programmes s’avérèrent très amusants comme 
jeux, bien qu'ils ne fussent pas des joueurs d'échecs ou de 
dames de toute première force. 

Mais tandis que ces programmes faisaient partie de projets 
de recherche, un groupe beaucoup plus important de per- 
sonnes écrivait en cachette des programmes sur les ordina- 
teurs de leurs employeurs et y jouaient à l'heure du déjeuner 
et en dehors des heures de travail. Il y avait deux ou trois de 
ces fanatiques, quelquefois davantage, pour chaque site in- 
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formatique, quelle qu’en fut l'importance. L'arrivée des minis 
et des réseaux de temps partagé, au début des années 60, 
développa cette communauté de fanatiques et en 1966 ils se 
rencontraient dans différentes réunions professionnelles où ils 
tiraient des plans pour un tournoi d'échecs. 

Les plus passionnés, ceux qui avaient véritablement le feu 
sacré, étaient impliqués dans Spacewar. A l'origine, écrit par 
des gens du MITEE Department en 1961-1962, sur 
DEC PDP-1, le premier mini, Spacewar donna naissance à 
une communauté de fanatiques qui y jouèrent, le modifièrent 
en l’expérimentant et en l'améliorant. 

« Ah, Spacewar. A tout instant de la nuit, des centaines 
d'informaticiens, sortis d'eux-mêmes, rivés à leurs écrans, en- 
gagés pendant des heures dans l'espace dans des combats 
spatiaux sans merci, abimant leurs yeux, engourdissant leurs 
doigts à force d'enfoncer frénétiquement des touches, abat- 
tent leurs amis avec jubilation en dépensant le coûteux temps 
machine de leurs employeurs. Oui, quelque chose de fonda- 
mental est en train de se passer. » (Stewart Brand dans 
Il Cybernetic Frontiers.)* 

Fait n° 1 : 10 octobre 1972. Le PDP-10 du Laboratoire AI de 
Stanford est réservé à partir de 20 h 00 aux « Tournois Inter- 
galactiques de Spacewar ». 

Fait n° 2 : octobre 1976. Cromemco annonce Spacewar sur 
vidéo pour le 8080. Prix du programme sur ruban perforé 
15 dollars. 

Concrètement, ce que ces deux faits signifient est qu'en 
l'espace de quatre courtes années, Spacewar qui nécessitait 
l'utilisation d'un ordinateur de plusieurs millions de dollars, 
était devenu un jeu que l'on pouvait mettre en œuvre sur un 
ordinateur individuel de 1 000 dollars. 

Qu'arrive-t-il, lorsque les portes du temple s'ouvrent et que 
le culte des fanatiques se répand dans les moindres mai- 
sons ? Evidemment, nous ne le savons pas encore, car les 
portes du temple ne sont ouvertes que depuis peu. Néan- 
moins, il semble bien que la même génération de gosses qui 
ne sait plus calculer à la main depuis l'apparition des calcula- 
trices de poche, pourrait bien imaginer qu'un poste de télévi- 
sion pourrait un jour leur fournir des informations interactives 
plus à leur goût qu'une simple image passive. 


A propos de ce livre 





Jeux d'Ordinateur en Basic : Edition pour microordinateurs 
est une refonte complète de mon premier livre, 101 Basic 
Computer Games, publié en 1973 par Digital Equipment Cor- 
poration. Dans le livre initial, il y avait six versions différentes 
de Basic. Les programmes du présent livre sont tous en Basic 
Microsoft. Plusieurs programmes n'ont pu être convertis en 
Basic Microsoft ou ne valaient pas la peine de l'être. lIs ont été 
supprimés et remplacés par d'autres. 

Je rends hommage à ceux d’entre vous qui, partant du pre- 
mier livre, armés de patience et de loupes grossissantes, ont 
déchiffré des listings quasiment illisibles pour en tirer des pro- 
grammes qui fonctionnent. C'est une tâche qui, avec cet 
ouvrage, devrait être considérablement facilitée. 


David H. Ahl 
Septembre, 1978 


* Stewart Brand, /! Cybernetic Frontiers, New York, Random House, 1974. 


Le langage 


Basic 


La plupart des jeux de ce livre sont écrits sur BASIC Microsoft 
8080, (BASIC Altair MITS, Rev. 4.0) et ont été testés sur un 
Altair 8800 comportant 16 K de mémoire. Ce qui suit est une 
description de ce BASIC, pour simplifier la conversion en 
autres BASIC. Toutes les exceptions du BASIC « normal » 
sont transcrites. 


Les exécutions des jeux de la version française ont été faites 
sur BASIC 5.0 sur microordinateur Cromemco CS3. 


CHRS(X) Convertit le code ASCII en un carac- 
tère. CHR$(65) renvoie « A», etc. 
CHR$(7) renvoie la sonnerie. 

COS(X) Cosinus 

EXP(X) Valeur de e élevée à la puissance X 

INT(X Valeur entière 

LEFTS$(X$, Y) Les Y caractères les plus à gauche 
dans X$. 

LEN(X$) Nombre de caractères dans X$. 

LOG(X) Logarithme népérien de X 

MIDS(X$, Y,2) Extrait Z caractères de x$ à partir de 
la position Y 

RND (1) Retourne un nombre aléatoire com- 


RIGHTS (XÉ, Y) 


pris entre 0 et 1. 
Les Y caractères les plus à droite 
dans X$. 


SGN(X) Signe de X. Retourne -1 si X est néga- 
tif, O si X est nul, 1 si X est positif. 

SIN(X) Sinus 

SQR(X) Racine carrée 

STR$(X) Convertit X en une chaîne de chiffres 
décimaux, par exemple si X était 8.45 
il serait converti en une chaîne 
« 8.45 ». 

TAB(X) Spécifie la position X sur le terminal. 

TAN(X Tangente 

VAL(X$) Retourne la valeur numérique d'une 


chaîne de chiffres dans X$. Le 


Instructions Remarques 

DATA 

DEF FNX (X) 

DIM DIM est utilisée à la fois pour les ta- 
bleaux de chaînes et les tableaux nu- 
mériques. L'indice du tableau com- 
mence à zéro, non à un. Cependant, 
beaucoup de jeux n'utilisent pas l'in- 
dice zéro. 

END 

FOR...TO..STEP Comme en BASIC standard, à l'ex- 
ception du test de fin de boucle qui est 
fait après qu'il ait été exécuté. Ce qui 
se produit quand ce programme est 
lancé : 

10FORX=2TO1 

20 PRINT “ Hi ” 

30 NEXT | 

40 END 
est que « HI » sera affiché. Cepen- 
dant, cela ne provoquera pas d'incom- 
patibilité avec les BASIC qui testent 
en premier. 

GOTO 

GOSUB 

IF... THEN Peut être suivi de n'importe quelle ins- 
truction exécutable, et pas seulement 
d'une référence à un numéro de ligne. 

INPUT Peut renvoyer un « symbole instan- 
tané » qui est affiché avant que l'IN- 
PUT ne soit donné. 

LET L'utilisation du mot-clé LET est option- 
nelle. 

NEXT 

ON...GOTO GOTO calculé 

ON...GOSUB GOSUB calculé 

PRINT 

READ 

REM 

RESTORE 

RETURN 

STOP 

Fonctions 

ABS(X) Valeur absolue 

ASC(X$) Retourne le code ASCII du premier 
caractère de la chaîne. ASC(« A ») 
renvoie 65, ASC(«B ») renvoie 66, 
etc. 

ATN(X) Arc Tangente 


contraire de STR$(X). 


En BASIC Microsoft (Altair) n'importe quelle expression 
peut être évaluée aussi bien vraie que fausse. Une condition 
vraie retourne une valeur -1 et une condition fausse 0. Ainsi, si 
nous disons LET Q= -(X=Y), Q=1 si X=Y et Q=0 si X#Y. 
Cette évaluation logique d'expressions est utilisée dans le jeu 
Hexapawn seulement, dans la fonction définie par l'utilisateur 
et, avec un peu d'astuce, peut être remplacée par une table 
de consultation. Quelques autres jeux utilisent les opérateurs 
AND et OR, lesquels traväillent d'une manière franche. 


Le Télétype Model 43 utilise le symbole * pour indiquer l'ex- 
ponentiation. Si vous utilisez un Model 33 ou un autre terminal 
vous pouvez être amené à utiliser en remplacement le carac- 
tère T. 


Le séparateur d'instructions multiples en BASIC Altair est 
(:). Remarquez que lorsqu'une condition IF... THEN est fausse 
dans une ligne d'instructions multiples le contrôle est donné à 
la ligne suivante, et non à l'instruction suivante sur la même 
ligne. Par exemple, 


10 LET X=1 
20 IF X=2 THEN LET Q=19:PRINT “ CECI NE SERA 
JAMAIS AFFICHÉ ” 


Les quelques programmes qui ne sont pas en BASIC Micro- 
soft sont en BASIC Dartmouth. Il est très proche du BASIC Mi- 
crosoft à l'exception du backslash (|) utilisé comme sépara- 
teur d'instructions, à l'exception aussi du fait que si un I|F- 
THEN est faux le contrôle passe à l'instruction suivante et pas 
nécessairement à la ligne suivante. 





Conversion en 
autres Basic 


BASIC Radio Shack : Approximativement 25 des jeux qui 
n'utilisent pas de chaînes tourneront sous BASIC Level 1; 
20 autres pourront être convertis facilement par la conversion 
d'input numériques (1 à la place de Y, O pour N, etc.). Sous 
Level 2, changez RND (1) en RND (0). De même les défini- 
tions de fonctions, lorsqu'elles sont utilisées, doivent être dé- 
veloppées. 


BASIC Apple Il : Tous les programmes tourneront directe- 
ment en BASIC Applesoft avec peu de modifications ou pas 
du tout. En BASIC Integer les chaînes sont identiques au BA- 
SIC HP. Aussi les instructions multiples sur une ligne travail- 
lent-elles différemment qu'en BASIC Microsoft. 


BASIC PLUS DEC : Les programmes écrits en BASIC Altair 
seront entièrement compatibles avec le BASIC PLUS DEC. 


BASIC HP : Des conversions seront nécessaires afin que cer- 
tains programmes tournent sous BASIC HP. En premier lieu le 
BASIC HP ne permet pas l'indice zéro pour les tableaux. Aus- 
si, si dans un programme l'indice zéro est utilisé, le BASIC HP 
rendra compte d'une erreur d'indice. La solution est d'ajouter 
un à tous les indices de tableau s'il est déterminé que le pro- 
gramme utilise l'indice zéro. 

En second lieu, les chaînes de caractères diffèrent du BA- 
SIC Aktair. Il n'y a pas de tableaux de chaînes. Si donc des 
tableaux chaïnes sont utilisés dans un programme, une 
conversion doit être faite. Le tableau peut être converti en une 
chaîne simple ou en un tableau numérique, ou en une série 
d'instructions de data ou encore en un fichier de données. Le 
BASIC HP n'a pas non plus de fonctions RIGHTS, LEFT$ ou 
MID$. En remplacement substituez la chaîne normale HP en 
utilisant des conventions - pour l'instant, RIGHT$(X$,2) de- 
vient XS(LEN(XS)-1, LEN(X). 

En troisième lieu, le BASIC HP n'a pas d'instructions mu- 
tiples sur une ligne. Convertissez les lignes d'instructions mul- 
tiples en plusieurs lignes séparées. 


BASIC 6800 SWTPC : Des versions 2.0 et celles supérieures 
de ce BASIC seront presque compatibles. Comme le BA- 
SIC HP, le BASIC SWTPC ne permet pas l'indice zéro. Aussi 
les chaînes de caractères ne peuvent pas contenir plus de 
32 caractères. Notez que pour générer aléatoirement des 
nombres RND(1) est utilisé en BASIC Altair alors qu'en BA- 
SIC SWTPC on utilise RND(0). Ces commentaires s'appli- 
quent aussi au BASIC disque MSI. 


BASIC TDL ZAPPLE 8K et 12K : Tous les programmes sont 
exécutables dans les deux BASIC TDL. Cependant le BASIC 
TDL ZAPPLE a un verbe RANDOMIZE qui doit être inséré au 
début d'un programme afin de rendre vrais les nombres pseu- 
doaléatoires. 
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BASIC SOL : Les programmes travailleront directement en 
BASIC Sol Etendu. Beaucoup de programmes tourneront 
sous 5K Basic mais la majorité nécessitera une conversion 
considérable. 


BASIC PET : Le BASIC PET de Commodore est identique au 
BASIC utilisé dans ce livre. De ce fait tous les jeux tourneront 
sans aucune conversion. 


BASIC étendu 16K de Cromemco : Le BASIC de Cromemco 
permet des instructions multiples, mais certaines instructions 
doivent être la dernière d'une ligne, aussi des réarrangements 
peuvent être nécessaires. Des tableaux à deux dimensions 
doivent être explicitement dimensionnés (par défaut on admet 
un dimensionnement à 10 par 10). De même, les chaînes en 
BASIC Cromemco sont implémentées comme celles du BA- 
SIC HP et non comme celles du BASIC Altair. 


BASIC Scientifique Ohio : La plupart des programmes tour- 
neront directement sur Challenger 2P et de plus grands sys- 
tèmes. Les 32 caractères par ligne d'écran du Challenger 1P 
et du Superboard nécessiteront une conversion de pro- 
gramme des routines d'affichage. 


BASIC 8K IMSAI : Les programmes sont exécutables avec 
de petites ou aucune modifications. 


BASIC Disque North Star : Ce Basic a les mêmes chaînes 
de caractères que le BASIC HP, aussi des conversions sont 
nécessaires. Notez aussi que la fonction SQRT est utilisée à 
la place de SQR. 


BASIC 11K Polymorphic : Le séparateur d'instructions mul- 
tiples est un backslash (/), et non les deux points. Comme 
dans le BASIC North Star, SORT est utilisé à la place de SQR. 
En BASIC Poly, il ne vous est pas permis de sortir d'une 
boucle FOR prématurément, sauf si vous utilisez le verbe 
EXIT. Notez aussi que pour obtenir des nombres aléatoires, 
RND doit être utilisée avec une valeur « repère » entre 0 et 1, 
laquelle détermine à quel point commence dans la séquence 
de nombres aléatoires la fonction RND. La valeur « repère » 
est normalement basée sur l'heure du jour. Après initialisation 
de la fonction RND, utilisez RND(0) pour obtenir des nombres 
aléatoires. 


E-BASIC (tourne sous système d'exploitation disque CP/M) : 
Tous les tableaux doivent être dimensionnés (il n'y a pas d'ex- 
ception). Le verbe RANDOMIZE peut être utilisé, au début du 
programme, pour obtenir des nombres aléatoires. De même, 
les instructions multiples ne sont pas permises, sur une même 
ligne, aussi une conversion en plusieurs instructions simples 
sera nécessaire. 


Et finalement. 

Il'est tout à fait fréquent que nous recevions des demandes de 
gens qui ont acheté ce livre et qui ont des difficultés à faire 
que leurs programmes tournent correctement. Des conver- 
sions à des versions radicalement différentes de BASIC (tel 
que le BASIC Integer d'Apple ou le BASIC HP 3000) sont diffi- 
ciles; de ce fait il faut vous attendre à des problèmes ! Si vous 
avez un TRS 80 Level Il, veuillez vous souvenir de changer 
RND(1) en RND(0) et de développer vous-même les défini- 
tions de fonction. Les fonctions définies par les utilisateurs 
sont la plupart du temps la manière la plus courte d'écrire une 
expression, et tout ce que vous avez à faire est de remplacer 
l'appel de fonction par la définition originale en remplaçant 
tous les paramètres qui seraient nécessaires. Pour l'instant, si 
le programme original donne : 

10 DEF FNR(X)=INT(X*RND(1)+1) 


900 LET Q=FNR(10)+R 


Convertissez ce qui suit : 
10 REM FUNCTION DEFINITION REMOVED 


900 LET Q=INT(10*RND(0)+1)+R 


Notez que nous avons remplacé le paramètre X dans la dé- 
finition de fonction avec la valeur actuelle 10 dans l'appel de 
fonction (ligne 10) et aussi changé RND(1) en RND(0). 

Evidemment, la manière la plus rapide d'obtenir du logiciel 
sans erreur est de le mettre entre les mains de plusieurs mil- 
liers d'utilisateurs. À ce point, nous sommes sûrs que (pres- 
que) toutes les erreurs ont été éliminées, mais puisqu'un 
autre volume Nouveaux Jeux d'Ordinateur en BASIC est en 
cours de rédaction, nous aurons le plaisir de revoir tout cela à 
nouveau. 


XIV 





Acey Ducey 


C'est une simulation du jeu de cartes 
Acey Ducey. Dans ce jeu, le donneur 
(l'ordinateur) distribue deux cartes, faces 
découvertes. Vous avez le choix de parier 
ou de ne pas parier selon que vous pensez 
que la prochaine carte distribuée viendra 








PA ONES PACSRSUNE RS Qnx PAS es 20 PRINT FAB(15); "CREATIVE COMPUTING  MORRISTONN, NE JERSEY* 
Vous disposez au départ d'une somme 21 PRINT . ‘ 
ÿ i- 22 PRINT 
d'argent (Q) de $ 100. Vous pouvez modi 30 PRINT TAB(15);"ACEY-DUCEY SE JOUE COMME CECI: ":PRINT 
fier l'instruction 110 si vous voulez com- 40 PRINT TAB(15);"LE TENANCIER (ORDINATEUR) RETOURNE 2 CARTES." 

é 50 PRINT TAB(15);"VOUS POUVEZ PARIER OU NE PAS PARIER SELON QUE" 
mencer avec plus où moins de $ 100. Le 60 PRINT TAB(15);"VOUS PENSEZ QUE LA CARTE SUIVANTE AURA OU N'AURA PAS" 
jeu continue jusqu'à ce que vous perdiez 70 PRINT TAB(15);"UNE VALEUR COMPRISE ENTRE CELLES DES 2 AUTRES.":PRINT 

: : 80 PRINT TAB(15);"SI VOUS NE VOULEZ PAS PAS PARIER, ENTREZ 0" 
tout votre argent ou que vous interrompiez 90 PRINT:PRINT 
le programme. 110: 02100 
L'auteur du programme initial était Bill 120 PRINT "VOUS AVEZ MAINTENANT" :Q; “DOLLARS ." 
Palmby de Prairie View, Illinois. RSS 
210 Q=0+M 
220 GOTO 120 
240 Q=0-M 
ACEY DUCEY-JEU DE CARTES 250 GOTO 120 
260 PRINT"VOICI VOS DEUX CARTES: " 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 270 A=INT(14*RND(1))+2 


280 IF A<2 THEN 270 
290 IF A>14 THEN 270 







ACEY-DUCEY SE JOUE COMME CECI: 300 B=INT(14*RND(1 ) )+2 
310 1F B<2 THEN 300 
LE TENANCIER (ORDINATEUR) RETOURNE 2 CARTES. 320 IF B>14 THEN 300 
VOUS POUVEZ PARIER OU NE PAS PARIER SELON QUE 330 IF A>=B THEN 270 
VOUS PENSEZ QUF LA CARTE SUIVANTE AURA OU N'AURA PAS 350 IF A<ll THEN 400 
UNE VALEUR COMPRISE ENTRE CELLES DFS 2 AUTRES. 360 IF A=1l1 THEN 420 
370 IF A=12 THEN 440 
SI VOUS NE VOULFZ PAS PAS PARIER, ENTREZ 0 380 1F A=13 THEN 460 
390 IF A=14 THEN 480 
VOUS AVEZ MAINTENANT 100 DOLLARS. 400 PRINT A 
410 GOTO 500 
VOICI VOS DEUX CARTES: 420 PRINT"VALET" 
5 430 GOTO 500 
6 440 PRINT"DAME" 
450 GOTO 500 
QUELLE EST VOTRE MISE? O 460 PRINT"ROI" 
ON SE DFGONFLE! | 470 GOTO 500 
480 PRINT"AS" 
VOICI VOS DEUX CARTES: 500 IF B<ll THEN 550 
6 510 IF B=1l THEN 570 
9 520 IF B=12 THEN 590 
530 IF B=13 THEN 610 
QUELLE FST VOTRE MISE? 10 540 IF B=14 THEN 630 
2 550 PRINT B 
DESOLE, MAIS C'EST PERDU. 560 GOTO 650 
VOUS AVEZ MAINTENANT 90 DOLLARS. 570 PRINT"VALET" 
580 GOTO 650 
VOICI VOS DEUX CARTES: 590 PRINT"DAME" 
7 600 GOTO 650 
AS 610 PRINT"ROI" 
620 GOTO 650 
QUELLE FST VOTRE MISE? 30 CAO PRINTEAST 
DAME 640 PRINT 
VOUS AVEZ GAGNEIII 650 PRINT 
VOUS AVEZ MAINTENANT 120 DOLLARS. 660 INPUT'QUELLF EST VOTRE MISE";M 
670 IF M<>Q THEN 680 
VOICI VOS DEUX CARTES: 675 PRINT"ON SE DEGONFLEI |" 
: 676 PRINT 
AS 677 GOTO 260 
6RO IF M<=Q THEN 730 
690 PRINT"DESOLE, MON POTE, MAIS VOUS Y ALLEZ TROP FORT." 
DORE ET MORE USER DA 700 PRINT"IL NE VOUS RESTE QUE";Q; "DOLLARS À MISER." 


710 GOTO 650 

730 C=INT(14*RND(1))+2 
740 IF C<2 THEN 730 

VOICI VOS DEUX CARTES: 760 1F C«11 THEN 810 
9 770 IF C=11 THEN 830 

ROI 780 IF C=12 THEN 850 
790 IF C=13 THEN 870 

800 IF C=14 THEN 890 

810 PRINT C 

820 GOTO 910 

830 PRINT"VALET" 

840 GOTO 910 

850 PRINT"DAME" 

860 GOTO 910 

870 PRINT"ROI" 

880 GOTO 910 

890 PRINT "AS" 

900 PRINT 

910 IF C>A THEN 930 

VOICI VOS DEUX CARTES: 30 ce nos 970 

Fe 950 PRINT"VOUS AVEZ GAGNEII1" 

960 GOTO 210 

970 PRINT"DESOLE, MAIS C'EST PERDU." 


VOUS AVEZ GAGNEIII 
VOUS AVEZ MAINTENANT 239 DOLLARS. 


QUELLE EST VOTRE MISE? 238 
AS 


DESOLE, MAIS C'EST PERDU. 
VOUS AVEZ MAINTENANT 1 DOLLAR. 


VOICI VOS DEUX CARTES: 
9 
10 


QUELLF EST VOTRE MISE? O 
ON SE DEGONFLEI 1! 


QUELLE EST VOTRE MISE? 1 980 IF M<Q THEN 240 
2 990 PRINT 
DESOLE, MAIS C'EST PERDU. 1000 PRINT 
1010 PRINT"DESOLE, MON POTE, MAIS VOUS ETES RATISSE." 
DESOLE, MON POTE, MAIS VOUS ETES RATISSE. 1015 PRINT:PRINT 


1020 INPUT"ENCORE UNE FOIS (Y OU N)";AS$ 

1025 PRINT:PRINT 
ENCORE UNE FOIS (Y OU N)? N 1030 IF LEPT$(AS$,1)="Y" OR LEFTS(AS,1)="y" THEN 110 

1040 PRINT"O.K., J'ESPERE QUE VOUS AVEZ TROUVE CA AMUSANTI" 
O.K., J'ESPERE QUE VOUS AVEZ TROUVE CA AMUSANTI 1050 END 


Amazing (Le labyrinthe) 


Ce programme imprime un labyrinthe 
différent à chaque fois qu'on l'utilise et 
n’assure qu'un seul chemin pour en sortir. 
Vous pouvez choisir les dimensions du 
labyrinthe, c'est-à-dire le nombre de carrés 
en largeur et en longueur. 

L'auteur du programme initial était Jack 
Hauber de Windsor, Connecticut. 


AMAZING 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


CE PROGRAMME CREE DES LABYRINTHES AUX DIMENSIONS DE VOTRE CHOIX. 
CHAQUE LABYRINTHE EST UNIQUE, ET N'A QU'UNE VOIE DE PASSAGE. 
LABYRINTHE SE FORME SUR L'ECRAN. POUR AVOIR UN LABYRINTHE IMPRIME 
EXECUTEZ LE PROGRAMME ‘AMAZINGP' À LA PLACE DE CELUI-CI. 


LARGEUR ET LONGUEUR, S.V.P (2 NOMBRES SEPARES PAR UNE 


LE LABYRINTHE N'IRA PAS SUR L'ECRAN. LARGEUR MAXI 25; 


LONGUEUR MAXI 10. FAITES UN NOUVEL ESSAI. 


LARGEUR ET LONGUEUR, S.V.P (2 NOMBRES SEPARES PAR UNE 

















I I 
CS PE et AS St tt et ES tt ne 
I I I I I I I 1 
B Smmtens 5 8 #8 8 5 3 1-3 
I 1 I 1 D GS CS CARE OR 
fmmimnt  Dmimmimmimns mms + 8 + + + 
I I I I 1 I I I 
B=ms D 4 4 Its 3 3 8 3. 
I I I I I I Re : 
D OO=—s OH Hs OB=ns miens 8 is 
I I LV I I 1 
3 3 Ü . 

I I 

: 3 . 

I I I 

1 1 1 

: : : 3 . 
I  OE I I 
: 5 + CEE. 3 . 
1 I 1 I I I Le I 1 I 1 
BOB 8 8 8 8 8 ss 8 8 ts 
I 1 I I 1 I Z";Ll- 4 1 1 
St es mises 5 8 8 8 8% +? + 
I I 1 1 1 I 1 I I I 
D Sms  OSmimmimes  Gnimmiens Ds 5 se 
I 1 I 1 I I 1 
D OOB=mr Os 8 2 8 ms miss 
1 I I 1 I I I I LATE 
Bmms 8 8 mr  Bmi=es 8 15 3-3 2 
I LT 1 1 1 I I 
D Sims D Bite Hs 5 2 
I I I 1 I I I I 
DOS Dim 8 2 mins 8 8 1. 
TI I I I I 1 I I I 
BOSS mes 1 miens en 3 Bis 
I I 1 1 I I 1 
CR ET 3. 4: Chat 78e . 
I | I I 
Cat bel Pnte Pastel Potentiel 


VIRGULE)? 15,20 


VIRGULE)? 15,10 


10 PRINT TAB(28);"AMAZING" 
12 PRINT:PRINT 

20 PRINT TAB(15);"CRFATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT:PRINT:PRINT 


40 PRINT 
42 PRINT “CHAQUE LABYRINTHE EST UNIQUE, 
44 PRINT “LABYRINTHE SE FORME SUR L'ECRAN. 


46 PRINT 


100 


101 


102 

104 
110 

120 
130 
140 
150 
160 
165 

170 
171 

173 
180 
190 
195 

200 
210 
215 
220 
230 
240 
250 
260 
265 
270 
280 
290 
300 
310 
320 
330 
334 
338 
340 
350 
360 
370 
380 
390 
400 
4n5 
410 
415 
420 
430 
440 
450 
460 
470 
480 
485 
490 
500 
510 
520 
530 
540 
545 
547 
550 
552 
554 
560 
570 
5a0 
590 
600 
610 
620 
625 
630 
640 
650 
660 
670 
680 
685 
690 
695 
700 
710 
720 
730 
740 
750 
755 
760 
770 


INPUT 


"CE PROGRAMME CREE DES LABYRINTHFS AUX DIMENSIONS DE VOTRE CHOIX." 
ET N'A QU'UNE VOIE DE PASSAGE. 
POUR AVOIR UN LABYRINTHE IMPRIME" 

“EXECUTEZ LE PROGRAMME ‘AMAZINGP' À LA PLACE DE CELUI-CI.":PRINT:PRINT 


LE" 


"LARGEUR ET LONGUEUR, S.V.P (2 NOMBRES SEPARES PAR UNE VIRGULE)";H,V 


IF H>26 OR V>10 THEN PRINT: 

PRINT "LE LABYRINTHF N'IRA PAS SUR L'ECRAN. LARGEUR MAXI 25;": 
PRINT "LONGUEUR MAXI 10. FAITES UN NOUVEL ESSAI .":PRINT:PRINT:GOTO 100 
IF H<>l AND V<>l THEN 110 


PRINT:PRINT "DIMENSIONS INUTILISABLES. NOUVEL ESSAI.":PRINT:PRINT:GOTO 100 


DIM W(H,V),V(H,V) 
PRINT 
PRINT 
PRINT 
PRINT 


Q=0:Z=0:X=INT(RND(1)*H+41) 


FOR I=1 TO H 
IF I=X THEN 173 

PRINT “.--";:GOTO 180 
PRINT “. "; 

NEXT 1 

PRINT “." 
C=l1:W(X,1)=C:C=C+] 
R=X:S=1:GOTO 260 

IF R<>H THEN 240 

IF S<>V THEN 230 
R=]1:S=1:GOTO 250 
R=1:S=S#1:GOTO 250 
R=R4 1 

IF W(R,S)=0 THFN 210 

IF R-1=0 THEN 530 

IF W(R-1,S)<>0 THEN 530 
IF S-1=0 THEN 390 

IF W(R,S-1)<>0 THEN 390 
1F R=H THEN 330 

IF W(R+1,S)<>0 THEN 330 
X=INT(RND(1)*34+1) 

ON X GOTO 790,820,8B60 
IF S<>V THEN 340 

IF Z=1 THEN 370 
Q=1:GOTO 350 

IF W(R,S+1)<>0 THEN 370 
X=INT(RND(1)*3+1) 

ON X GOTO 790,R20,910 
X=INT(RND(1)#*2+1) 

ON X GOTO 790,820 

IF R=H THEN 470 

IF W(R+1,S)<>0 THFN 470 
IF S<>V THEN 420 

IF Z=1 THEN 450 
O0=1:GOTO 430 

IF W(R,S+1)<>0O THEN 450 
X=INT(RND(1)*341) 

ON X GOTO 790,860,910 
X=INT(RND(1)#*241) 

ON X GOTO 790,860 

IF S<>V THEN 490 

IF Z=1 THEN 520 
O=1:GOTO 500 

IF W(R,S+1)<>0O THEN 520 
X=INT(RND(1)*2+1) 

ON X GOTO 790,910 

GOTO 790 

IF S-1=0 THEN 670 

IF W(R,S-1)<>0 THEN 670 
IF R=H THEN 610 

IF W(R+1,S)<>0 THEN 610 
IF S<>V THEN 560 

1F Z=1 THEN 590 
Q=1:GOTO 570 

IF W(R,S+1)<>0 THEN 590 
X=INT(RND(1)*34+1) 

ON X GOTO 820,860,910 
X=INT(RND(1)*2+1) 

ON X GOTO 820,860 

IF S<>V THFN 630 

IF Z=1 THEN 660 
O=1:GOTO 640 

IF W(R,S+1)<>0 THEN 660 
X=INT(RND(1)#*24+1) 

ON X GOTO 820,910 

GOTO 820 

IF R=H THEN 740 

IF W(R+1,S)<>0 THEN 740 
IF S<>V THEN 700 

IF Z=1 THEN 730 
Q=1:GOTO 830 

IF W(R,S+1)<>0 THEN 730 
X=INT(RND(1)*2+1) 

ON X GOTO 860,910 

GOTO 860 

IF S<>V THEN 760 

IF Z=1 THEN 780 
Q=1:GOTO 770 

IF W(R,S+1)<>0O THEN 780 
GOTO 910 





780 
790 
800 
810 
815 
820 
830 
840 
850 
860 
870 
875 
880 
890 
900 
905 
910 
920 
930 
940 
950 
955 
960 
970 
975 
980 
1000 
1010 
1011 
1012 
1013 
1020 
1021 
1030 
1040 
1041 
1043 
1045 
1050 
1051 
1052 
1060 
1070 
1071 
1072 
1073 


GOTO 1000 

W(R-1,S)=C 
C=C+1:V(R-1,S)=2:R=R-1 
IF C=H*V+1 THEN 1010 
Q=0:GOTO 260 

W(R,S-1)=C 

C=Cc+1 
V(P,S-1)=1:928-1:1F7 Cent 
Q=0:GOTO 260 

W(R+1,S)=C 


C=C+1:1F V(R,S)=0 THEN 880 


V(R,S)=3:GOTO 890 


V(R,S)=2 

R=R4#] 

IF C=H*V+1 THEN 1010 
GOTO 530 

IF Q=1 THEN 960 


w 
V 


+ 


1 


Li 
T 


'H 


E 


N 


1919 


W(R,S+1)=C:C=C+1:1F V(R,S)=0 THEN 940 


V(R,S)=3:GOTO 950 
V(R,S)=1 


S=S+1:1F C=H*V+1 THEN 1010 


GOTO 260 

Z=1 

IF V(R,S)=0 THEN 980 
V(R,S)=3:Q0=0:GOTO 1000 


V(R,S)=1:Q=0:R=1:S=1:GOTO 250 


GOTO 210 

FOR J=1 TO V 

PRINT "Il"; 

FOR 1=1 TO H 

IF V(1,J)<2 THEN 1030 
PRINT “ s 

GOTO 1040 

PRINT * 1"; 

NEXT 1 

PRINT 

FOR I=l TO H 

IF V(1,J)=0 THEN 1060 
IF V(1,J)=2 THEN 1060 
PRINT ": "; 

GOTO 1070 

PRINT “:--"; 

NEXT 1 

PRINT “." 

NEXT J 

END 


Animal 





A la différence des autres jeux sur ordi- 
nateur dans lesquels l'ordinateur choisit un 
nombre ou une lettre que vous devez 
deviner, dans ce jeu vous pensez à un 
animal, l'ordinateur vous pose des ques- 
tions et essaie de deviner le nom de votre 
animal. Si l'ordinateur se trompe il vous 
posera une question pour différencier 
l'animal qu'il a deviné de celui auquel vous 
pensez. De cette façon l'ordinateur 
« apprend » les noms de nouveaux ani- 
maux. Les questions servant à différencier 
les nouveaux animaux doivent être entrées 
sans point d'interrogation. 

Cette version du jeu ne comporte pas de 
dispositif de sauvegarde. Si votre système 
le permet, vous pouvez modifier le pro- 
gramme pour sauvegarder le tableau A $; 
rechargez ensuite le tableau lorsque vous 
voulez rejouer. De cette façon vous pouvez 
sauvegarder ce que l'ordinateur apprend 
sur toute une série de jeux. 

A n'importe quel moment, si vous 
répondez « LIST » à la question « Pensez- 
vous à un animal », l'ordinateur vous dira 
tous les animaux qu'il connaît déjà. 

Au début le programme commence en 
ne connaissant que POISSON et OISEAU. 
Lorsque vous constituez un fichier d'ani- 
maux, vous devez d'abord poser des 
questions simples, d'ordre général, et 
ensuite passer à des questions plus pré- 
cises avec les animaux suivants. Par 
exemple, si votre premier animal était un 
éléphant, l'ordinateur vous posera une 
question pour différencier un éléphant d'un 
oiseau. Bien sûr il y a des centaines de 
possibilités, cependant si vous envisagez 
de constituer un grand fichier d'animaux, 
une bonne question à poser serait: 
« EST-CE UN MAMMIFERE ? » 

Ce programme peut être facilement 
modifié afin de traiter de catégories de 
choses autres que des animaux, simple- 
ment en changeant les donnéesinitiales de 
la ligne 530 et les références de dialogue 
se rapportant aux animaux aux lignes 10, 
40, 50, 130, 230, 240 et 600. Cela pourrait, 
dans un cadre pédagogique, constituer un 
précieux programme pour enseigner les 
caractéristiques distinctives de beaucoup 
de catégories de choses — les formations 
rocheuses, la géographie, la vie aquatique, 
les structures cellulaires, etc. 

Développé à l'origine par Arthur Luehr- 
mann au Dartmouth College, Animal a été 
par la suite abrégé et modifié par Nathan 
Teichholtz à DEC et Steve North à Creative 
Computing. 


ANIMAL 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


JOUEZ À "TROUVER L'ANIMAL" 


Pensez a un animal et l'ordinateur essaiera de le trouver. 
Tapez 'List' pour voir les animaux connus de l'ordinateur. 


Pensez vous a un animal? Y 
Nage-t-i1? N 
Est-ce un(e) oiseau? N 


L'animal auquel vous pensiez etait un(e) ? ELEPHANT 


SVP tapez une question permettant de distinguer un(e) 
ELEPHANT d'un(e) oiseau : 


? AIME T-IL LES CACAHUETES 
Pour un(e) ELEPHANT la reponse serait ? Y 


Pensez vous a un animal? Y 
Nage-t-i1?7 Y 
Est-ce un(e) poisson? N 


L'animal auquel vous pensiez etait un(e) ? PHOQUE 


SVP tapez une question permettant de distinguer un(e) 
PHOQUE d'un(e) poisson : 


? À T-IL DES ECAILLES 
Pour un(e) PHOQUE la reponse serait ? N 


Pensez vous a un animal? Y 
Nage-t-i1?7 N 

AIME T-IL LES CACAHUFETES? N 
Est-ce un(e) oiseau? N 


L'animal auquel vous pensiez etait un(e) ? LION 


SVP tapez une question permettant de distinguer un(e) 
LION d'un(e) oiseau : 


? RUGIT-IL 
Pour un(e) LION la reponse serait ? Y 


Pensez vous a un animal? Y 
Nage-t-i1?7 Y 

A T-IL DES ECAILLES? N 
Est-ce un(e) PHOQUE? N 


L'animal auquel vous pensiez etait un(e) ? PIEUVRE 


SVP tapez une question permettant de distinguer un(e) 
PIEUVRE d'un(e) PHOQUE : 


? À T-IL 8 TENTACULES 
Pour un(e) PIEUVRE la reponse serait ? Y 


Pensez vous a un animal? Y 
Nage-t-i1? N 

AIME T-IL LES CACAHUETES? Y 
Est-ce un(e) ELEPHANT? Y 


Si l'on essayait avec un autre animal? 

Pensez vous a un animal? Y 

Nage-t-i1?7 N 

AIME T-IL LES CACAHUETES? N 

RUGIT-IL? N 

Est-ce un(e) oiseau? N 

L'animal auquel vous pensiez etait un(e) ? BLOUMF 


SVP tapez une question permettant de distinguer un(e) 
BLOUMF d'un(e) oiseau : 


? SON PRENOM EST IL NEPOMUCENE 
Pour un(e) BLOUMF la reponse serait ? Y 


Pensez vous a un animal? LIST 
Les animaux que je connais deja sont: 


ELEPHANT poisson LION PHOQUE 
PIEUVRE oiseau BLOUMF 


Pensez vous a un animal? N 


4 


5 w 
6 P 
10 
15 
20 
30 
40 
45 
50 
55 
60 
70 
80 
90 
100 
110 
120 
130 
135 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


240 
250 
260 
270 
280 
290 
300 


IDTH 80:CLEAR 2000 
RINT CHRS (26) 

PRINT TAB(33);"ANIMAL" 
PRINT:PRINT 

PRINT TAB(15);"CREATIVE COMPUTING 
PRINT: PRINT: PRINT 

PRINT "JOUEZ À ";CHRS (34); "TROUVER L'ANIMAL";CHRS(34) 

PRINT 

PRINT "Pensez a un animal et l'ordinateur essaiera de le trouver." 

PRINT "Tapez ‘List' pour voir les animaux connus de l'ordinateur.":PRINT 
PRINT 
DIM AS (200) 

FOR 1=0 TO 3 

READ A$(1) 

NEXT I 

N=VAL(AS(O)) 

REM PROGRAMME PRINCIPAL 
PRINT:INPUT “Pensez vous a un animal” 
IF LEFTS(AS$S,1)="N" OR LEFT$S(AS,1) 


MORRISTOWN, NEW JERSEY" 


:A$ 
THEN PRINT:PRINT:RUN “MENU“ 





IF A$="LIST" OR A$="List" OR AS="list" THEN 600 
IF LEFTS(AS,1)<>"Y" AND LEFTS(AS,1)<>"y" THEN 120 
K=1 

GOSUB 390 


IF LEN(AS(K))=0 THEN 999 

IF LEFTS(AS(K),2)= " THEN 170 

PRINT “Est-ce un(e) ";RIGHT$(AS(K),LEN(AS(K))-2); 

INPUT AS$ 

AS=LEFTS (A$,1) 

IF LEFTS(AS,1)="Y" OR LEFTS(AS$S,1)="y" THEN PRINT: 

PRINT "Si l'on essayait avec un autre animal?": GOTO 120 








PRINT:INPUT "L'animal auquel vous pensiez etait un(e) ";V$ 
PRINT:PRINT “SVP tapez une question permettant de distinguer un(e)" 
PRINT VS;" d'un(e) ":RIGHTS(AS(K),LEN(AS(K))-2);" :":PRINT 

INPUT XS 

PRINT "Pour un(e) ";VS;" la reponse serait "; 

INPUT AS 


AS=LEFTS(AS,1): IF AS<>"Y" AND AS<>"y" AND A$<>"N" AND AS<>"n" THEN 280 





304 
310 
320 





330 
340 
350 
360 
370 
380 
390 
400 
410 
415 
420 
430 
432 
434 
440 
450 
455 
460 
470 
475 
480 
490 
500 
505 
510 
520 
530 
600 
605 
610 
620 
624 
630 
640 
645 
650 
660 
670 
680 
999 


Z1=VAL(AS(O)) 

AS(O)=STRS(Z1+2) 

A$(Z1)=AS(K) 

AS(Z1+1)="\A"4VS 

AS(K)="\Q"4+XS4"\"4AS4STRS (Z141)+"\"4BS4+STRS (Z1)+"\" 
GOTO 120 

REM SOUS-PROGRAMME D'AFFICHAGE DES QUESTIONS 
Q$=AS (K) 

FOR Z=3 TO LEN(QS) 

IF MIDS$S(QS,Z,1)<>"\" THEN PRINT MID$(O$,2Z,1);: NEXT Z 
INPUT CS 

CS=LEFTS(CS,1) 

IF C$="y" THEN C$="Y" 

1F C$="n" THEN C$="N" 

IF C$<>"y" AND CS$S<>"y" AND C$S<>"N" AND C$<>"n" THEN 410 
T$="\"4CS 

FOR X=3 TO LEN(QS)-1 

IF MIDS(OS,X,2)=T$ THEN 480 

NEXT X 

STOP 

FOR Y=X+1 TO LEN(QS) 

IF MIDS(QS,Y,1)="\" THEN 510 

NEXT Y 

STOP 

K=VAL(MIDS(QS,X+2,Y-X-2)) 

RETURN 

DATA “4","\QONaqe-t-il\Y2VWN3V","\Apoisson","\Aoiseau" 
PRINT:PRINT "Les animaux que je connais deja sont:" 
X=0 

FOR I=1 TO 200 

IF LEFTS(AS(1),2)<>"VA" THEN 650 

PRINT TAB(15*X): 

FOR Z=3 TO LEN(AS(1)) 

IF MIDS(AS(1),Z,1)<>"\" THEN PRINT MIDS(AS$(1),2,1);: NEXT Z 
X=X+1: IF X=4 THEN X=0: PRINT 

NEXT I 

PRINT 

PRINT 

GOTO 120 

END 






Awari 





Mon CÔTÉ 


6 5 4 3 2 
000 | 000 | 000 | 000 | 000 


Ma 
MAISON 


000 | 000 | 000 | 000 | 000 
1 2 3 4 5 


Votre CÔTÉ 


Awari est un ancien jeu africain qui se 
joue avec sept bâtons et trente-six cailloux 
ou fèves, disposés comme il est montré ci- 
dessus. Le terrain est divisé en six com- 
partiments ou trous de chaque côté. De 
plus il y a aux extrémités deux trous à part 
« ma maison » et « Votre maison ». 

Un coup consiste à prendre toutes les 
fèves d'un trou (non vide) situé de votre 
côté. Ces fèves sont alors « semées » une 
par une en commençant par le trou immé- 
diatement sur la droite et en allant dans le 
sens inverse des aiguilles d’une montre. 

Un tour comporte un ou deux coups. Si 
la dernière fève de votre coup est semée 
dans votre « maison », vous avez droit à 
un autre COUP. 

Si la dernière fève d'un coup est semée 
dans un trou vide, et si le trou opposé 
n'est pas vide, toutes les fèves de ce der- 
nier trou ainsi que la dernière fève semée 
sont alors « capturées » et mises dans la 
« maison » du joueur. 

Quand l’un des côtés est vide, la partie 
est terminée. Le joueur dont la maison 
contient le plus de fèves a gagné. 

Sur ordinateur on affiche 14 nombres 
représentant les 14 trous. 


333333 
0 0 
3333 3 3 


Les trous de votre côté (en bas) sont nu- 
mérotés de 1 à 6 et de gauche à droite. 
Ceux de mon côté (l'ordinateur) le sont à 
partir de ma gauche (votre droite). 

Pour jouer un coup, vous entrez le nu- 
méro d’un trou. Si la dernière fève tombe 
dans votre maison, l'ordinateur affiche 
« AUTRE COUP ? » et vous jouez votre 
autre coup. 

Le coup de l'ordinateur est affiché et 
suivi d’un schéma montrant la nouvelle si- 
tuation. L'ordinateur vous laisse toujours 
jouer en premier, ce qui est supposé don- 
ner un léger avantage. 

Il y a un mécanisme d'apprentissage 
dans le programme pour améliorer le jeu 
de l'ordinateur au fur et à mesure des par- 
ties. 

La version originale d’Awari, écrite par 
Geoff Wyvill de Bradford, dans le Yorks- 
hire en Angleterre, a été adoptée pour ce 
programme. 


000 
Votre 
MAISON 
000 
6 


AWARI 


CREATIVE COMPUTING MORRISTOWN, 


VOICI MON COUP 2 

3 4 4 
o 

3 3 3 3 o 
VOTRE COUP ? 4 

3 4 4 4 o 
0 

3 3 3 o 1 
AUTRE COUP ? 1 

3 4 4 0 0 
0 

0 4 4 0 1 
VOICI MON COUP 4 

0 5 o 


6 
0 4 4 0 1 


VOTRE COUP ? 3 
(o] 5 0 0 L) 
9 4 L) 1 2 
AUTRE COUP ? 5 
( 5 0 0 L) 
6 
0 4 0 1 o 
VOICI MON COUP 5 
0 


7 
1 5 1 1 0 


VOTRE COUP ? 2 


7 


NEW JERSEY 


AUTRE COUP ? 3 


1 ( 0 0 0 
7 
1 0 0 3 2 


VOICI MON COUP 6,1 
0 1 1 1 1 
8 
1 0 (o] 3 2 


VOTRE COUP ? 5 


(o] 1 1 1 1 
8 
1 0 0 3 0 


AUTRE COUP ? 4 


(o] 1 1 1 1 
A 
1 0 0 0 1 


VOICI MON COUP 5 
0 0 1 


10 
Le) (o] a 0 1 


VOTRE COUP ? 6 


1 0 2 2 2 
11 
1 0 L) 0 1 


VOICI MON COUP 6,4 
1 0 2 2 
14 
0 0 0 0 1 


VOTRE COUP ? 5 


0 1 0 2 2 
14 
0 0 (o) 0 0 


PARTIE TERMINEE. 
VOUS GAGNEZ PAR 3 POINTS 
AUTRE PARTIE? N 


10 


10 


10 


12 


20 
30 
50 
60 
70 
80 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
351 
352 
370 





PRINT TAB(34);"AWARI":PRINT:PRINT 

PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
DATA 

DIM B(13),G(13),F(50):READ N 

PRINT:PRINT:E=0 

FOR 1=0 TO 12:B(1)=3:NEXT 1 

C=0:F(N)=0:B(13)=0:B(6)=0 


GOSUB 370 
PRINT “VOTRE COUP “;:GOSUB 240 
IF E=0 THEN 190 


IF M=H THEN GOSUB 230 

IF F=0 THEN 190 

PRINT "VOICI MON COUP ";:GOSUB 530 

IF E=0 THEN 190 

IF M=H THEN PRINT ",";:GOSUB 530 

IF E>0 THEN 100 

PRINT:PRINT"PARTIE TERMINFE." 

D=B(6)-R(13):1F D<Q THEN PRINT "JE GAGNE PAR";-D;"POINTS.":GOTO 2000 
N=N+1:1F D=0 THEN PRINT "PARTIE NULLE":GOTO 2000 
PRINT "VOUS GAGNEZ PAR";D;"POINTS":GOTO 2000 
PRINT "AUTRE COUP ‘; 

INPUT M:1F M<7 THEN IF M>O THEN M=M-1:GOTO 260 
PRINT "COUP INTERDIT":GOTO 230 

IF B(M)=0 THEN 250 

H=6:GOSUB 290 

GOTO 370 

K=M:GOSUB 470 


E=0:1F K>6 THEN K=K-7 

C=C+1:1F C<9 THEN F(N)=F(N)*6+K 

FOR 1=0 TO 5:1F B(1)<>0 THEN 350 

NEXT 1 

RETURN 

FOR 1=7 TO 12:1F B(1)<>O THEN E=1: RETURN 
NEXT 1 

RETURN 

PRINT:PRINT" “ie 


380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
SRO 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


FOR 1=12 TO 7 STEP -1:GOSUB 450 

NEXT I 

PRINT:1=13:GOSUB 450 

PRINT * “;:PRINT B(6):PRINT " "3: 
FOR 1=0 TO 5:GOSUB 450 

NEXT 1 

PRINT: PRINT: RETURN 

IF B(1)<10 THEN PRINT “ "; 

PRINT B(1);:RETURN 

P=B(M):R(M)=0 

FOR P=P TO 1 STEP -l:M=M+1:1F M>13 THEN M=M-14 
R(M)=B(M)+1:NEXT P 

IF B(M)=1 THEN IF M<>6 THEN IF M<>13 THEN IF B(12-M)<>0O THEN 520 
RETURN 

R(H)=R(H)+B(12-M)+1:B(M)=0:B(12-M)=0 : RETURN 

=-99:H=]3 

FOR 1=0 TO 13:G(1)=B(I):NEXT ! 

FOR J=7 TO 12:1F B(J)=0 THEN 690 

G=0: :GOSUB 470 

FOR 1=0 TO S:1F B(1)=0 THEN 620 

L=B(1)+1:R=0 

IF L>13 THEN L=L-14:R=1:GOTO 590 

IF R(L)=0 THEN IF L<>6 THEN IF L<>13 THEN R=B(12-L)+R 
IF R>Q THEN Q=R 

NEXT ! 

Q=R(13)-B(6)-Q:1F C>8 THEN 670 

K=J:1F K>6 THEN K=K-7 

FOR I=0 TO N-1l:1F F(N)*6+K=INT(F(1)/6(7-C)+.1) THEN Q=Q-2 
NEXT 1 

FOR 1=0 TO 13:B(1)=G(I):NEXT I 

IF Q>=D THEN A=J:D=Q 

NEXT J 

M=A:PRINT CHRS(424M);:GOTO 290 

FOR 1=0 TO N-1:PRINT B(I):NEXT I 

END 


















Dans ce jeu, l'ordinateur choisit un 
nombre secret à 3 chiffres en utilisant les 
chiffres de 0 à 9 et vous essayez de le de- 
viner. Vous avez droit à vingt essais. Au- 
cun chiffre n’est répété. Après chaque es- 
sai, l'ordinateur commente votre proposi- 
tion de la manière suivante : 


PICO Un chiffre est correct mais 
n'est pas à la bonne place 

FERMI Un chiffre se trouve à la 
bonne place 


BAGELS Aucun chiffre n'est correct 


Vous apprendrez à tirer des conclusions 
de ces indications, et, avec de la pratique, 
vous apprendrez à améliorer votre score. 
Il y a plusieurs bonnes stratégies pour 
jouer au Bagels. Lorsque vous en aurez 
trouvé une bonne, voyez si vous pouvez 
l'améliorer ou essayez une stratégie com- 
plètement différente et voyez si elle est 
meilleure. Bien que l'ordinateur vous ac- 
corde vingt essais, vous devriez pouvoir 
deviner le nombre au bout de huit, si vous 
utilisez une bonne stratégie. 

Les auteurs originaux de ce programme 
sont D. Resek et P. Rowe du Lawrence 
Hall of Science, Berkeley, Californie. 


BAGELS 


CREATIVE COMPUTING MORRISTOWN, NEW JERSFY 


DESIRFZ VOUS VOIR LES REGLFS ( Y ou N )? Y 


J'AI FN TETE UN NOMRRE DF 3 CHIFFRFS. ESSAYEZ DE LE TROUVER. 
JE VOUS FOURNIRAI LFS INDICATIONS SUIVANTES: 


PICO - UN CHIFFRE CORRECT MAIS EN MAUVAISE POSITION 
FERMI - UN CHIFFRE CORRFCT ET EN RBONNF POSITION 
BAGELS -— AUCUN CHIFFRE CORRFECT 


O.K. J'AI FN TETE UN NOMBRE. 


ESSAI NR 1 2: 4123 
PICO PICO 

ESSAI NR 2 ? 432 
PICO FERMI 

ESSAI NR 3 2352 
PICO PICO PICO 
ESSAI NR 4 ? 235 


C'EST BIEN LUI!!! 
ON REJOUE ( Y ou N )? Y 


O.K. J'AI EN TETF UN NOMBRE. 


ESSAI NR 1 ? 789 
PICO 

FSSAI NR 2 ? 123 
RAGELS 

ESSAI NR 3 ? 457 
PICO PICO 

FSSAI NR 4 ? 458 
PICO 

FSSAI NR 5 ? 467 
PICO PICO 

ESSAI NR 6 ? 456 
PICO 

ESSAI NR 7 ? 456 
PICO 

FSSAI NR 8 ? 407 
PICO PICO PICO 
ESSAI NR 9 ? 740 


PICO PICO PICO 
FSSAI NR 10 ? 074 
C'EST BIEN LUII!I!I 


ON REJOUE ( Y ou N )? Y 


O.K. J'AI EN TETE UN NOMBRE. 


ESSAI NR 1 ? 012 
RAGFLS 

ESSAI NR 2 ? 345 
FERMI 

ESSAI NR 3 ? G7R 
PICO 

ESSAI NR 4 ? 932 
PICO PICO 

FSSAI NR 5 ? 396 
FFRMI FFRMI 

ESSAI NR 6 ? 397 


C'EST BIEN EUIII! 
ON REJOUF ( Y ou N )?N 


VOUS AVEZ MAROUF 3 POINT(S) AU BAGELS!I 
CA VONS A PLU, J'FSPFRF. SALUTII! 


5 PRINT TAB(33);"BAGELS":PRINT 


10 PRINT TAB(15);:"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY":PRINT:PRINT 


15 REM *** BAGLES NUMBER GUESSING GAME 
20 REM *** ORIGINAL SOURCE UNKNOWN BUT SUSPECTED TO BE 
25 REM *** LAWRENCE HALL OF SCIENCE, U.C. BERKELY 

30 DIM A1(6),A(3),B(3) 

40 Y=0:T=255 

50 PRINT:PRINT:PRINT 

70 INPUT "DESIREZ VOUS VOIR LES REGLES ( Y ou N )";AS 
90 IF LEFTS(AS,1)="N" OR LEFTS(AS,1)="n" THEN 150 


100 PRINT:PRINT “J'AI EN TETE UN NOMBRE DE 3 CHIFFRES. ESSAYEZ DE LE TROUVER." 


110 PRINT "JE VOUS FOURNIRAI LES INDICATIONS SUIVANTES :":PRINT 


120 PRINT * PICO - UN CHIFFRE CORRECT MAIS EN MAUVAISE POSITION" 
130 PRINT * FERMI - UN CHIFFRE CORRECT ET EN BONNE POSITION" 
140 PRINT * BAGELS - AUCUN CHIFFRE CORRECT" 


150 FOR I=1 TO 3 
160 A(I)=INT(1O#*RND(1)) 
165 IF 1-1=0 THFN 200 

170 FOR J=1 TO I-1 

180 IF A(I1)=A(J) THEN 160 
190 NEXT J 

200 NEXT 1! 

210 PRINT:PRINT “O.K. J'AI EN TETE UN NOMBRE." 
220 FOR I=1 TO 20 

230 PRINT "ESSAI NR":1, 
240 INPUT AS 

245 IF LEN(AS)<>3 THEN 630 
250 FOR Z=1 TO 3:A1(Z)=ASC(MIDS(AS,Z,1)):NEXT Z 
260 FOR J=] TO 3 

270 IF Al(J)<48 THEN 300 
280 IF Al(J)>57 THEN 300 
285 B(J)=A1(J)-48 

290 NEXT J 

295 GOTO 320 

300 PRINT "QUOI?" 

310 GOTO 230 

320 IF B(1)=B(2) THEN 650 
330 1F B(2)=B(3) THEN 650 
340 1F B(3)=B(1) THEN 650 
350 C=0:D=0 

360 FOR J=1 TO 2 

370 IF A(J)<>B(J+1) THEN 390 
380 C=C+1 

390 IF A(J+1)<>B(J) THEN 410 
400 C=C+1 

410 NFXT J 

420 IF A(1)<>B(3) THEN 440 
430 C=C+1 

440 IF A(3)<>R(1) THEN 460 
450 C=C+#1 

460 FOR J=1 TO 3 

470 IF A(J)<>B(J) THEN 490 
4RO D=D4+1 

490 NEXT J 

500 IF D=3 THEN 680 

505 IF C=0 THEN 545 

520 FOR J=1 TO C 

530 PRINT "PICO "; 

540 NEXT J 

545 IF D=0 THEN 580 

550 FOR J=1 TO D 

560 PRINT “FERMI 

570 NEXT J 

580 IF C+D<>0 THEN 600 

590 PRINT “RAGELS"; 

600 PRINT 

605 NEXT I 

610 PRINT “OH BON." 


615 PRINT “CA FAIT 20 ESSAIS. MON NOMBRE ETAIT":;:100*A(1)+10*A(2)+A(3) 


630 PRINT "FSSAYEZ DE TROUVER UN NOMBRE DE 3 CHIFFRES.":GOTO 230 


650 PRINT "OH, J'AI OUBLIE DF VOUS DIRE QUE LE NOMBRE AUQUEL JF PENSE" 


660 PRINT “M'A PAS 2 CHIFFRES PAREILS.":GOTO 230 

6RO PRINT “C'EST BIEN LUILII":PRINT 

690 Y=Y+1 

700 INPUT "ON REJOUF ( Y ou N )":A$ 

720 IF LEFTS(AS,1)="Y" OR LEFT$S(AS$,1)="y" THEN 150 

730 IF Y=0 THEN 750 

740 PRINT:PRINT “VOUS AVEZ MARQUE":Y;"POINT(S) AU BAGFLS!!" 
750 PRINT “CA VOUS À PLU, J'ESPERE. SALUT!" 

999 END 
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Banner* (La bannière) 





Ce programme réalise une grande ban- 
nière sur un terminal, à partir de n'importe 
quel message que vous entrez. La lon- 
gueur du message peut être aussi longue 
qu'une variable chaîne le permet dans 
votre version de BASIC. Les lettres peu- 
vent avoir la dimension que vous souhai- 
tez bien que la hauteur de la lettre plus 
l'espace du côté gauche ne doivent pas 
excéder 15 centimètres. Faites l'expé- 
rience avec la hauteur et la largeur jusqu'à 
ce que vous obteniez un résultat plaisant 
quel que soit le terminal que vous utilisez. 
Les lettres et les caractères permis sont 
définis dans les instructions data 899 à 
940. 

Beaucoup de personnes semblent avoir 
des difficultés à faire fonctionner ce pro- 
gramme, cependant après une vérification 
minutieuse, nous garantissons que la ver- 
sion présentée a fonctionné correctement. 
Nous soupçonnons que le problème dé- 
pend du Basic lui-même et de la manière 
dont il lit et restitue les fichiers de don- 
nées. 

Ce programme a été écrit par Léonard 
Rosendust de Brooklyn, New York. 


10 INPUT "DIMENSION HORIZONTALE LETTRE “;X 
20 INPUT "DIMENSION VERTICALE LETTRE ";Y:PRINT 


21 INPUT "VOULEZ VOUS QUE LA BANNIFRE SOIT CENTREE ":L 


IF LEFTS(L$,1)="N" OR LEFTS(LS,1)="n" THEN 


PRINT "LE REGLAGE DIABLO (ESCAPE 9) PEUT SERVIR POUR LA MARGF GAUCHF" 
22 Gl=0:1F LEFTS(L$S,1)="Y" OR LEFT$S(LS,1)="y" THEN Gl=] 


29 PRINT:PRINT "MESSAGE (FN CAPITALES)"; 
30 INPUT AS 
31 INPUT 


“"CARACT. PR IMPR.(TAPEZ 'ALL' SI VOUS VOULFZ LE CARACTFRE EN COURS)";MS 
35 PRINT:LINE INPUT "ENRFZ ‘RETURN' QUAND PAPIFR EN PLACF.";RRS 
36 PRINT:PRINT:PRINT "--- J'ecris —--":PRINT: PRINT 


40 A=ASC(LEFTS(AS,1)) 
50 RFM 

60 REM 

70 FOR T=1 TO LEN(AS$) 
80 P$=MIDS(AS,T,1) 


* Cette version est destinée à une exécution sur 
une imprimante. 


90 FOR O=1 TO 50 
95 READ SS,S(1),S(2),S(3),S(4),S(5),S(6),S(7) 
96 1F PS$=" " THEN 812 


100 
120 
200 
201 

202 
205 
210 
230 
240 
250 
270 
272 
280 
445 
447 
450 
460 
465 
470 
500 

510 
520 

530 
600 
620 
630 

700 
750 
800 
806 
810 
812 
813 

815 
899 
900 
901 

902 
903 
904 
905 
906 
907 
908 
909 
910 
911 

912 
913 
914 
915 
916 
917 
918 
919 
920 
921 

922 
923 

924 
925 
926 
927 

928 
929 
930 
931 

932 
933 
934 
935 
936 
937 
938 
939 
940 


IF P$=S$ THEN 200 

NEXT O 

RESTORE 

XS=MS 

IF MS="ALL" OR M$="All" OR MS="all" THEN X$=S$ 
FOR U=]l TO 7 

FOR K=8 TO O STEP -1 

IF 2*K<S(U) THEN 270 

J(9-K)=0 

GOTO 280 

J(9-K)=1: S(U)=S(U)-2*K 

IF S(U)=1 THEN 815 

NEXT K 

FOR Tl=l TO X 

LPRINT TAR((63-4.5*Y)*G1/(LEN(XS))+1); 
FOR B=1 TO F(U) 

IF J(B)=0 THEN 500 

FOR I=1 TO Y: LPRINT XS;: NFXT I 
GOTO 600 

FOR 1=1 TO Y 

FOR 11=1 TO LEN(XS) 

LPRINT “ “;: NEXT Il 

NEXT I 

NEXT B 

LPRINT 

NEXT TI 

NEXT U 

FOR H=]1 TO 2#*X: LPRINT: NEXT H 

NEXT T 

LPRINT CHRS(12) 

END 

FOR H=]1 TO 7*X: LPRINT: NEXT H 

GOTO 800 

F(U)=9-K: GOTO 445 

DATA “ ",0,0,0,0,0,0,0 

DATA "A",505,37,35,34,35,37,505 

DATA "G",125,131,258,258,290,163,101 
DATA "E",512,274,274,274,274,258,258 
DATA "T",2,2,2,512,2,2,2 

DATA "W",256,257,129,65,129,257,256 
DATA "L",512,257,257,257,257,257,257 
DATA "S",69,139,274,274,274,163,69 
DATA "O",125,131,258,258,258,131,125 
DATA "N",512,7,9,17,33,193,512 

DATA "F",512,18,18,18,18,2,2 

DATA "K",512,17,17,41,69,131,258 
DATA "R",512,274,274,274,274,274,239 
DATA "D",512,258,258,258,258,131,125 
DATA "H",512,17,17,17,17,17,512 

DATA "M",512,7,13,25,13,7,512 

DATA "?",5,3,2,354,18,11,5 

DATA "U",128,129,257,257,257,129,128 
DATA "R",512,18,18,50,82,146,271 
DATA "P",512,18,18,18,18,18,15 

DATA "Q",125,131,258,258,322,131,381 
DATA "Y",8,9,17,481,17,9,8 

DATA "V",64,65,129,257,129,65,64 
DATA "X",388,69,41,17,41,69,388 

DATA "Z",386,322,290,274,266,262,260 
DATA "1",258,258,258,512,258,258,258 
DATA "C",125,131,258,258,258,131,69 
DATA "J",65,129,257,257,257,129,128 
DATA "“1",0,0,261,259,512,257,257 
DATA "“2",261,387,322,290,274,267,261 
DATA "*",69,41,17,512,17,41,69 

DATA “3",66,130,258,274,266,150,100 
DATA "4",33,49,41,37,35,512,33 

DATA "5",160,274,274,274,274,274,226 
DATA "6",194,291,293,297,305,289,193 
DATA "7",258,130,66,34,18,10,8 

DATA "8",69,171,274,274,274,171,69 
DATA “9",263,138,74,42,26,10,7 

DATA "=",41,41,41,41,41,41,41 

DATA "l",1,1,1,384,1,1,1 

DATA "0",57,69,131,258,131,69,57 
DATA ".",1,1,129,449,129,1,1 


1000 STOP 
1002 END 


EN PLACE. 


QUAND PAPIER 


“RETURN 


ENREZ 


AAXXX 
AAAXX 
AAAXX 


AAAAAAAAXAAAAXX 
AAARAXAXAAAAXAX 
AAAXXAAXAAXAAXX 


sssss 
sssss 
sssss 
sssss 
Sssss 
sssss 
sssss 
sssss 
sssss 
sssss 
sssss 
sssss 
Sssss 
Sssss 
Sssss 
sssss 
sssss 
Ssssss 
sssss 
sssss 
sssss 


ecris 


g' 


sssss 
sssss 
sssss 


sssss 
sssss 
sssss 
sssss 
Ssssss 
sssss 
Sssss 
sssss 
Sssss 


sssss 

sssss 

sssss 
Ssssss 
sssss 
sssss 


sssss 

SSssss 

sssss 
Sssss 


Sssss 
sssss 


sssss 
sssss 
sssss 
Ssssss 
sssss 
sssss 
sssss 
sssss 
sssss 


geggg 
gggug 
gagug 
auggau 
uaggg 
gugug 
guugg 
deggag 
gegaug 
agugg 
gaaag 
veggg 
gugau 
uduggu 
gauga 


veggagggagaagag 
geggaueuageag8g 
seggugggggaaugg 


auaag 
gaggg 
gugag 
gaggg 
ugggg 
gagag 
auggg 
uaaag 
gaugg 
aggug 
gauda 
agggg 
geugg 
geggg 
ggaug 


Segeggaggggaggg 
Segssegaggagaag 
Sesesagggaaadag 


agguu 
agagg 
uaggg 
gsggag 
aggga 
ggggg 
uaggg 
gagag 
ggggg 
adagg 
uaggg 
dagag 
guugg 
agugg 
gauag 


dgggagaguguggggggggggguuggagguuuaggguggaggggg 
ÉCECCECECEECECECE CCE ECC CCC CE CCCLELECECCCECCE 


duggugdagggguaggggagggggggaagagugauggagduauggg 





XXXXXXXXXX XXXXXXXXXX 
XXXXXXXXXX XXXXXXXXXX 
XXXXXXXXXX XXXXXXXXXX 
XXXXX XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 
XXXXX 
XXXXX 
XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 
XXXXX XXXXX 
XXXXXXXXXX XXXXXXXXXX 
XXXXXXXXXX XXXXXXXXXX 
XXXXXXXXXX XXXXXXXXXX 
dad4dd 
34334 
34 44344 
344334 34434 
43344 34344 
34333 3444 
33444 33333 
34444 34434 
d344d 343443 
34334 34444 
44443 aadad 
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BANNER 
DIMENSION VERTICALE UNF LETTRE 


DIMENSION HORIZONTALE LFTTRE 


CELELELLLLLLE EL] 


?2N 


LE REGLAGE DIABLO (FSCAPE 9) PEUT SERVIR POUR LA MARGE GAUCHE 


VOULFZ VOUS QUE LA BANNIERE SOIT CENTREE 
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SI VOUS VOULEZ LE CARACTERE EN COURS)? ALL 


"ALL" 


MESSAGE (EN CAPITALES)? SYBEX 


CARACT. PR IMPR. (TAPEZ 


Basketball 





Ce programme simule un match de 
basketball entre le Dartmouth College et 
un adversaire de votre choix. Vous êtes 
le capitaine de Dartmouth et vous contrô- 
lez la stratégie d'attaque et de défense 
tout au long de la partie. || y a quatre 
sortes de tirs : 1. Tir long en sautant (9 m), 
2. Tir court en sautant (4 m 50), 3. Panier, 
4. Tir sur place. Les deux équipes utilisent 
la même défense, mais vous pouvez la 
déterminer : faire le pressing (6), le mar- 
quage individuel (6.5), défendre la zone 
(7), défense libre (7). Pour changer la dé- 
fense, tapez « 0 » à votre prochain tir. 


BASKETBALL 


Remarque : Le jeu est légèrement en 
faveur de Dartmouth. La probabilité 
moyenne pour qu'un tir de Dartmouth soit 
bon est de 62,95 % comparé à une proba- 
bilité de 61,85 % pour leur adversaire. 
(Cela rend le match de démonstration as- 
sez remarquable dans la mesure où Cor- 
nell a gagné par un score de 45 à 42. 
Hourra pour Big Red !) 

L'auteur original de ce jeu était Charles 
Bacheller du Dartmouth College. 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


VOUS ETES LE CAPITAINE DE L'EQUIPE DE PRINCETON ET SON 


ENTRAINEUR. CODEZ LES TIRS COMME SUIT: 
EN SAUTANT; 2. TIR COURT(15 PIEDS) EN SAUTANT: 
4. DE PIED FERME. 


1. TIR LONG(30 PIEDS) 


SOUS LE PANIER; 


LES 2 EQUIPES UTILISERONT LA MEME DEFENSE. CODEZ LA DEFENSE COMME 


SUIT: 


6. ATTAQUE; 6.5 MARQUAGE; 7. ZONE; 7.5 LIBRE. 


POUR CHANGER DE DEFENSE, ENTREZ O A VOTRE PROCHAIN COUP 


AU DEBUT VOTRE DEFENSE SERA? 7 


QUEL SERA VOTRE ADVERSAIRE? C.S.TRIFOUILLY 


SAUT AU CENTRE 
C.S.TRIFOUILLY DRIBBLE. 


TIR EN SAUTANT. 
À COTE DU PANIER. 
PRINCETON CONTROLE LE REBOND. 


À VOUS DE TIRER? 2 

TIR EN SAUTANT 

TIR MANQUE. 

REBOND PRIS PAR C.S.TRIFOUILLY 


TIR EN 
TIR CONTRE. 


A VOUS DE TIRER? 2 
SAUTANT 


BALLF CONTROLEE PAR C.S.TRIFOUILLY. 


TIR EN SAUTANT. 
TIR RFUSSI. 


SCORE: 4 TO 8 


À VOUS DE TIRER? 3 


DE PIED FERME. 
TIR RATE. 
PRINCETON CONTROLE LE REBOND. 


SOUS LE PANIER. 
TIR REUSSI. 
SCORE: 


2 POINTS. 


6 TO 8 


À VOUS DE TIRER? 3 
SOUS LE PANIER. 

TIR REUSSI. 2 POINTS. 
SCORE: 2 TO O 


DE PIED FERME. 
BON TIR. 
SCORE: 2 TO 2 

A VOUS DE TIRER? 1 

TIR EN SAUTANT 

TIR MANQUE. 

REBOND PRIS PAR C.S.TRIFOUILLY 


DE PIED FERME. 

TIR RATE. 

C.S.TRIFOUILLY CONTROLE LE REBOND. 
DE PIFD FERME. 

TIR RATE. 

C.S.TRIFOUILLY CONTROLE LE REBOND. 
DE PIED FERME. 

BON TIR. 
SCORE: 2 TO 4 

À VOUS DE TIRER? 4 
DE PIED FERME. 

TIR À COTE DU PANIER. 


PRINCETON PREND LE CONTROLE AU RFBOND. 


DE PIED FERME. 
TIR REUSSI. 2 POINTS. 
SCORE: 4 TO 4 


TIR EN SAUTANT. 

JOUEUR AGRESSE. 2 TIRS. 

LE TIREUR REUSSIT LES 2 LANCES. 
SCORE: 4 TO 6 


DE PIED FERMF. 
TIR RATE. 
PRINCETON CONTROLE LE REBOND. 


A VOUS DE TIRER? 3 
SOUS LE PANIER. 

TIR REUSSI. 2 POINTS. 
SCORE: 8 TO 8 


TIR EN SAUTANT. 
TIR REUSSI. 
SCORE: 8 TO 10 


A VOUS DE TIRER? 1 

TIR EN SAUTANT 

TIR MANQUE. 

REBOND PRIS PAR C.S.TRIFOUILLY 


TIR EN SAUTANT. 

JOUEUR AGRESSE. 2 TIRS. 

LE TIREUR REUSSIT LES 2 LANCES. 
SCORE: 8 TO 12 


A VOUS DE TIRER? 3 
SOUS LE PANIFR. 

TIR REUSSI. 2 POINTS. 
SCORE: 10 TO 12 


SOUS LEPANIER. 
TIR RATE. 
C.S.TRIFOUILLY CONTROLE LE REBOND. 


PASSE EN ARRIFRE PRISE PAR DEFENSE DE C.S.TRIFOUILLY 


TIR EN SAUTANT. 
TIR REUSSI. 
SCORE: 10 TO 14 


12 


Plus tard dans le jeu. 


À VOUS DE TIRER? 3 
SOUS LE PANIER. 

TIR REUSSI. 2 POINTS. 
SCORE: 38 TO 44 


DF PIED FERME. 
TIR RATE. 
PRINCETON CONTROLE LE RERBOND. 


À VOUS DE TIRER? 3 

SOUS LE PANIER. 

TIR À COTF DU PANIER. 

C.S.TRIFOUILLY PREND LF CONTROLE AU REBOND. 


SOUS LEPANIER. 
BON TIR. 
SCORE: 38 TO 46 


A VOUS DE TIRER? 3 
SOUS LE PANIER. 

TIR RFUSSI. 2 POINTS. 
SCORE: 40 TO 46 


SOUS LEPANIFR. 
BON TIR. 
SCORE: 40 TO 48 
À VOUS DE TIRER? 3 

*#*#* 2 MINUTES D'ARRETS DE JEU *** 


SOUS LF PANIER. 

TIREUR AGRESSE. 2 TIRS. 

LF TIRFUR REUSSIT LES 2 LANCES. 
SCORF: 42 TO 48 


SOUS LEPANIER. 
BON TIR. 
SCORE: 42 TO 50 

A VOUS DFE TIRER? 3 
SOUS LE PANIFR. 

TIR REUSSI. 2 POINTS. 
SCORE: 44 TO 50 


SOUS LEPANIER. 
RON TIR. 
SCORE: 44 TO 52 

A VOUS DE TIRER? 2 
TIR EN SAUTANT 
CHARGE IRREGULIERE. PRINCFTON PERD LA BALLE. 
TIR EN SAUTANT. 

TIR REUSSI. 

SCORE: 44 TO 54 


A VOUS DE TIRER? 2 

TIR EN SAUTANT 

TIR MANQUE. 

PRINCETON PREND LE CONTROLE AU REBOND. 


VOUS REPRENEZ LA BALLE SUR UNF PASSE ARRIERE. À 


TIR EN SAUTANT 
TIR MANQUE. 
REBOND PRIS PAR C.S.TRIFOUILLY 


VOUS DE TIRER? 


DFE PIED FERME. 

TIR RATE. 

C.S.TRIFOUILLY CONTROLE LE RFBOND. 
DE PIFD FERME. 

BON TIR. 
SCORE: 44 TO 56 

À VOUS DE TIRER? 3 

SOUS LE PANIER. 

TIR CONTRE. LA BALLF PASSE À C.S.TRIFOUILLY 


SOUS LEPANIER. 
BON TIR. 
SCORE: 44 TO 58 

À VOUS DE TIRER? 3 


*#*#*#** FIN DE LA PARTIE ****#**# 
SCORE FINAL: PRINCETON: 44 
File not found in 520 
Ok 


1 


C.S.TRIFOUILLY: 58 


5 PRINT TAB(31):"BASKETBALL" 
7 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

8 PRINT:PRINT:PRINT 

10 PRINT "VOUS ETES LE CAPITAINE DE L'EQUIPE DE PRINCETON ET SON" 
20 PRINT "ENTRAINEUR. CODEZ LES TIRS COMME SUIT: 1. 





TIR LONG(30 PIEDS)" 












30 PRINT "EN SAUTANT: 2. TIR COURT(15 PIEDS) EN SAUTANT: 3. SOUS LE PANIER:" 

40 PRINT "4. DE PIED FERME.":PRINT 

60 PRINT "LES 2 EQUIPES UTILISERONT LA MEME DEFENSE. CODEZ LA DEFENSE COMME" 

70 PRINT "SUIT: 6. ATTAQUE; 6.5 MARQUAGE; 7. ZONE; 7.5 LIBRE." 

72 PRINT "POUR CHANGER DE DEFENSE, ENTREZ O À VOTRE PROCHAIN COUP":PRINT 

76 INPUT "AU DEBUT VOTRE DEFENSE SERA";D:1F D<6 THEN 2010 

79 PRINT 

80 INPUT "QUEL SERA VOTRE ADYVERSAIRE";0$ 

90 PRINT:PRINT 

370 PRINT "SAUT AU CENTRE" 

390 IF RND(1)> 3/5 THEN 420 

400 PRINT O$;" DRIBBLE." 

410 GOTO 3000 

420 PRINT “PRINCETON DRIBBLE." 

425 PRINT 

430 INPUT “A VOUS DE TIRER":Z 

440 P=0 

445 IF Z<>INT(Z) THEN 455 

446 IF Z<0 OR 2>4 THEN 455 

447 GOTO 460 

455 PRINT "REPONSE NON VALABLE. RECOMMENCEZ. ";:GOTO 430 

460 IF RND(1)<.5 THEN 1000 

480 IF T<100 THEN 1000 

490 PRINT 

491 IF S(1)<>S(0) THEN 510 

492 PRINT:PRINT " ####** FIN 2EME MI-TEMPS *#*#*##*";:PRINT 

493 PRINT "SCORE À LA FIN DU TEMPS REGLEMENTAIRE:" 

494 PRINT " PRINCETON:";S(1);" "“;0$;":";S(0) 

495 PRINT 

496 PRINT "DEBUT PROLONGATION DE 2 MINUTES" 

499 T=93 

500 GOTO 370 

510 PRINT " #*###** FIN DE LA PARTIE *####" 

515 PRINT "SCORE FINAL: PRINCETON:";S(1);" ";:0$;:":";S(0) 

520 END 

600 PRINT 

610 PRINT “ *#*#* 2 MINUTES D'ARRETS DE JEU #***" 

620 PRINT 

630 RETURN 2010 INPUT "VOTRE NOUVEAU TYPE DE DEFENSE EST" 
1000 ON Z GOTO 1040,1040 2030 IF D<6 THEN 2010 

1030 GOTO 1300 2040 GOTO 425 

1040 T=T+1 3000 P=] 

1041 IF T=50 THEN 8000 3005 T=T+1 

1042 1F T=92 THEN 1046 3008 IF T=50 THEN 8000 

1043 GOTO 1050 3012 GOTO 3018 

1046 GOSUB 600 3015 GOSUB 600 

1050 PRINT "TIR EN SAUTANT" 3018 PRINT 

1060 IF RND(1)>.341#*D/8 THEN 1090 3020 Z1=10/4*RND(1)+1 

1070 PRINT "TIR REUSSI." 3030 1F Z1>2 THEN 3500 

1075 GOSUR 7000 3040 PRINT "TIR EN SAUTANT." 

1085 GOTO 3000 3050 IF 8/D*RND(1)>.35 THEN 3100 

1090 IF RND(1)>.682*D/8 THEN 1200 3060 PRINT "TIR REUSSI." 

1100 PRINT "TIR MANQUE." 3080 GOSUB 6000 

1105 IF D/6*RND(1)>.45 THEN 1130 3090 GOTO 425 

1110 PRINT "PRINCETON PREND LE CONTROLE AU REBOND." 3100 IF 8/D*RND(1)>.75 THEN 3200 
1120 GOTO 1145 3105 PRINT “A COTE DU PANIER." 

1130 PRINT "REBOND PRIS PAR ";0$ 3110 1F D/6*RND(1)>.5 THEN 3150 

1140 GOTO 3000 3120 PRINT “PRINCETON CONTROLE LE REBOND." 
1145 IF RND(1)>.4 THEN 1158 3130 GOTO 425 

1150 GOTO 1300 3150 PRINT O$;" CONTROLE LE REBOND." 
1158 IF D=6 THEN 5100 3160 IF D=6 THEN 5000 

1160 PRINT "VOUS REPRENFZ LA BALLF SUR UNE PASSE ARRIERE. "; 3165 IF RND(1)>.5 THEN 3175 

1170 GOTO 430 3168 PRINT “PASSF EN ARRIERE PRISE PAR DEFENSE DE ":0$ 
1180 IF RND(1)>.9 THEN 1190 3170 GOTO 3000 

1185 PRINT "JOUEUR AGRESSF, 2 TIRS." 3175 GOTO 3500 

1187 GOSUB 4000 3200 IF 8/D*RND(1)>.9 THEN 3310 

1188 GOTO 3000 3210 PRINT “JOUEUR AGRESSE. 2 TIRS." 
1190 PRINT "BALLE PRISE. BALLE REVIENT À ";:0$ 3220 GOSUB 4000 

1195 GOTO 3000 3230 GOTO 425 

1200 IF RND(1)>.782*D/8 THEN 1250 3310 PRINT “ATTAQUE BRUTALE. BALLF À PRINCFTON." 
1210 PRINT "TIR CONTRF. BALLE CONTROLEE PAR "; 3320 GOTO 425 

1230 IF RND(1)>.5 THEN 1242 3500 1F Z1>3 THEN 3800 

1235 PRINT "PRINCFTON." 3510 PRINT “SOUS LEPANIER." 

1240 GOTO 430 3520 1F 7/D*RND(1)>.413 THEN 3600 
1242 PRINT OS;"." 3530 PRINT "BON TIR." 

1245 GOTO 3000 3540 GOSUB 6000 

1250 IF RND(1)>.843*D/8 THEN 1270 3550 GOTO 425 

1255 PRINT "TIREUR AGRESSE. 2 COUPS FRANCS." 3600 PRINT “TIR RATE." 

1260 GOSUB 4000 3610 GOTO 3110 

1265 GOTO 3000 3800 PRINT "DE PIED FERME." 

1270 PRINT "CHARGE IRREGULIERE. PRINCETON PERD LA BALLE." 3810 GOTO 3520 

1280 GOTO 3000 4000 REM TIR DES COUPS FRANCS 

1300 T=T+1 4010 IF RND(1)>.49 THEN 4050 

1301 IF T=50 THEN 8000 4020 PRINT “LF TIREUR REUSSIT LES 2 LANCES." 
1302 IF T=92 THEN 1304 4030 S(1-P)=S(1-P)+2 

1303 GOTO 1305 4040 GOSUB 6010 

1304 GOSUB 600 4041 RETURN 

1305 IF Z=0 THEN 2010 4050 IF RND(1)>.75 THEN 4100 

1310 IF 2>3 THEN 1700 4060 PRINT “LE TIREUR REUSSIT 1 TIR ET MANQUE L'AUTRE." 
1320 PRINT "SOUS LE PANIER." 4070 S(1-P)=S(1-P)+1 

1330 IF 7/D*RNN(1)>.4 THEN 1360 4080 GOTO 4040 

1340 PRINT "TIR REUSSI. 2 POINTS." 4100 PRINT “LES 2 TIRS SONT MANQUES." 
1345 GOSUB 7000 4110 GOTO 4040 

1355 GOTO 3000 5000 IF RND(1)>.75 THEN 5010 

1360 IF 7/D*RND(1)>.7 THEN 1500 5005 GOTO 3165 

1370 PRINT "TIR A COTE DU PANIER." 5010 PRINT "“BALLF PRISF. "SOUS LE PANIER' FACILE POUR PRINCETON." 
1380 IF RND(1)>2/3 THEN 1415 5015 GOSUB 7000 

1390 PRINT O$;:" PREND LE CONTROLE AU REBOND." 5030 GOTO 3000 

1400 GOTO 3000 5100 IF RND(1)>.6 THEN 5120 

1415 PRINT “PRINCETON PREND LE CONTROLE AU REBOND." 5110 GOTO 1160 

1420 IF RND(1)>.4 THEN 1440 5120 PRINT “PASSE INTERCEPTEE PAR ";0$S;" "SOUS LE PANIER' FACILE." 
1430 GOTO 1300 5130 GOSUR 6000 

1440 PRINT “VOUS INTERCEPTEZ UNE PASSE ARRIERE. "; 5140 GOTO 425 

1450 GOTO 430 6n00 S(0)=S(0)+2 

1500 IF 7/D*RND(1)>.875 THEN 1600 6010 PRINT “SCORF: “;S(1);:"TO";S(0) 
1510 PRINT "TIREUR AGRESSE. 2 TIRS." 6020 RETURN 

1520 GOSUB 4000 7000 s(1)=s(1)+2 

1530 GOTO 3000 7010 GOSUB 6010 

1600 IF 7/D#*RND(1)>.925 THEN 1630 7020 RETURN 

1610 PRINT "TIR CONTRE. LA BALLE PASSE À ":0$ 8000 PRINT:PRINT “  #*####* FIN DE LA lERE MI-TEMPS *#*#*#*#*" 
1620 GOTO 3000 8010 PRINT "SCORE: PRINCETON:";S(1);" "30$; :S(0) 
1630 PRINT “CHARGE IRREGULIERE. PRINCETON PERD LA BALLF." 8015 PRINT 

1640 GOTO 3000 8016 PRINT 

1700 PRINT "DE PIED FERME." 8020 GOTO 370 

1710 GOTO 1330 9999 END 
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Batnum 





(La bataille des nombres) 


Le jeu commence avec une pile imagji- 
naire d'objets, des pièces de monnaie par 
exemple. Vous et votre adversaire (l'ordi- 
nateur) enlevez chacun votre tour des ob- 
jets de la pile. Vous déterminez à l'avance 
le nombre minimum et maximum d'objets 
que vous pouvez prendre à chaque tour. 
Vous spécifiez également à l'avance la fa- 
çon dont on gagne la partie : 1. en prenant 
le dernier objet, 2. en évitant de prendre le 
dernier objet. Vous pouvez aussi détermi- 
ner qui de vous deux commencera en pre- 
mier. 

La stratégie de ce jeu est basée sur un 
modulo arithmétique. Si le nombre mini- 
mum d'objets qu'un joueur peut enlever 
dans un tour est M, pour prendre l'avan- 
tage, un joueur doit laisser un tas de 
pièces de 1 modulo (M+1) après avoir 
joué. Si vous ne comprenez pas cela, 
jouez d'abord au jeu des 23 allumettes, 
ensuite au Batnum et amusez-vous bien ! 

Batnum est une version généralisée 
d'un grand nombre de jeux consistant à 
retirer des objets à la main. 

La version originale sur ordinateur a été 
écrite par l'un des deux créateurs du lan- 
gage BASIC : John Kemeny du Dartmouth 
College. 


BATNUM 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


Ceci est le jeu de la ‘Bataille des Nombres', ou vous jouez 


contre l'ordinateur 


Au depart on a une pile supposee d'objets. Vous enlevez, chacun 
a votre tour, des objets de la pile. On definit, a l'avance 
le gagnant comme etant celui qui prend ou non le dernier objet. 
Vous pourriez definir d'autres conditions de debut de jeu. 
Cependant, n'utilisez pas zero en cours de partie. 


Pour arreter le jeu donnez une valeur Negative a la nouvelle pile. 


TAILLF DE LA PILF? 23 

OPTION GAGNANTF - 1 PRENDRE LF DERNIER, 2 
ENTREZ MIN ET MAX ? 1,3 

OPTION NE DEPART - 1 ORDINATEUR LE J1ER, 2 VOUS D'ABORD ? 2 


EVITER LE DERNIER: ? 2 


A VOUS DF JOUER ? 2 


L'ORDINATEUR PREND 1 FT LAISSF 20 


A VOUS DE JOUER ? 3 


L'ORDINATEUR PREND 1 ET LAISSF 16 


A VOUS DE JOUER ? 3 
L'ORDINATEUR PREND 1 ET LAISSF 12 
À VOUS DE JOUER ? 3 
L'ORDINATEUR PREND 1 ET LAISSE 8 
A VOUS DE JOUER ? 3 
L'ORDINATEUR PREND 1 ET LAISSE 4 
À VOUS DE JOUER ? 3 


L'ORDINATEUR PREND 1 PFRD. 


10 PRINT TAR(33);"RATNUM":PRINT 


20 PRINT TAR(15);"CREATIVE COMPUTING MORRISTOWN, 


NEW JERSEY" 


30 PRINT:PRINT:PRINT 


110 PRINT " Ceci est le jeu Ac la "Bataille des MNomhres', ou vous jouez" 
120 PRINT “contre l'ordinateur" 

130 PRINT 

140 PRINT “ Au denart on a une pile supposee d'objets. Vous enlevez, chacun" 
150 PRINT “a votre tour, des objets de la pile. On definit, a l'avance" 
160 PRINT “le qaanant comne etant celui qui prend ou non le dernier ohjet." 
170 PRINT “Vous pourriez definir d'autres conditions de debut de jeu." 
180 PRINT “Cependant, n'utilisez pas zero en cours de partie.":PRINT 
190 PRINT “Pour arreter le jeu donnez une valeur Negative a la nouvelle pile." 
200 PRINT:PRINT 

210 GOTO 330 

220 FOR 1=1 TO 10 

230 PRINT 

240 NEXT 1! 

330 INPUT "TAILLE DE LA PILE";N 

350 IF N>=1 THEN 370 

360 PRINT:PRINT:PRINT:RUN "MENU" 

370 IF N<>INT(N) THEN 220 

380 IF N<l THEN 220 

390 INPUT “OPTION GAGNANTE - 1 PRENDRE LE DERNIER, 2 FEVITER LE DERNIER: ":M 
410 IF M=] THEN 430 

420 IF M<>2 THEN 390 

430 INPUT "FNTREZ MIN ET MAX ":A,B 

450 IF A>R THEN 430 

460 IF A<l THFN 430 

470 IF A<>INT(A) THFN 430 

480 IF B<>INT(B) THEN 430 

490 INPUT "OPTION DE DEPART - 1 ORDINATEUR LE J1ER, 2 VOUS D'ABORD “:;S 
500 PRINT:PRINT 

510 IF S=1 THEN 530 

520 1F S<>2 THEN 490 

530 C=A+R 

540 IF S=2 THEN 570 

550 GOSUR 600 

560 IF W=1 THEN 220 

570 GOSUB 810 

580 IF W=1 THEN 220 

590 GOTO 550 

600 Q=N 

610 IF M=1 THEN 630 

620 N=Q-1 

630 IF M=1 THEN 680 

640 IF N>A THEN 720 

650 Ww=1 

660 PRINT:PRINT “L'ORDINATEUR PREND";N;"ET PERD." 

670 PFTURN 

680 IF N>B THEN 720 

690 W=]1 

700 PRINT:PRINT "L'ORDINATEUR PREND";:N;"ET GAGNE." 

710 RETURN 

720 P=Q-C*INT(Q/C) 

730 IF P>=A THEN 750 

740 P=A 

750 IF P<=R THEN 770 

760 P=B 

770 N=N-P 

780 PRINT:PRINT “L'ORDINATEUR PREND";P;"FT LAISSE";:N 

790 W=0 

800 RETURN 

810 PRINT:PRINT “A VOUS DE JOUER "; 

820 INPUT P 

830 IF P<>O THEN 870 

840 PRINT:PRINT:PRINT “IL NF FALLAIT PAS UTILISER ZEROI "; 

845 PRINT “VOUS ETES HORS JEU. L'ORDINATEUR GAGNE." 

850 W=1 

860 RETURN 

870 IF P<>INT(P) THFN 920 

880 IF P>=A THEN 210 

890 IF P=N THEN 960 

900 GOTO 920 

910 IF P<=B THEN 940 

920 PRINT “COUP INTERDIT, REJOUFZ “; 

930 GOTO 820 

940 N=N-P 

950 IF N<>O THEN 1030 

960 IF M=1 THEN 1000 

970 PRINT:PRINT "PAS DE BOL, C'EST RAPE." 

980 W=] 

990 RETURN 

1000 PRINT:PRINT:PRINT “FELICITATIONS, MAGNIFIQUE VICTOIRE." 

1010 W=1 

1020 RETURN 

1030 IF N>=0 THEN 1060 

1040 N=N+P 

1050 GOTO 920 

1060 w=0 

1070 RETURN 

1080 END 
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Battle (La bataille navale) 





Battle est basé sur le jeu populaire de la 
bataille navale qui se joue en principe pour 
familiariser les gens avec l'emplacement 
et la désignation de points sur un plan 
coordonné. 

Battle positionne tout d'abord aléatoire- 
ment la flotte des méchants sur une ma- 
trice ou grille de 6 par 6. La flotte com- 
prend six navires : deux destroyers (na- 
vires n° 1 et 2) qui font deux unités de lon- 
gueur, deux croiseurs (navires n° 3 et 4) 


L'objectif principal et l'avantage éducatif 
essentiel de BATTLE vient du fait que l’on 
essaye de déchiffrer le code de la disposi- 
tion de la flotte des méchants. Pour cela 
vous devez faire une comparaison entre la 
grille codée et la grille que vous, vous éta- 
blissez au fur et à mesure que vous jouez. 

L'auteur original de ce programme et de 
ces notes descriptives est Ray Wester- 
gard du Lawrence Hall of Science, Berke- 
ley, Californie. 


qui font trois unités de longueur et deux 
porte-avions qui font quatre unités. Le pro- 
gramme imprime ensuite cette disposition 
de la flotte dans un format codé ou mas- 
qué (voyez l'exemple imprimé par l'ordi- 
nateur). Vous vous mettez ensuite à cou- 
ler les différents navires en tapant les 
coordonnées (deux chiffres de 1 à 6 sé- 
parés par une virgule) de l'endroit où vous 
voulez lâcher une bombe, si vous voulez 
bien excuser l'expression. L'ordinateur 
donne les réponses appropriées 
(floc/boum, etc.) que vous devrez enregis- 
trer sur une grille de 6 par 6. Vous élabo- 
rez de cette façon une représentation de 
la disposition actuelle de la flotte que vous 

utiliserez pour décoder la disposition de la 0123456 
flotte codée imprimée par l'ordinateur. A 
chaque fois qu’un navire est coulé, l'ordi- 
nateur imprime quels sont les navires qui 
ont déjà été coulés et vous donne aussi un 
« rapport FLOC/BOUM ». 

La première chose que vous devez ap- 
prendre est la manière de situer et de dé- 
signer des positions sur la grille et plus 
spécialement la différence entre « 3,4 » et 
« 4,3 », Notre méthode correspond à la si- 
tuation de points sur le plan coordonné 
plutôt qu’à la situation de nombres dans 
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BATTLE 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


LA SITUATION CODEE SUIVANTE DE LA FOTTE DU ‘MECHANT‘ 
A ETE CAPTUREE MAIS NON DECODEE: 


à . o 6 0 O0 O0 O 4 
une grille algébrique standard. Le premier 0 6 0 0 4 0 
nombre vous donne la colonne en partant no Re one 
de la gauche vers la droite et le second NERRS 


vous donne la rangée en partant du bas 
vers le haut. 

La deuxième chose que vous devez 
connaître est le rapport floc/boum. 
« Qu'est-ce qu'un rapport ? » Une bonne SENS DE LAPARTIÉ 
réponse est : « C’est une fraction où Un ---------- 
quotient ». Le rapport floc/boum est de 
manière plus spécifique le nombre d’é- 
checs divisé par le nombre de coups 
portés. Si vous aviez 9 échecs et 
15 coups, le rapport serait 9/15 ou 3/5 qui 
sont tous les deux exacts. L'ordinateur 
vous donnerait un 6 pour ce rapport FLOCE JRECOPMENCEZ. 


floc/boum. 


DECODEZ LA ET SERVEZ VOUS EN, SI VOUS POUVEZ 
MAIS GARDEZ LE ‘CHIFFRE' SECRET. 


VOULEZ VS UNE COPIE PAPIER DE LA SITUATION CODEE DE LA FLOTTE? N 
VOULEZ VS UNE MATRICE 6x6 PAPIER POUR NOTER VOS RESULTATS? Y 


ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 3,3 
COUP AU BUT SUR NAVIRE No 4 
RECOMMENCEZ. 


ENTREZ COORDONNEES X,Y DE L'OBJECTIF A BOMBARDER? 2,3 


ENTREZ COORDONNEES X,Y DE L'OBJECTIF A BOMBARDER? 3,2 
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FLOCI RECOMMENCEZ. ENTREZ COORDONNEES X,Y DE L'OBJECTIF A BOMBARDER? 6,3 


ENTREZ COORDONNEES X,Y DE L'OBJECTIF A BOMBARDER? 4,3 FLOCI  RECOMMENCEZ. 
COUP AU BUT SUR NAVIRE No 6 ENTREZ COORDONNEES X,Y DE L'OBJECTIF A BOMBARDER? 5,5 
RECOMMENCEZ. FLOCI  RECOMMENCEZ. 
ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 3,4 ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 6,5 
COUP AU BUT SUR NAVIRE No 6 COUP AU BUT SUR NAVIRE No 3 
RECOMMENCEZ. RECOMMENCEZ. 
ENTREZ COORDONNEES X,Y DE L'OBJECTIF A BOMBARDER? 2,5 ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 6,6 
COUP AU BUT SUR NAVIRE No 6 COUP AU BUT SUR NAVIRE No 3 

ET VOUS LE COULEZ. HURRAH POUR LES GENTILS. 
RECOMMENCEZ. 

MAINTENANT, LES MECHANTS ONT PERDU 
ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMRARDER? 1,6 O DESTROYER(S), 2 CROISEUR(S), ET 2 PORTE-AVIONS. 
COUP AU BUT SUR NAVIRF No 6 VOTRE NOUVEAU RATIO ‘FLOC/BOUM' EST .5 


ET VOUS LE COULEZ. HURRAH POUR LES GENTILS. 
ENTREZ COORDONNEES X,Y DE L'OBJECTIF A BOMBARDER? 3,6 
MAINTENANT, LES MECHANTS ONT PERDU 


O DESTROYER(S), O CROISEUR(S), ET O PORTE-AVIONS. FLOCI  RECOMMENCEZ. 

VOTRE NOUVEAU RATIO 'FLOC/BOUM' EST .4 ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 4,6 
ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 2,4 COUP AU BUT SUR NAVIRE No 1 

FLOCI  RECOMMENCEZ. RECOMMENCEZ. 

ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 4,2 ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 5,6 
COUP AU BUT SUR NAVIRE No 2 FLOCI  RECOMMENCEZ. 

RECOMMENCEZ. ENTREZ COORDONNEES X,Y DE L'OBJECTIF A BOMBARDER? 3,5 
ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 2,2 COUP AU BUT SUR NAVIRE No 1 


ET VOUS LE COULEZ. HURRAH POUR LES GENTILS. 
COUP AU BRUT SUR NAVIRF No 4 


MAINTENANT, LES MECHANTS ONT PERDU 


RECOMMENCEZ. 1 DESTROYER(S), 2 CROISEUR(S), ET 2 PORTE-AVIONS. 

ENTREZ COORDONNEES X,Y DE L'OBJECTIF A ROMBARDER? 4,4 VOTRE NOUVEAU RATIO ‘FLOC/BOUM' EST .555556 

FLOCI  RECOMMENCEZ. ENTREZ COORDONNEES X,Y DE L'OBJECTIF A BOMBARDER? 4,6 

ENTREZ COORDONNEES X,Y DE L'ORJECTIF A RBOMBARNER? 1,1 IL Y AVAIT UN NAVIRE EN CE POINT MAIS VOUS L'AVEZ DEJA COULE 
COUP AU BUT SUR NAVIRE No 4 FLOCI  RECOMMENCFZ. 


ET VOUS LE COULEZ. HURRAH POUR LFS GENTILS. 


MAINTENANT, LES MECHANTS ONT PFRDU 
O DFSTROYER(S), O CROISEUR(S), ET 1 PORTF-AVIONS. 


VOTRE NOUVEAU RATIO ‘FLOC/BOUM' EST .5 
5 PRINT TAB(33);"BATTLE":PRINT 





ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 5,3 7 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY":PRINT:PRINT 
8 INPUT "LES REGLES DU JEU ";ANSS$ 
COUP AU BUT SUR NAVIRE No 2 9 IF LEFTS(ANSS,1)="Y" OR LEFTS(ANSS,1)="y" THEN GOSUB 10000 
ET VOUS LE COULEZ. HURRAH POUR LES GENTILS. 10 REM -- BATTLE WRITTEN BY RAY WESTERGARD 10/70 
20 REM COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF. 
MAINTENANT, LES MECHANTS ONT PERDU 30 REM PRODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEY 
O DESTROYER(S), 1 CROISEUR(S), ET 1 PORTE-AVIONS. 40 REM DIM F(6,6),H(6,6),A(4)<B(4),C(6),L(3) 
50 FOR X=1 TO 6 
VOTRE NOUVEAU RATIO ‘FLOC/BOUM' EST .444445 51 FOR Y=1 TO 6 
52 F(X,Y)=0 
ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 3,1 53 NEXT Y 
54 NEXT X 
COUP AU BUT SUR NAVIRE No 5 60 FOR I=1 TO 3 
70 N=4-I 
RECOMMENCEZ. 80 FOR J=1 TO 2 
90 A=INT(6*RND(1)+1) 
ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 4,1 100 B=INT(6*RND(1)+1) 
110 D=INT(4*RND(1)+1) 
COUP AU BUT SUR NAVIRE No 5 120 IF F(A,B)>0 THEN 90 
130 M=0 
RECOMMENCEZ . 140 ON D GOTO 150,340,550,740 
150 B(1)=B 
ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 5,1 160 B(2)=7:B(3)=7 
170 FOR K=1 TO N 
COUP AU BUT SUR NAVIRE No 5 180 IF M>1l THEN 240 
190 IF B(K)=6 THEN 230 
RECOMMENCEZ . 200 1F F(A,B(K)+1)>0 THEN 230 
210 B(K+1)=B(K)+1 
ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 6,1 220 GOTO 280 
230 M=2 
COUP AU BUT SUR NAVIRE No 5 240 IF B(1)<B(2) AND B(1)<B(3) THEN Z=B(1l) 
ET VOUS LE COULEZ. HURRAH POUR LES GENTILS. 242 1F B(2)<B(1) AND B(2)<B(3) THEN Z=B(2) 
244 IF B(3)<B(1) AND B(3)<B(2) THEN Z=B(3) 
MAINTENANT, LES MECHANTS ONT PERDU 250 IF Z=1 THEN 90 
O DESTROYER(S), 1 CROISEUR(S), ET 2 PORTE-AVIONS. 260 1F F(A,Z-1)>0 THEN 90 
270 B(K+1)=2-1 
VOTRE NOUVEAU RATIO ‘FLOC/BOUM' EST .307692 280 NEXT K 
290 F(A,B)=9-2*1-J 
ENTREZ COORDONNEES X,Y DE L'OBJECTIF À BOMBARDER? 1,3 300 FOR K=1 TO N 
310 F(A,B(K+1))=F(A,B) 
FLOC!  RECOMMENCEZ. 320 NEXT K 
330 GOTO 990 
ENTREZ COORDONNEES X,Y DE L'ORJECTIF À BOMBARDER? 4,5 340 A(1)=A 
350 B(1)=B 
FLOC!I RECOMMENCEZ. 360 A(2)=0:A(3)=0:B(2)=0:B(3)=0 
370 FOR K=1 TO N 
ENTREZ COORDONNEES X,Y DE L'ORJECTIF À BOMBARDER? 6,4 380 IF M>1 THEN 460 
390 IF A(K)=1 OR B(K)=1 THEN 450 
COUP AU BUT SUR NAVIRE No 3 400 IF F(A(K)-1,B(K)-1)>0 THEN 450 
410 1F F(A(K)-1,B(K))>0 AND F(A(K)-1,B(K))=F(A(K),B(K)-1) THEN 450 
RECOMMENCEZ . 420 A(K+1)=A(K)-1 
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430 
440 
450 
460 
462 


470 
474 
476 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
642 
644 
650 
660 
670 
680 
690 


B(K+1)=B(K)-1 


GOT: 
M=2 
1F 
1F 
1F 


1F 

A(K 
B(K 
NEX 


Oo 530 


A(1)>A(2) 
A(2)>A(1) 
A(3)>A(1) 
B(1)>B(2) 
B(2)>B(1) 
B(3)>B(1) 





AND 
AND 
AND 
AND 
AND 
AND 


A(1)>A(3) 
A(2)>A(3) 
A(3)>A(2) 
B(1)>B(3) 
B(2)>B(3) 
B(3)>B(2) 


Z1=6 OR Z2=6 THEN 90 
F(Z1+1,Z2+1)>0 THEN 90 


F(Z1,2Z2+1)>0 AND F(Z1,Z2+1)=F(Z1+1,2Z2) THEN 90 


+1)=214+1 
+1)=22+1 
T K 


GOTO 950 


A(1 


)=A 


A(2)=7:A(3)=7 


FOR K=1 TO N 


IF M>l THEN 640 
IF A(K)=6 THEN 630 
1F F(A(K)+1,B)>0 THEN 630 


A(K+1)=A(K)+1 


GOT 
M=2 


Oo 680 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 





IF A(1)<A(2) AND A(1)<A(3) THEN Z=A(1) 
IF A(2)<A(1) AND A(2)<A(3) THEN Z=A(2) 
IF A(3)<A(1) AND A(3)<A(2) THEN Z=A(3) 
IF Z=1 THEN 90 
IF F(Z-1,B)>0 THEN 90 


A(K 


+1)=2-1 


NEXT K 
F(A,B)=9-2*1-J 





IF A(K)=6 OR B(K)=1 THEN 860 
1F F(A(K)+1,B(K)-1)>0 THEN 860 


IF F(A(K)+1,B(K))>0 AND F(A(K)+1,B(K))=F(A(K),B(K)-1) THEN 860 


PRINT “LA SITUATION CODEE SUIVANTE DE LA FLOTTE DU 
INT “A ETE CAPTUREE MAIS NON DECODEE:" 


A(1)<A(3) 
A(2)<A(3) 
A(3)<A(2) 
B(1)>B(3) 
B(2)>B(3) 
B(3)>B(2) 


F(Z1-1,Z2+1)>0 THEN 90 


F(Z1,72+1)>0 AND F(Z1,Z2+1)=F(Z1-1,Z2) THEN 90 


700 FOR K=1 TO N 

710 F(A(K+1),B)=F(A,B) 
720 NEXT K 

730 GOTO 990 

740 

750 

760 

770 

780 FOR K=1 TO N 

790 IF M>1l THEN 870 
800 

810 

820 

830 A(K+1)=A(K)+1 
840 B(K+1)=B(K)-1 
850 GOTO 940 

860 M=2 

870 1F A(1)<A(2) AND 
872 IF A(2)<A(1) AND 
874 IF A(3)<A(1) AND 
880 1F B(1)>B(2) AND 
882 1F B(2)>B(1) AND 
884 1F B(3)>B(1) AND 
890 IF Zl=l OR Z2=6 THEN 90 
900 1F 

910 IF 

920 A(K+1)=Z1-1 

930 B(K+1)=2Z2+1 

940 NEXT K 

950 F(A,B)=9-2*1-J 
960 FOR K=1 TO N 

970 F(A(K+1),B(K+1))=F(A,B) 
980 NEXT K 

990 NEXT J 

1000 NEXT I 

1010 PRINT 

1020 

1030 PR 

1040 PRINT 

1050 FOR I=1 TO 6 
1051 FOR J=1 TO 6 
1052 H(1,J)=F(J,1) 
1053 NEXT J 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


Z1=A(1) 
Z1=A(2) 
Z1=A(3) 
Z2=B(1) 
Z2=B(2) 
Zz2=B(3) 


*MECHANT ‘ 


1054 
1060 
1061 
1062 
1063 
1064 
1065 
1070 
1080 
1090 
1100 
1102 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1120 
1121 
1122 
1130 
1140 
1150 
1160 
1170 
1175 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 





NEXT I! 

FOR 1=1 TO 6 
FOR J=1 TO 6 
PRINT H(1,J); 
NEXT J 

PRINT 

NEXT I 

PRINT 

PRINT "DFCODEZ LA FT SERVEZ VOUS EN, SI VOUS POUVEZ" 

PRINT “MAIS GARDEZ LE ‘CHIFFRE' SECRET." 

PRINT 

INPUT “VOULEZ VS UNF COPIE PAPIFR DE LA SITUATION CONEF DE LA FLOTTE" ;PC$ 
INPUT “VOULEZ VS UNF MATRICE 6x6 PAPIER POUR NOTER VOS RESULTATS"; PM$ 
PRINT:PRINT 

IF LEFTS(PCS,1 
IF LEFTS (PMS,1 





Y" OR LEFTS(PCS,1) 
="Y" OR LEFTS$S(PMS,1) 


THEN GOSUB 20000 
THEN GOSUB 30000 





PRINT “DERUT DE LA PARTIF" 

PRINT "-=————— “2: PRINT 

PRINT:INPUT "ENTREZ COORDONNEES X,Y DE L'ORJECTIF À BOMBARDER";X,Y 
IF X<] OR X>6 OR INT(X)<>ABS(X) THEN 1210 

IF Y>0 AND Y<7 AND INT(Y)=ABS(Y) THEN 1230 

PRINT:PRINT “PAS VALIDF.  RECOMMENCEZ ." 


GOTO 1180 

R=7-Y 

C=Xx 

IF F(R,C)>0 THEN 1290 

S=S+1 

PRINT:PRINT "FLOC! RECOMMENCEZ . * 
GOTO 1180 


IF C(F(R,C))<4 THEN 1340 

PRINT:PRINT "IL Y AVAIT UN NAVIRE EN CE POINT MAIS VOUS L'AVEZ DEJA COULE" 
PRINT:PRINT “FLOC!I  RECOMMENCEZ ." 

S=S41 

GOTO 1180 

IF H(R,C)>0 THEN 1420 

H=H41 

H(R,C)=F(R,C) 

PRINT:PRINT "COUP AU BUT SUR NAVIRE NO";:F(R,C) 
C(F(R,C))=C(F(R,C))+1 

IF C(F(R,C))>=4 THEN 1470 

PRINT:PRINT “RECOMMENCEZ." 

GOTO 1180 

PRINT:PRINT "VOUS AVEZ DFJA TOUCHE LE NAVIRE NO";F(R,C); 
PRINT “A CET ENDROIT." 

PRINT:PRINT “FLOC!I  RECOMMENCEZ." 

S=S4+1 

GOTO 1180 
L(CINT(F(R,C)-1)/2)41)=L((INT(F(R,C)-1)/2)+1)+1 

PRINT "ET VOUS LF COULEZ. HURRAH POUR LES GENTILS." 
PRINT:PRINT “MAINTENANT, LES MECHANTS ONT PERDU" 

PRINT L(1);"DESTROYER(S),";:L(2);"CROISFUR(S), ET": 

PRINT L(3);'"PORTE-AVIONS." 

PRINT:PRINT "VOTRE NOUVEAU RATIO ‘FLOC/BOUM' FST";S/H 

IF (L(1)+L(2)+L(3))<6 THEN 1180 

PRINT 

PRINT:PRINT "VOUS AVEZ TOTALEMENT LIQUIDE LA FLOTTE DU MECHANT" 
PRINT "AVEC UN RATIO FLOC/BOUM FINAL DE";S/H 

IF S/H>0 THEN 1590 

PRINT:PRINT “FELICITATIONS -- COUP AU BUT À CHAQUE FOIS." 
PRINT 

PRINT “étameeemmmmmnnmmeemeneenn tt" 

PRINT 

GOTO 50 

END 
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Blackjack 





C'est une simulation du jeu de cartes 
Blackjack ou 21, style Las Vegas. Cette 
version assez complète permet jusqu'à 
sept joueurs. À chaque donne, chaque 
joueur peut demander une autre carte (un 
coup), s’en tenir là ou couper son jeu au 
cas où il aurait reçu deux cartes identiques 
ou faces cachées. Le donneur demandera 
aussi un pari de garantie s'il a un as dé- 
couvert. 

On rebat systématiquement les cartes 
lorsque l'on arrive à la 51°. Pour un plus 
grand réalisme, vous pouvez le faire à la 
41° à la ligne 110. En fait, les puristes fa- 
natiques modifieront le programme afin 
qu'il utilise trois jeux de cartes au lieu d'un 
seul. 

Ce programme provient à l'origine de 
Digital Equipment Corp. l’auteur est in- 
connu. 


BLACK JACK 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


VOULFZ VOUS LES REGLES? Y 


Ceci est le jeu de 21. On peut y jouer jusqu'a 7 joueurs 
À chaque donne, on demandera les paris et ceux-ci seront entres au 
clavier. Les cartes sont alors donnees, et, a son tour, chaque 
joueur joue sa main. LA lere reponse doit etre soit ‘'D', 
que le joueur double, soit ‘S', pous dire qu'il reste stable 
‘H' pour demander une autre carte, ou ‘/' pour signaler qu'il 


qu'il desire couper(ecarter) son jeu. 


Apres la premiere reponse, seules les reponses ‘S' ou 
sont valides, a moins que le jeu n'ait ete coupe, auquel cas le 


doublement reste autorise. 
Pour ramasser le BLACKJACK, la reponse initiale 
doit avoir ete ‘'S'. 


Pour arreter la partie entrez un enjeu negatif quelconque 


NOMBRE DE JOUEURS? 2 


NOM DU JOUEUR No 1 ? HECTOR 
NOM DU JOUEUR No 2 ? NEPOMUCENE 


ON BAT 


HECTOR? 50 
NEPOMUCENE? 60 


JOUEUR 1 2 BANQUIER 


HECTOR? H 
RECU UN D ...CREVE 


NEPOMUCENE? H 
RECU UN 3 COUP? S 
LE TOTAL EST 17 


LE BANQUIER À UN 9 CACHE POUR UN TOTAL DE 12 
IL TIRE R -.+CREVE 


HECTOR PERTE $50 TOTAL = $50- 
NEPOMUCENE GAIN $60 TOTAL = $60 
TOTAL DU BANQUIER = $10- 
MISES 
HECTOR? 67 
NEPOMUCENE? 76 
JOUEUR 1 2 BANQUIER 

s 6 3 

7 2 
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HECTOR? H 
RECU UN 4 COUP? S 
LE TOTAL EST 16 


NEPOMUCENE? H 
RECU UN 9 COUP? S 
LE TOTAL EST 17 


LE BANQUIER À UN 3 CACHE POUR UN TOTAL DE 
IL TIRE AÀ ---LE TOTAL EST 17 

HECTOR PERTE $67 TOTAL = 

NEPOMUCENE NUL TOTAL = 


TOTAL DU BANQUIER = 


MISES 

HECTOR? 9 

NEPOMUCENE? 109 

JOUEUR 1] 2 BANQUIER 
2 D 9 
2 5 

HECTOR? H 

RECU UN 10 COUP? H 

RECU UN D ...CREVE 


NEPOMUCENF? H 
RECU UN R ...CREVE 


LE BANQUIER À UN 8 CACHE. 


HECTOR PERTE $9 TOTAL = 
NEPOMUCENE PERTE $109 TOTAL = 


TOTAL DU BANQUIFR = 


MISES 

HECTOR? 12 

NEPOMUCENE? 34 

JOUEUR 1 2 BANQUIER 
D 4 v 
7 8 


PAS DE BLACKJACK DU BANQUIER. 


HECTOR? H 
RECU UN 5 ...CREVE 


NEPOMUCENE? H 

RECU UN 6 COUP? H 

RECU UN 9 ...CREVE 

LE BANQUIER À UN 7 CACHE. 


HECTOR PERTE $12 TOTAL = 
NEPOMUCENE PERTE $34 TOTAL = 


TOTAL DU BANQUIER = 


MISES 

HECTOR? 2 

NEPOMUCENE? 5 

JOUEUR 1 2 BANQUIER 
A 10 v 
v À 


PAS DE BLACKJACK DU BANQUIER. 


HECTOR? S 


BLACKJACKI 


NEPOMUCENE? S 


BLACKJACKI 


LE BANQUIER À UN 8 CACHE. 


HECTOR GAIN $3 TOTAL 
NEPOMUCENE GAIN $8 TOTAL 


TOTAL DU BANQUIER = 


$117- 
$60 


$57 


$126- 
$49- 


$175 


$138- 
$83- 


$221 


$135- 
$76- 


$211 


LP 
2P 
4 P 
6 P 
10 


RINT CHRS (26):WIDTH 80 

RINT TAR(31);"RLACK JACK":PRINT 
RINT TAB(15);"CREATIVE COMPUTING 
RINT:PRINT:PRINT 

DEF FNA(Q)=0+11*(0>=22) 





MORRISTOWN, NEW JERSEY" 


1260 GOTO 1210 

1300 REM--AFFICHF TOTAL MAIN 1 
1310 PRINT 

1320 AA=Q(I): GOSUB 3400 

1325 PRINT “LE TOTAL EST" ;AA 


20 DIM P(15,12),0(15),C(52),D(52),T(8),S(7),B(15) 1330 RETURN 

30 DIM R(15) 1400 REM--S/PROGR. POUR LIRE REPLIQUE 

40 REM--P(1,J) FST LA JFMF CARTE DS LA MAIN I, O(1) EST LF TOTAL DE LA MAIN I 1410 REM IS DEFINI PAR AILLEURS 

50 REM--C FST LE PAQUET OU L'ON PREND LFS CARTES, D EST LE TAS DES DFFAUSSES, 1420 INPUT HS: H$S=LEFTS(HS,1) 

60 REM--T(I) FST LE TOTAL DU JOUEUR 1, S(I) EST LE TOTAL DF. LA MAIN EN COURS DU 1430 FOR H=1 TO H1 STEP 2 

70 REM--JOUEUR I, B(I) EST LA MISE POUR LA MAIN I! 1440 IF H$=MIDS(IS,H,1) THEN 1480 

80 REM--R(1) EST LA LONGUEUR DE P(1,*) 1450 NEXT H 

90 GOTO 1500 1460 PRINT "TAPEZ ":MIDS(IS,1,H1-1);" OU ";MID$S(IS,H1,2);" S.V.P."; 
100 REM--S/PROG. TIRAGF UNE CARTE. RESULTAT MIS EN X. 1470 GOTO 1420 

110 IF C<51 THEN 230 1480 H=(H+1)/2 

120 PRINT:PRINT CHRS(22);" * 1490 RETURN 

122 PRINT “ ON BAT " 1500 REM--PROGRAMME COMMENCE ICI 

124 PRINT " ";CHRS(22):PRINT 1510 RFM--INITIALISATION 

130 FOR D=N TO 1 STEP -1 1520 DS=" À 2 3 4 5 6 7 8 910 V D R" 
140 C=C-1 1530 1$="H,S,D,/," 

150 C(C)=D(D) 1540 FOR I=1 TO 13 

160 NEXT D 1550 FOR J=4#*1-3 TO 4*I 


170 FOR C1=52 TO C STEP -] 


180 


C2=INT(RND(1)#*(C1-C+1))+C 


190 C3=C(c2) 


200 


c(c2)=c(c1) 


210 C(C1)=C3 


220 


NEXT C1] 


230 X=C(C) 


240 


C=C+]1 


250 RETURN 


300 RFM--S/PROG. FVALUATION MAIN I. 


LE TOTAL EST MIS DANS 


310 REM--Q(1). LES TOTAUX ONT LES SIGNIFICATIONS SUIVANTES: 


320 RFM-- 
330 REM-- 11-21. 
340 REM-- 22-3 
350 RFM-- 


2-10...MAUVAIS 2-10 
+ BONT 11-21 
MAUVAIS 11-21 
33+....CREVE 








360 Q=0 
370 FOR N2=1 TO R(1) 

380 X=P(1,02) 

390 GOSUR 500 

400 NEXT O2 

410 Q(1)=0 

420 RETURN 

500 REM--S/PROGR. POUR AJOUTER UNE CARTE X AU TOTAL Q. 


510 X1=X: IF X1>10 THEN X1=10: RFM 


SAME AS X1=10 MIN X 


520 OQ1=0+X1 

530 1F Q>=11 THEN 590 

540 IF X>1l THEN 570 

550 Q=0+11 

560 RETURN 

570 Q=01-11*(01>=11) 

580 RETURN 

590 O=01-(0<=21 AND Q1>21) 
600 IF Q<33 THEN 620 

610 Q=-1 

620 RFTURN 

700 REM--S/PROGR. AFFICHAGE CARTE 


710 RFM 


DS DEFINI PAR AILLEURS 


720 PRINT MINS(DS,3*X-2,3); 

730 PRINT " "; 

740 RETIIRN 

750 REM--S/PROGR AFFICHAGE AUTRE CAS 
760 PRINT " ";MIDS(DS,3#X-1,2); 

770 PRINT "  "; 

780 RETURN 

800 REM--S/PROGR. POUR JOUFR UNE MAIN. 
810 REM--PAS D'ECART NI DF BLACKJACKS PERMIS 
820 H1=5 

830 GOSUB 1410 

840 H1=3 

850 ON H GOTO 950,930 

860 GOSUR 100 

870 B(1)=B(1)*2 

80 PRINT "RECU UN"; 

890 GOSUB 700 

900 GOSUB 1100 

910 IF Q>0 THEN GOSUB 1300 

920 RETURN 

930 GOSUB 1320 

940 RETURN 

950 GOSUB 100 


960 


PRINT "RECU UN"; 


970 GOSUR 700 


990 
100 
101 
110 


GOSUB 1100 

IF Q<O THEN 940 
Q PRINT "COUP"; 
Q GOTO 830 
9 REM--S/PROGR. POUR AJOUTER UNF CARTE À LA RANGEE I 


1110 R(I)=R(1)+1 
1120 P(I,R(I))=X 
1130 O=N(1) 

1140 GOSUR 500 
1150 O(1)=Q 


116 


O0 1F Q>=0 THEN 1190 


1170 PRINT "...CREVE" 

1180 GOSUB 1200 

1190 RETURN 

1200 REM--S/PROGR. POUR SE DEFAUSSER DE LA RANGEE I 
1210 IF R(I1)<>0 THEN 1230 

1220 RFTURN 

1230 D=D+1 

1240 D(D)=P(I,R(1)) 

1250 R(I)=R(1)-1 


1640 

1645 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1755 
1756 
1760 
1770 
1775 
1780 
1781 

1782 
1783 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 


1891 
1892 
1895 
1900 
1910 


1920 
1930 
1940 
1950 
1960 
1970 
1980 
1981 
1982 
1983 
1984 
1985 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2960 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 


1560 D(J)=1 

1570 NEXT J 

1580 NEXT 1! 

1590 D=52 

1600 C=53 

1610 PRINT “VOULEZ VOUS LES REGLES"; 

1620 INPUT HS 

1630 IF LEFTS(H$S,1)="N" OR LEFTS(H$,1)="n" THEN 1760 
PRINT CHRS (26) 
PRINT “ Ceci est le jeu de 21. On peut y jouer jusqu'a 7 joueurs" 
PRINT "A chaque donne, on demandera les paris et ceux-ci seront entres au" 
PRINT “clavier. Les cartes sont alors donnees, et, a son tour, chaque" 
PRINT “joueur joue sa main. LA lere reponse doit etre soit ‘'N', indiquant" 
PRINT “que le joueur double, soit ‘'S', pous dire qu'il reste stahle" 
PRINT “‘H' pour demander une autre carte, ou ‘/' pour signaler qu'il" 
PRINT “qu'il desire couper(ecarter) son jeu." 
PRINT “Apres la premiere reponse, seules les reponses 'S' ou ‘H' sont" 
PRINT “sont valides, a moins que le jeu n'ait ete coupe, auquel cas le“ 
PRINT “doublenent reste autorise." 
PRINT “Pour ramasser le BLACKJACK, la reponse initiale" 
PRINT “doit avoir ete ‘S'." 


PRINT 

PRINT “ Pour arreter la partie entrez un enjeu neqgatif quelconque":PRINT: 
PRINT "NOMRRE DE JOUEURS"; 

INPUT N 

PRINT 


IF N<l OR N>7 OR N>INT(N) THEN 1760 

FOR 1=1 TO N 

PRINT "NOM DU JOUEUR No";1;:INPUT PLAYERS(I) 

NEXT 1 

FOR I=1 TO 8: T(I)=0: NEXT I 

DI=N+1 

IF 2#*D14C>=52 THFN GOSUB 120 

IF C=2 THEN C=C-] 

FOR I=1 TO N: Z(1)=0: NEXT I 

FOR I=1 TO 15: B(I1)=0: NEXT I! 

FOR I=1 TO 15: Q(1)=0: NEXT I! 

FOR 1=1 TO 7: S(1)=0: NEXT ! 

FOR 1=1 TO 1 R(1)=0: NEXT I 

PRINT "MISES:":PRINT "----- "2: PRINT 

FOR I=1 TO N: PRINT PLAYERS(I):: INPUT Z(1):1F Z(1)>500 THEN PRINT 
"LA LIMITE EST $500.":PRINT PLAYERS(I);:INPUT Z(1) 
IF Z(1)<O THEN RUN "MENU" 

NEXT 1 

PRINT 

FOR I=l TO N 

IF Z(I1)<=0 OR Z(1)>500 THEN PRINT:PRINT "LA LIMITE EST $500.": 
PRINT:GOTO 1880 

R(1)=2(1) 

NEXT 1 

PRINT “JOUEUR"; 

FOR I=1 TO N 

PRINT 1;* 3 

NEXT 1 

PRINT "BANQUIER" 

PRINT " _—"; 

FOR I=1 TO N 

PRINT “------ “; 

NEXT 1 

PRINT "------ # 

FOR J=1 TO 2 

PRINT TAB(5);: 

FOR I=1 TO DI 

GOSUR 100 

P(I,T)=X 

IF J=1 OR I<=N THEN GOSUR 750 

NEXT 1 

DRINT 

NEXT J 

FOR I=1 TO DPI 

R(1)=2 

NEXT 1 

REM--TEST POUR L'ASSURANCE 

IF P(N1,1)>1 THEN 2240 

PRINT:PRINT "N'IMPORTF OUFLLE ASSURANCE"; 
INPUT HS 

IF LEFTS(H$S,1)<>"y" THEN 2240 

PRINT:PRINT “ENJEUX D'ASSURANCE":PRINT "---------------- 
FOR I=1 TO N: PRINT PLAYERS(I);: INPUT Z(1): NEXT 1 
FOR 1=l TO N 

IF Z(1)<0 OR Z(1)>R(1)/2 THEN 

PRINT "L'ENJEU N'ASSURANCE MAXI EST LA MOITIE DU PARI INITIAL":GOTO 21 
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2200 
2210 
2220 
2230 
2240 
2250 
2252 
2253 
2254 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2441 
2442 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2612 
2614 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3035 
3040 
3050 
3060 
3070 
3080 
3090 
3095 
3100 
3110 
3120 
3125 
3130 
3140 
3150 
3160 
3165 
3170 
3180 
3182 
3184 
3186 
3188 


NEXT 1 

FOR I=1 TO N 
S(1)=Z(1)*(3*(-(P(D1,2)>=10))-1) 

NEXT 1 

REM--TEST POUR LE BLACKJACK DU BANQUIFR 
Ll=l: L2=1 

IF P(D1,1)=1 AND P(D1,2)>9 THEN L1=0: L2=0 
IF P(D1,2)=1 AND P(D1,1)>9 THEN L1=0: L2=0 
IF Ll<>0 OR L2<>0 THEN 2320 


PRINT:PRINT "LE BANQUIFR À UN";MIDS(DS,3#*P(D1,2)-2,3);" DANS LE SAC ":; 


PRINT "POUR LE RLACKJACK" 

FOR 1=1 TO D1 

GOSUB 300 

NEXT I 

GOTO 3140 

REM--PAS DE BLACKJACK DU BANQUIER 

IF P(D1,1)>1 AND P(D1,1)<10 THEN 2350 
PRINT:PRINT "PAS DE BLACKJACK DU BANQUIER." 
REM--MAINTENANT JEU DES MAINS 
FOR 1=1 TO N 
PRINT:PRINT PLAYERS (I): 
H1=7 

GOSUB 1410 

ON H GOTO 2550,2410,2510,2600 
REM--JOUEUR RESTE STABLE 
GOSURB 300 

IF Q(1)<>21 THEN 2490 
PRINT CHRS(22);" 

PRINT CHRS (22 BLACKJACKI :CHRS (22) 
PRINT CHRS(22);" ";CHRS(22) 
S(1)=S(1)+1.5*B(1I) 

B(1)=0 

GOSUB 1200 

GOTO 2900 

GOSUB 1320 

GOTO 2900 

REM--JOUEUR DESIRE DOUBLER 

GOSUB 300 

GOSUR 860 

GOTO 2900 

REM--JOUFUR VEUT UNE CARTE 

GOSUR 300 

H1=3 

GOSUB 950 

GOTO 2900 

REM--JOUEUR DESIRE ECARTER 
L1=P(1,1): IF P(1,1)>10 THEN L1=10 
L2=P(1,2): 1F P(1,2)>10 THEN L2=10 
IF Ll=L2 THEN 2640 

PRINT:PRINT "ECART NON AUTORISE." 
GOTO 2370 

REM--ON JOUE L'ECART 

11=14D] 

R(11)=2 

P(I1,1)=P(1,2) 

B(I+D1)=B(1) 

GOSUB 100 

PRINT:PRINT "LA 1ERE DONNE EST UN"; 
GOSUB 700 

P(I1,2)=X 

GOSUR 300 

PRINT 

GOSUB 100 

PRINT:PRINT “LA 2EMF DONNE EST UN"; 
1=11 

GOSURB 700 

P(I,2)=X 

GOSUB 300 

PRINT 

I=11-D1 

IF P(1,1)=1 THEN 2900 

REM--ON JOUE LES DEUX MAINS 

PRINT "DONNE";1-(1>D1); 

GOSUB 800 

1=1+D1 

IF 1=11 THEN 2850 

1=11-D1 

NEXT I 

GOSUB 300 

RFM--TEST POUR JOUER LA MAIN DU BANQUIER 
FOR I=1 TO N 

IF R(1)>0 OR R(I+D1)>0 THEN 3010 
NEXT I 

PRINT:PRINT "LE BANQUIER À UN"; 
X=P(D1,2) 

GOSUB 700 

PRINT “ CACHE." 

GOTO 3140 








PRINT:PRINT "LE RANQUIER À UN";MIDS(D$S,3*P(D1,2)-2,3);" CACHE " 


1=D1 

AA=O(1I): GOSUB 3400 

PRINT "POUR UN TOTAL DE";AA 
IF AA>16 THEN 3130 

PRINT "IL TIRE"; 

GOSUB 100 

GOSUB 750 

GOSURB 1100 

AA=O: GOSURB 3400 

IF Q>0 AND AA<17 THEN 3060 
Q(1)=0-(0<0) 7/2 

IF O<0 THEN 3140 

AA=O: GOSUB 3400 


PRINT “---LE TOTAL EST";AA 

PRINT 

REM--FAIRE CORRESPONDRE RESULTATS 
REM 

Z$="PERTE NUL GAIN “ 

PRINT 


FOR I=l TO N 

AA=O(I): GOSUB 3400 

AB=Q(1+D1): GOSUB 3410 

AC=Q(D1): GOSUB 3420 
S(1)=S(1)+B(1)*SGN(AA-AC)+R(I+D1)#*SGN(AR-AC) 
R(I+#D1)=0 


3200 
3210 
3220 
2230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3345 
3350 
3360 
3370 
3400 
3410 
3420 


PRINT PLAYERS(1);" 


PRINT MIDS(ZS,SGN(S(1))*6+7,6);:'" "; 
IF S(1)<>0 THEN 3250 


"PRINT * ". 
GOTO 3260 


PRINT USING "SS##"; 


T(I1)=T(1)+S(1) 


PRINT TAR(35);"TOTAL 


GOSUR 1200 
T(D1)=T(D1)-S(1) 
1=14+4D1 

GOSUR 1200 

1=I-D] 

NEXT I 

PRINT:PRINT “TOTAL 
PRINT 

GOSUB 1200 

GOTO 1810 

END 
AA=AA#11#*(AA>=22): 
AB=ARB+11*(AB>=22): 
AC=AC+11#*(AC>=22): 
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ABS(S(1)); 


: PRINT USING "SS#,###-";T(1) 





DU BANQUIER =";:PRINT TAB(42);:PRINT USING "SS#,###-";T(D1) 


RETURN 
RETURN 
RETURN 





Bombardment 
(Le bombardement) 





Bombardment se joue sur deux grilles 
ou tableaux de 5x5 comportant 25 posi- 
tions d'avant-postes numérotés de 1 à 25. 
Vous et l'ordinateur disposez chacun de 
quatre sections de combat qui peuvent 
être placées sur quatre avant-postes de 
votre choix sur vos grilles respectives. 

Au début du jeu, vous placez (ou ca- 
chez) vos quatre sections de combat sur 
votre grille. L'ordinateur fait de même sur 
la sienne. Ensuite, vous lâchez chacun 
votre tour des missiles ou des bombes sur 
les avant-postes de votre adversaire pour 
essayer de détruire les quatre sections de 
combat. Le premier qui a trouvé les quatre 
sections ennemies a gagné. 

Ce programme diffère légèrement de 
l'original écrit par Martin Burdash de Par- 
lin, New Jersey. 


BOMBARDMENT 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


VOUS ETES SUR LE FRONT AVEC 4 SECTIONS ET VOUS AVEZ 

25 POSITIONS POUR LES PLACER. 

VOUS NE POUVEZ EN METTRE QU'UNE SEULEMENT PAR POSITION. 
L'ORDINATEUR FAIT LA MEME CHOSE DE SON COTE. 


LE JEU CONSISTE A ENVOYER DES MISSILES SUR LES POSITIONS TENUES 
PAR L'ORDINATEUR. CELUI-CI FAIT LA MEME CHOSE À VOTRE EGARD. 
LE GAGNANT EST CELUI QUI DETRUIT LES 4 SECTIONS ENNEMIES 

LE PREMIER. 

BONME CHANCE... ! 

ENTREZ ‘"RETURN' POUR LA SUITE. 


VOICI UNE MATRICE IMPRIMEE À DETACHER QUI VOUS SERVIRA À POINTER 
LES NOMBRES : 


-- Printing -- 
1 2 3 4 5 
6 7 8 9 10 
11 12 13 14 15 
16 17 18 19 20 
21 22 23 24 25 
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QUELLES SONT VOS 4 POSITIONS? 10,9,16,24 
OU DESIREZ VOUS EXPEDIER VOTRE MISSILE? 3 
HA, HA MANQUE. C'EST MON TOUR MAINTENANT: 


JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRF SUR 13. A VOUS: 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILE? 7 
VOUS AVEZ DETRUIT UN DE MES POSTES! 
UN EN MOINS, RESTENT TROIS. 


OUS N'EN AVEZ PLUS POUR LONGTEMPS. VOTRE POSTE 10 À ETE DETRUIT. 
IL NE VOUS RESTE QUE 3 POSITIONS. 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILE? 11 
HA, HA MANQUE. C'EST MON TOUR MAINTENANT: 


JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRE SUR 25. A VOUS: 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILE? 21 
HA, HA MANQUE. C'EST MON TOUR MAINTENANT: 


JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRE SUR 23. À VOUS: 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILE? 1 
HA, HA MANQUE. C'EST MON TOUR MAINTENANT: 


JE VOUS AI MANQUF, SALOPARD. J'AVAIS TIRE SUR 19. A VOUS: 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILEF? © 
HA, HA MANQUE. C'EST MON TOUR MAINTENANT: 


JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRE SUR 1. À VOUS: 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILE? 22 
HA, HA MANQUE. C'EST MON TOUR MAINTENANT : 


OUS N'EN AVEZ PLUS POUR LONGTEMPS. VOTRE POSTE 24 À ETE DETRUIT. 
IL NE VOUS RESTE QUE 2 POSITIONS. 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILE? 17 
HA, HA MANQUE. C'EST MON TOUR MAINTENANT: 


JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRE SUR 2. A VOUS: 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILE? 12 
HA, HA MANQUE. C'EST MON TOUR MAINTENANT: 


JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRE SUR 17. A VOUS: 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILE? 8 
VOUS AVEZ DETRUIT UN DE MES POSTES! 
DEUX EN MOINS, RESTENT DEUX. 


JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRE SUR 14. À VOUS: 


OU DFSIREZ VOUS EXPEDIFR VOTRE MISSILE? 14 


HA, HA MANQUE. C'EST MON TOUR MAINTENANT: 

JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRE SUR 21. À VOUS: 
OU DESIREZ VOUS EXPEDIFR VOTRE MISSILE? 19 

HA, HA MANQUE. C'EST MON TOUR MAINTENANT: 

JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRE SUR 22. A VOUS: 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILF? 15 
HA, HA MANQUE. C'EST MON TOUR MAINTENANT: 


I0 PRINT TAB(33);"BOMBARDMENT" : PRINT 
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


30 PRINT:PRINT:PRINT 


JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRE SUR 15. À VOUS: 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILE? 20 
VOUS AVEZ DETRUIT UN DE MES POSTESI 
TROIS EN MOINS, IL EN RESTE UN. 


JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRE SUR 12. À VOUS: 


OU DESIREZ VOUS EXPEDIER VOTRE MISSILF? 25 
HA, HA MANQUE. C'EST MON TOUR MAINTENANT: 


OUS N'EN AVEZ PLUS POUR LONGTEMPS. 
IL NE VOUS RESTE QU' UNE SEULE POSITION. 


OU DESIREZ VOUS EXPFDIER VOTRE MISSILE? 2 
VOUS M'AVEZ EU, MOI 


LE PLUS RAPIDE. MAIS J'AURAI MA REVANCHE! 


VOTRE POSTE 16 À ETE DETRUIT. 


A VOUS:" 


HA." 


100 PRINT “VOUS ETES SUR LE FRONT AVFÆC 4 SECTIONS ET VOUS AVEZ" 
110 PRINT “25 POSITIONS POUR LES PLACER." 

120 PRINT "VOUS NE POUVEZ EN METTRE QU'UNE SEULEMENT PAR POSITION." 

130 PRINT “L'ORDINATEUR FAIT LA MEME CHOSE DE SON COTE." 

135 PRINT 

140 PRINT "LE JEU CONSISTE À ENVOYER DES MISSILES SUR LES POSITIONS TENUES" 

150 PRINT “PAR L'ORDINATEUR. CELUI-CI FAIT LA MEME CHOSE À VOTRE FGARD." 

160 PRINT "LE GAGNANT EST CELUI QU' DETRUIT LES 4 SECTIONS ENNEMIES" 

170 PRINT "LE PREMIER." 

180 PRINT 670 PRINT “JE VOUS AI MANQUE, SALOPARD. J'AVAIS TIRE SUR";M;CHRS(8):". 
190 PRINT “BONNE CHANCE... 1" 680 PRINT: PRINT: GOTO 500 

200 PRINT 710 OQ=0+1 

201 LINE INPUT “ENTREZ ‘RETURN' POUR LA SUITE.";XXS$ 720 IF Q=4 THEN 890 

210 PRINT “VOICI UNE MATRICE QUI VOUS SERVIRA À POINTER" 730 PRINT “VOUS AVEZ DETRUIT UN DF MES POSTES!" 

211 PRINT "LPS NOMPPES :":PRINT:PPI.IT: * 740 IF Q=1 THEN 770 

260 DIM M(100) 750 IF Q=2 THEN 810 

270 FOR Rel TO 5 760 1F Q=3 THEN 850 

280 I=(R-1)*5+1 770 PRINT "UN FN MOINS, RESTENT TROIS." 

290 PRINT 1,1+1,1+2,1+3,1+4 780 PRINT: PRINT: GOTO 570 

300 NEXT R 810 PRINT “DEUX EN MOINS, RESTENT DEUX." 

350 LPRINT CHRS$(12) 820 PRINT: PRINT: GOTO 570 

380 C=INT(RND(1)*25)+1 850 PRINT "TROIS EN MOINS, IL EN RESTE UN." 

390 D=INT(PND(1)*25)+1 860 PRINT: PRINT: GOTO 570 

400 E=INT(RND(1)*25)+1 890 PRINT “VOUS M'AVEZ EU, MOI LE PLUS RAPIDE. MAIS J'AURAI MA REVANCHE DES" 
410 F=INT(RND(1)*25)+1 900 PRINT "QUE M$S $8RAN<ISTOR# ORON R$SKUPAIR®!" 

420 IF C=D THEN 390 910 GOTO 1235 

430 IF C=E THEN 400 920 Z=Z+1 

440 IF C=F THEN 410 930 IF Z=4 THEN 1110 

450 IF D=E THEN 400 940 PRINT" VOUS N'EN AVEZ PLUS POUR LONGTEMPS. VOTRE POSTE";X;"A ETE DETRUIT." 
460 IF D=F THEN 410 950 IF Z=1 THEN 990 

470 IF E=F THEN 410 960 IF Z=2 THEN 1030 

480 PRINT "QUELLES SONT VOS 4 POSITIONS"; 970 IF Z=3 THEN 1070 

490 INPUT G,H,K,L 990 PRINT “IL NF VOUS RESTE QUE 3 POSITIONS." 

495 PRINT 1000 PRINT: PRINT: GOTO 500 

500 PRINT "OU DESIREZ VOUS EXPEDIER VOTRE MISSILE"; 1030 PRINT “IL NE VOUS RESTE QUE 2 POSITIONS." 

510 INPUT Y 1040 PRINT: PRINT: GOTO 500 

520 IF Y=C THEN 710 1070 PRINT “IL NE VOUS RESTF QU' UNE SEULE POSITION." 

530 IF Y=D THEN 710 1080 PRINT: PRINT: GOTO 500 

540 IF Y=E THEN 710 1110 PRINT “VOUS ETFS MORT. VOTRE DERNIERE POSITION ETAIT EN":X:". HA, HA, 
550 IF Y=F THEN 710 1120 PRINT "BONNE CHANCF POUR LA PROCHAINE FOIS." 

560 GOTO 630 1150 GOTO 1235 

570 M=INT(RND(1)#*25)+1 1160 P=P4+1 

575 GOTO 1160 1170 N=P-] 

580 IF X=G THEN 920 1180 FOR T=1 TO N 

590 IF X=H THEN 920 1190 IF M=M(T) THEN 570 

600 IF X=L THEN S20 1200 NEXT T 

610 IF X=K THEN 920 1210 X=M 

620 GOTO 670 1220 M(P)=M 

630 PRINT "HA, HA MANQUE. C'EST MON TOUR MAINTENANT :" 1230 GoTo 580 

640 PRINT: PRINT: GOTO 570 1235 END 
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ombs Away 





(Lancement de bombes) 


Dans ce programme, vous pilotez un 
bombardier de la Seconde Guerre mon- 
diale pour l’un des quatre protagonistes 
de la guerre. Vous choisissez ensuite 
votre cible ou le type d'avion que vous pi- 
lotez. Selon votre expérience de vol et la 
qualité de la défense ennemie, vous pou- 
vez accomplir votre mission, vous faire 
abattre ou bien rentrer sous le feu de l'en- 
nemi. De toute façon, on vous redonne 
une chance de voler. 


David Ahl modifia le programme original 
B PRINT "VOUS PILOTEZ UN BOMBARDIER DE LA 2EME GUERRE MONDIALE . “ : PRINT 


créé par David Sherman lorsqu'il était étu- 10 INPUT “VOTRE CAMP -- ITALIE(1), ALLIES(2), JAPON(3), ALLEMAGNE (4)";A 
i à ji i 20 IF A>O AND A<5 THEN 25 
diant à Curtis Jr. High School, Sudbury, TR GR OMR 01e GERS LU 
Massachusetts. 25 ON À GOTO 30, 110, 200, 220 
30 INPUT "VOTRE OBJECTIF -- ALBANIF(1), GRECE(2), AFRIQUE DU NORD(3)":B 


40 IF R>O AND B<4 THEN 45 
42 PRINT "“RECOMMENCEZ..." : GOTO 30 
45 PRINT : ON B GOTO 50, 80,90 


50 PRINT “DEVRAIT ETRE FACILE -- VOUS PILOTEZ UN APPAREIL ALLEMAND." 
60 GOTO 280 
BOMBS AWAY BO PRINT “FAITES ATTENTIONII1" : GOTO 280 
90 PRINT "VOUS Y ALLEZ POUR LE PETROLE, EH?“ : GOTO 280 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 110 INPUT "AVION -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)":G 
120 IF G>O AND G<5 THEN 125 
VOUS PILOTEZ UN BOMBARDIER DE LA 2EME GUERRE MONDIALE. 122 PRINT "RECOMMENCEZ..." : GOTO 110 
125 PRINT : ON G GOTO 130, 150, 170, 190 
VOTRE CAMP -- ITALIE(1), ALLIFS(2), JAPON(3), ALLEMAGNE(4)? 3 130 PRINT "VOUS PORTEZ 2 TONNES DE BOMBES À DESTINATION DE PLOESTI." : GOTO 280 
VOUS EFFECTUEZ UNE MISSION KAMIKAZE CONTRE L'USS LEXINGTON. 150 PRINT "VOUS DEVEZ LARGUER LA BOMBE À SUR HIROSHIMA." : GOTO 280 
VORE 1ERE MISSION KAMIKAZE(Y OR N)? N 170 PRINT "VOUS FAITES LA CHASSE AU BISMARK EN MER DU NORD." : GOTO 280 


190 PRINT “VOUS FCRASEZ UNE USINE ALLEMANDE D'EAU LOURDE DANS LA RUHR." 
195 GOTO 280 

VOUS VOUS EN ETES SORTI, MALGRE UNF D.C.A. DANTESQUEI! 200 PRINT "VOUS EFFECTUEZ UNE MISSION KAMIKAZE CONTRE L'USS LEXINGTON." 
205 INPUT "VORE 1ERE MISSION KAMIKAZE(Y OR N)":F$ 
207 IF F$="N" THEN S=0 : GOTO 358 
210 PRINT : IF RND(1)>.65 THEN 325 


UNE AUTRE MISSION (Y OR N)? Y 215 GOTO 380 
VOUS PILOTEZ UN BOMBARDIER DE LA 2FEMF GUERRE MONDIALE. 220 PRINT "UN NAZI, EH? ADMETTONS. VOUS ALLEZ VERS LA RUSSIE(1)," 
230 INPUT “L'ANGLETERRE(2), OU LA FRANCE(3)";M : IF M>O AND M<4 THEN 235 
VOTRE CAMP -- ITALIE(1), ALLIES(2), JAPON(3), ALLEFMAGNE(4)? 4 232 PRINT "RECOMMENCEZ..." : GOTO 220 
UN NAZI, EH? ADMETTONS. VOUS ALLEZ VERS LA RUSSIE(1), 235 PRINT : ON M GOTO 250, 260, 270 
L'ANGLETERRE(2), OU LA FRANCE(3)? 2 250 PRINT "VOUS APPROCHEZ DE STALINGRAD." : GOTO 280 
260 PRINT "VOUS APPROCHEZ DE LONDRES. MEFIANCE ILS ONT DES RADARS." : GOTO 280 
VOUS APPROCHEZ DE LONDRES. MEFIANCFE ILS ONT DFS RADARS. 270 PRINT “APPROCHEZ VERSAILLES. DU GATEAU. ILS N'ONT PRESQU'AUCUNE DEFENSE." 
280 PRINT 
COMBIEN DE MISSIONS AERIENNES COMPTEZ VOUS? 67 285 INPUT "COMBIEN DE MISSIONS AERIENNES COMPTEZ VOUS" ;D 


290 IF D<160 THFN 300 
292 PRINT "DES MISSIONS, PAS DES MILLES..." 
OBJECTIF RATE DE 12 MILLES! 295 PRINT “150 MISSIONS C'EST BEAUCOUP, MEME POUR LES ANCIENS." 
MAINTENANT VOUS Y ETES 11 297 PRINT “BON..., "; : GOTO 285 
300 PRINT:1F D<100 THEN 310 
L'ENNEMI À T'IL DES CANONS(1), DES MISSILES(2), OU LES DEUX(3)? 1 305 PRINT "C'EST AVOIR LES CHANCES DE SON COTE." : GOTO 320 


310 IF D<25 THEN PRINT "TOUT JUSTE SORTI DE L'ECOLE DE PILOTAGE EH?" 


POURCENTAGE DE ‘REUSSITE' DE LA D.C.A. ENNEMIE (10 TO 50)? 40 320 PRINT : IF D<160*RND(1) THEN 330 
325 PRINT "COUP AU BUTII111 "INT(100#RND(1))"TUE(S)." 
327 PRINT "MISSION REMPLIE." : GOTO 390 

VOUS VOUS EN ETES SORTI, MALGRE UNE D.C.A. DANTESQUEI 1 330 PRINT "OBJECTIF RATE DE"INT(2+30*RND(1))"MILLESI" 


335 PRINT "MAINTENANT VOUS Y ETES 11" : PRINT 
340 INPUT “L'ENNEMI À T'IL DES CANONS(1), DES MISSILES(2), OU LES DEUX(3)":R 
345 IF R>O AND R<4 THEN 350 


UNE AUTRE MISSION (Y OR N)? Y 347 PRINT “RECOMMENCEZ..." : GOTO 340 
350 PRINT : T=0 : IF R=2 THEN 360 
VOUS PILOTEZ UN BOMBARDIER DE LA 2EME GUERRE MONDIALE. 355 INPUT "POURCENTAGE DE ‘REUSSITE' DE LA D.C.A. ENNEMIE (10 TO 50)";S 
357 IF S<10 THEN PRINT “VOUS MENTEZ, MAIS VOUS LE PAIEREZ...": GOTO 380 
VOTRE CAMP -- ITALIE(1), ALLIES(2), JAPON(3), ALLEMAGNE(4)? 2 358 PRINT 
AVION -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)? 3 360 PRINT : IF R>1 THEN T=35 
365 IF S+T>100*RND(1) THEN 380 
VOUS FAITES LA CHASSE AU BISMARK EN MER DU NORD. 370 PRINT “VOUS VOUS EN ETES SORTI, MALGRE UNE D.C.A. DANTESQUEI!I" : GOTO 390 
380 PRINT “* * * * BOUM * * * *" 
COMBIEN DE MISSIONS AERIENNES COMPTEZ VOUS? 123 384 PRINT "VOUS AVEZ ETE DESCENDU....." 
386 PRINT "AMI TRES CHER, NOUS SOMMES AUJOURD'HUI RASSEMBLES POUR RENDRE" 
C'EST AVOIR LES CHANCES DE SON COTE. 387 PRINT "UN DERNIER HOMMAGE..." 
390 PRINT:PRINT:PRINT:INPUT “UNE AUTRE MISSION (Y OR N)":US$ 
COUP AU BUTIIII 30 TUE(S). 395 1F LEFTS(US,1)="Y" THEN 8 
MISSION REMPLIE. 400 PRINT “POLTRON 111" : PRINT : END 
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Bounce (Rebond) 





Ce programme fait le tracé graphique 
d'une balle qui rebondit. La plupart des 
tracés graphiques sur ordinateur se dessi- 
nent de haut en bas sur le papier dans le 
terminal, pourtant ce tracé est effectué ho- 
rizontalement sur le papier (de gauche à 
droite). 

Vous pouvez déterminer la vitesse ini- 
tiale de la balle et son coefficient d'élasti- 
cité (celui-ci est d'environ 0.85 pour une 
très bonne balle, il est moindre pour les 
autres balles). Vous déterminez aussi l’in- 
crément de temps séparant deux visuali- 
sations « stroboscopiques » du vol de la 
balle. En d’autres termes, c'est comme si 
la balle était lancée en l'air dans une pièce 
sombre et que vous l'éclairiez à intervalles 
réguliers pour photographier sa progres- 
sion. 

Le programme fut écrit à l'origine par 
Val Skalabrin lorsqu'il était à DEC. 


BOUNCE 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 





=> 


10 PRINT TAB(33);"BOUNCE" 
20 PRINT TAB(15):"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


CETTE SIMULATION VOUS INVITE À PRECISER LA VITESSE INITIALE D'UNE 30 PRINT:PRINT: PRINT 
BALLE LANCEE VERS LE HAUT ET LE COEFFICIENT D'ELASTICITE 90 DIM T(20) 
DE LA DITE BALLE. S'IL VOUS PLAIT, UTILISEZ POUR CES 100 PRINT "“CETTF SIMULATION VOUS INVITE À PRECISER LA VITESSE INITIALE D'UNE" 
COEFFICIENTS DES NOMBRES INFERIEURS A 1. 110 PRINT “BALLE LANCFE VERS LF HAUT FT LE COEFFICIENT D'ELASTICITE" 
120 PRINT "DF LA DITE BALLE. S'IL VOUS PLAIT, UTILISEZ POUR CES" 
PRECISEZ AUSSI L'INCREMENT DE TEMPS SEPARANT DEUX VISUALISATIONS 130 PRINT “COEFFICIENTS DES NOMBRES INFERIEURS À 1." 
STROBOSCOPIQUES' DE LA BALLE EN VOL (PRENDRE .l AU DEBUT). 131 PRINT 
132 PRINT "PRECISEZ AUSSI L'INCREMENT DE TEMPS SEPARANT DEUX VISUALISATIONS" 
INCREMENT DE TEMPS (SEC)? .1 133 PRINT “'STROBOSCOPIQUES' DF LA BALLE EN VOL (PRENDRE .1 AU DEBUT)." 
134 PRINT 
VITESSE INITIALE (PIEDS/SEC)? 30 135 INPUT "INCREMENT DE TEMPS (SEC)";:S2 
140 PRINT 
COEFFICIENT? .9 150 INPUT "VITESSE INITIALE (PIEDS/SEC)";V 
160 PRINT 
PIEDS 170 INPUT "COEFFICIFNT";C 
180 PRINT 
14 000 182 PRINT "PIEDS" 
0 184 PRINT 
13 0 0 1R6 S1=INT(70/(V/(16*S2))) 
190 FOR I=1 TO SI 
12 0 0 200 T(I)=V*CA{I-1)/16 
00 210 NEXT 1! 
11 0 0 0 220 FOR H=INT(-16*(V/32)24VA2/324.5) TO O STEP -.5 
0 0 0 221 IF INT(H)<>H THEN 225 
10 222 PRINT H: 
0 0 0 225 L=0 
9 ° 0000 230 FOR I=1 TO S1 
0 240 FOR T=0 TO T(I1) STEP S2 
8 0 0 0 245 L=L+S2 
0 0 250 IF ABS(H-(.5#(-32)*T/24V*CT(1-1)*T))>.25 THEN 270 
7 Q 0 260 PRINT TAR(L/S2);:"O";: 
0 0 270 NEXT T 
6 0 0 275 T=T(1+1)/2 
0 276 IF -16*T/2+4V#*CN(1-1)#*T<H THEN 290 
5 0  o 280 NEXT I 
0 Q 290 PRINT 
4 0 300 NFXT H 
310 PRINT TAB(1): 
3 320 FOR I=1 TO INT(L+1)/S2+1 
0 330 PRINT “.": 
0 0 0 340 NEXT 1 
2 0 U 350 PRINT 
355 PRINT “ O0"; 
1 360 FOR I=1 TO INT(L+.9995) 
U 380 PRINT TAB(INT(1/S2)):1; 
Q 390 NEXT 1 
0 0 0 400 PRINT 
sas sonores coco serons secs rerosesseesesssseesee 410 PRINT TAB(INT(L+1)/(2*S2)-2); *SFCONDES" 
0 1 2 3 4 5 6 420 PRINT 
SECONDES 430 INPUT “ENCORE “;ANSS:PRINT 


435 IF LEFTS(ANSS,1)="Y" THEN 135 
END 


ENCORE ? N 440 
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Bowling 





C'est une simulation du Bowling qui 
peut compter jusqu'à quatre joueurs. Vous 
jouez 10 séries. Pour faire rouler la boule, 
vous tapez simplement « ROLL ». L'ordi- 
nateur vous montre un diagramme de 
quilles restantes après chaque lancé 
(« O » veut dire que la quille est tombé, 
«+» veut dire qu'elle est toujours de- 
bout), et il vous donne une analyse du 
lancé : 

GOUTTIERE 

BUT 

RATTRAPAGE 

FAUTE (à la seconde boule, si des 
quilles sont encore debout) 

Bowling a été écrit par Paul Peraino 
lorsqu'il était étudiant à Woodrow Wilson 
High School, San Francisco, Californie. 


BOWL 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


BIENVENUE SUR LE TERRAIN 
AMENEZ VOS AMIS 
BIENI.FAISONS D'ABORD CONNAISSANCE 


LE REGLEMENT (Y/N) 
?Y 


TAPEZ ‘ROULE' POUR FAIRE ROULER LA BOULE. 
?R 
JOUEUR: 2 CADRE: 1 BOULE: 2 


0000 
O0 O0 + 
O + 
o 
FAUTE 111 


TAPEZ ‘ROULE' POUR FAIRE ROULER LA BOULE. 
?2R 
JOUEUR: 1 CADRE: 2 BOULE: 1 


+000 
+00 
+ 0 
o 
LANCEZ VOTRE 2EME BOULE 


TAPEZ ‘ROULE' POUR FAIRE ROULER LA BOULE. 
?R 
JOUEUR: 1 CADRE: 2 BOULE: 2 


0000 
000 
+ 0 


oO 
FAUTE 111 


LE JEU DU BOWLING DEMANDE DE L'INTELLIGENCE ET DE L'ADRESSE.PENDANT LA PARTIE 
L'ORDINATEUR TIENDRA LES SCORES.VOUS POUVEZ JOUER À PLUSIEURS 


JOUEURS(4 MAXI).VOUS JOUEREZ 10 CADRES 


LES DIAGRAMMES DE QUILLES REPRESENTENT PAR ‘O' LA QUILLE TOMBEE, 
PAR ‘+' LA QUILLE DEBOUT. APRES LA PARTIE L'ORDINATEUR AFFICHE VOS 


SCORES . 


Le traducteur a apporte quelques legeres modifs aux alentours de la 


ligne 3780, pour permettre l' 





ec sous Basic 5.0. La solution ne 


devrait pas deplaire aux autres Basic. La programmation originale 


peut etre retablie. 
ET D'ABORD...COMBIEN DE JOUEURS Y À T-IL? 2 


TRES BIEN... 

TAPEZ ‘ROULE' POUR FAIRE ROULER LA BOULE. 
? ROULE 

JOUEUR: 1 CADRE: 1 BOULE: 1 


O + O + 
000 
+ 0 
o 
LANCEZ VOTRE 2EMF BOULE 


TAPEZ ‘ROULE' POUR FAIRE ROULER LA BOULE. 
7R 
JOUEUR: 1 CADRE: 1 BOULE: 2 


0000 
000 

Oo oO 

o 
RATTRAPAGE 1111 


TAPEZ ‘ROULE' POUR FAIRE ROULER LA BOULE. 
? ROULE 
JOUEUR: 2 CADRE: 1 BOULE: 1 


O0 OO + 
O + + 
O + 


o 
LANCEZ VOTRE 2EME BOULE 


TAPEZ ‘ROULE' POUR FAIRE ROULER LA BOULE. 
7?R 
JOUEUR: 2 CADRE: 2 BOULE: 1 


0+00 
000 
oo 
o 
LANCEZ VOTRE 2EME BOULE 


TAPEZ ‘ROULE' POUR FAIRE ROULER LA BOULE. 
7?R 
JOUEUR: 2 CADRE: 2 BOULE: 2 


0000 
000 

o o 

o 
RATTRAPAGE 1111 


TAPEZ ‘ROULE' POUR FAIRE ROULER LA BOULE. 
? ROULE 
JOUEUR: 1 CADRE: 3 BOULE: 1 


+ +0 + 
+ 0 + 
o 0 
o 
LANCEZ VOTRE 2EME BOULE 
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TAPEZ ‘ROULE' POUR FAIRE ROULER 
7R 
JOUEUR: 1 CADRE: 3 BOULE: 2 


+000 
000 

Oo o 

o 
FAUTE 111 


TAPFZ ROULE‘ POUR FAIRE ROULER 
?R 
JOUEUR: 2 CADRE: 3 BOULE: 1 


+000 
000 
oo 
[e) 
LANCEZ VOTRE 2EME BOULE 


TAPEZ ‘ROULE' POUR FAIRE ROULER 
?R 
JOUEUR: 2 CADRE: 3 BOULE: 2 


0000 
000 

Oo o 

[e} 
RATTRAPAGE 1111 


TAPEZ ROULE‘ POUR FAIRF ROULER 
?R 
JOUEUR: 1 CADRE: 4 BOULE: 1 


O0 OO + 
000 
+ # 
o 
LANCEZ VOTRE 2EME BOULE 


TAPEZ ‘ROULE' POUR FAIRE ROULER 
?R 
JOUEUR: 1 CADRE: 4 BOULE: 2 


0000 
000 

0 o 

o 
RATTRAPAGE 1111 


TAPEZ ‘ROULE' POUR FAIRE ROULER 
? ROULE 
JOUEUR: 2 CADRE: 4 BOULE: 1 


0000 
000 
0 oO 
+ 
LANCEZ VOTRE 2EME BOULE 


TAPEZ ‘ROULE'‘ POUR FAIRE ROULER 
?R 
JOUEUR: 2 CADRE: 4 BOULE: 2 


0000 
000 

oo 

o 
RATTRAPAGE 1111 


TAPEZ ‘ROULE' POUR FAIRE ROULER 
?2R 
JOUEUR: 1 CADRE: 5 BOULE: 1 


+000 
Oo + 0 
oo 
(o) 
LANCEZ VOTRE 2EME BOULE 


TAPEZ ‘ROULE' POUR FAIRE ROULER 
?R 
JOUEUR: 1 CADRE: 5 BOULE: 2 


0000 
000 

o o 

o 
RATTRAPAGE 1111 


TAPEZ ‘ROULE' POUR FAIRE ROULER 


BOULE. 


BOULE. 


BOULE. 


BOULE. 


BOULE. 


BOULE. 


BOULE. 


BOULE. 


10 P 
20 P 
30 P 
270 

360 

450 

540 

630 

720 

810 

900 

960 

990 

995 

1080 
1170 
1260 
1350 
1440 
1449 
1450 
1451 
1452 
1530 
1620 
1710 
1800 
1890 
1980 
2070 
2160 
2250 
2340 
2430 
2520 
2610 
2700 
2790 
2880 
2970 
3060 
3150 
3240 
3330 
3420 
3510 
3600 
3690 
3780 
3799 
3870 
3960 
4050 
4140 





RINT TAR(34);"BOWL" : PRINT 

RINT TAR(15):"CRFATIVE COMPUTING 
RINT: PRINT: PRINT 

DIM C(15),A(100,6) 

PRINT "BIENVENUE SUR LF TERRAIN" 
PRINT “AMENEZ VOS AMIS" 

PRINT "BIFNI.FAISONS D'ABORD CONNAISSANCE" 


MORRISTOWN, NEW JERSEY" 


PRINT “" 
PRINT "LE RFGLEMENT (Y/N)" 
INPUT Z$ 


IF Z$="Y" THFN 990 

IF Z$="N" THEN 1530 

PRINT "LE JEU DIU BOWLING DEMANDE DFE L'INTELLIGENCF ET DE L'ADRESSE."; 

PRINT "PENDANT LA PARTIF" 

PRINT "L'ORDINATEUR TIENDRA LFS SCORES.VOUS POUVEZ JOUER À PLUSIEURS" 
PRINT "JOUEURS(4 MAXI).VOUS JOUEREZ 10 CADRES" 

PRINT "LES DIAGRAMMES DE QUILLES REPRESENTENT PAR 'O' LA OUILLF TOMREF, * 
PRINT "PAR '+' LA QUILLE DEBOUT. APRFS LA PARTIE L'ORDINATEUR AFFICHE VOS" 
PRINT "SCORES ." 

PRINT "Le traducteur a apporte quelques leqeres modifs aux alentours de la” 
PRINT "liqne 3780, pour permettre l'exec sous Basic 5.0. La solution ne” 





PRINT "devrait pas deplaire aux autres Basic. La programmation originale" 
PRINT “peut etre retahlie." 

PRINT "ET D'ABORD...COMBIEN DE JOUEURS Y À T-IL"; 

INPUT R 

PRINT 

PRINT "TRES BIEN..." 

FOR I=1 TO 100: FOR J=1 TO 6: A(1,J)=0: NEXT J: NEXT I 

F=1 

FOR P=1 TO R 


M=0 





M=0: 0=0 
FOR 1=1 TO 15: C(1)=0: NEXT 1 
REM ARQUE GENERATEUR DE BOULE UTILISANT LE SYSTEME MOD ‘15 


PRINT "TAPEZ 'ROULF' POUR FAIRF ROULER LA BOULF." 
INPUT NS 
K=0: D=0 


FOR I=1 TO 20 
X=INT(RND(1)#*100) 

FOR J=1 TO 10 

IF X<15*J THEN 3330 

NEXT J 

C(15*J-X)=1 

NEXT I 

RFM ARQUE DIAGRAMME QUILLES 

PRINT "JOUFEUR:"P; "CADRE :";F"BOULE:"B 
FOR I=0 TO 3 

PRINT 

PRINT TAB(141);'------ 
FOR J=1 TO 4-I 

K=K+1 

1F C(K)=1 THEN 4320 
"##*#PRINT TAB(I):"+4 "; 





traducteur 
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4149 
4230 
4320 
4329 
4419 
4500 
4590 
4680 
4770 
4860 
4950 
5040 
5130 
5220 
5310 
5400 
5490 
5580 
5670 
5760 
5850 
5940 
6030 
6120 
6210 
6300 
6390 
6480 
6570 
6660 
6750 
6840 
6930 
7020 
7110 
7200 
7290 
7295 
7380 
7470 
7560 
7650 
7740 
7830 
7920 
8010 
8100 
8105 
8190 
8280 
8370 
8460 
8550 
8640 
8730 


PRINT “4 ";'------ 
GOTO 4410 
"#*##PRINT TAR(I); 
PRINT “O ";'----- 
NEXT I 

NFXT I 

PRINT “" 

REM ARQUF ANALYSF LANCFMENT 
FOR I=1 TO 10 

D=D+C(1) 

NEFXT I 

IF D-M <> O THEN 5220 

PRINT "GOUTTIFREI!" 

IF R<>l OR D<>10 THFN 5490 
PRINT "RUT 11111" 

Q=3 

IF B<>2 OR N<>10 THEN 5760 
PRINT “RATTRAPAGE !111" 

Q=2 

IF B<>2 OR N>=10 THEN 6030 
PRINT "FAUTE !11" 

O=1 

IF B<>]l OR D>=10 THEN 6210 
PRINT "LANCFZ VOTRF 2EME BOULE" 
RFM ARQUE STOCKAGE DES SCORES 
PRINT 

A(F#*P,B)=D 

IF B=2 THEN 7020 

B=2 

M=D 

IF Q=3 THEN 6210 
A(F#*P,B)=D-M 

IF O=0 THEN 2520 

A(F*P,3)=Q 

NEXT P 

F=F4+1 

IF F<ll THEN 2070 

PRINT "CADRES" 

FOR I=]1 TO 10 

PRINT 1; 

NEXT 1! 

PRINT 

FOR P=1 TO R 

FOR I=1 TO 3 

FOR J=1 TO 10 

PRINT A(J*P,1); 

NEXT J 

PRINT 

NEXT I 

PRINT 

NEXT P 

PRINT "UNE AUTRE PARTIE" 
INPUT A$ 

1F LEFTS(A$,1)="Y" THEN 2610 
END 


traduc 





traduc 


Boxing (La boxe) 





Ce programme simule un match de 
boxe olympique en 3 rounds. L'ordinateur 
entraîne un des boxeurs et détermine ses 
coups et ses parades pendant que vous 
faites la même chose pour votre boxeur. 
Au début du match, vous devez spécifier 
le point fort ainsi que le point sensible de 
votre homme. 

Il y a environ sept coups importants par 
round, bien que cela puisse être modifié à 
l'instruction 185. Le vainqueur est celui 
qui remporte deux des trois rounds. 

Jesse Lynch de St. Paul, Minnesota a 
créé ce programme. 


BOXING 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


BOXE - REGLES OLYMPIQUES (3 ROUNDS -- 2 SUR 3 POUR GAGNER) 


NOM DE L'ADVERSAIRE? RONDOUILLARD 

NOM DE VOTRE CHAMPION? LEMUSCLE 

LES COUPS SONT: (1) SWING: (2) CROCHET: (3) UPPERCUT; (4) DIRECT. 
MEILLEUR COUP DE VOTRE HOMME? 2 

COUP AUQUEL IL EST SENSIBLE? 4 


LE POINT FORT DE RONDOUILLARD EST 1 ET SON POINT SENSIBLE EST SECRET. 


LE ROUND 1 COMMENCE... 

COUP DE LEMUSCLE? 2 

LEMUSCLE DECOCHE UN CROCHET... RONDOUILLARD BALANCE UN SWING ET C'EST BLOQUEI 

COUP DE LEMUSCLE? 2 

LEMUSCLE DECOCHE UN CROCHET... COUP DE LEMUSCLE? 2 

LEMUSCLE DECOCHE UN CROCHET... RONDOUILLARD LANCE UN DIRECT ET RONDOUILLARD 
BALANCE UN SWING ET C'EST BLOQUEI 

COUP DE LEMUSCLE? 3 

LEMUSCLE TENTE UN UPPERCUT QUI EST BLOQUE (BLOCAGE HEUREUXI ) 


LEMUSCLE GAGNE LE ROUND 1. 


LE ROUND 2 COMMENCE... 

COUP DE LEMUSCLE? 2 

LEMUSCLE DECOCHE UN CROCHET... LEMUSCLE EST ATTAQUE PAR UN UPPERCUT (OH,0H)... 
BLOQUE ET TOUCHE RONDOUILLARD AVEC UN CROCHET. 

RONDOUILLARD LANCE UN DIRECT ET RONDOUILLARD LANCE UN DIRECT ET LEMUSCLE 

EST ATTAQUE PAR UN UPPERCUT (OH,OH)... 

BLOQUE ET TOUCHE RONDOUILLARD AVEC UN CROCHET. 

RONDOUILLARD BALANCE UN SWING ET C'EST BLOQUE! 

RONDOUILLARD ATTEINT LEMUSCLE À LA MACHOIRE (HOULAI ) 

-...ET REDOUBLEI 


LEMUSCLE EST ATTAQUE PAR UN UPPERCUT (OH,OH)... 
BLOQUE ET TOUCHE RONDOUILLARD AVEC UN CROCHET. 


RONDOUILLARD GAGNE LE ROUND 2. 


LE ROUND 3 COMMENCE... 

COUP DE LEMUSCLE? 2 

LEMUSCLE DECOCHE UN CROCHET... COUP DE LEMUSCLE? 3 

LEMUSCLE TENTE UN UPPERCUT ET IL ENCHAINEI 

RONDOUILLARD LANCE UN DIRECT ET RONDOUILLARD ATTEINT LEMUSCLE 
A LA MACHOIRE (HOULAI) 

+...ET REDOUBLEI 


LEMUSCLE EST ATTAQUE PAR UN UPPERCUT (OH,OH)... 

ET RONDOUILLARD ENCHAINE... 

RONDOUILLARD LANCE UN DIRECT ET COUP DE LEMUSCLE? 2 

LEMUSCLE DECOCHE UN CROCHET... RONDOUILLARD ATTEINT LEMUSCLE 

A LA MACHOIRE (HOULAI) 

....ET REDOUBLEI 

LEMUSCLE EST MIS K.O. ET RONDOUILLARD EST DECLARE VAINQUEUR ET CHAMPION! 


ET AU REVOIR DE LA PART DU STADE OLYMPIQUE. 
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1 PRIN? TAB(33):"BOXING" 

2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
3 PRINT:PRINT: PRINT 

4 PRINT “BOXE - REGLES OLYMPIQUES (3 ROUNDS -- 2 SUR 3 POUR GAGNER)" 
5 J=0 

6 L=0 

8 PRINT 

10 PRINT “NOM DE L'ADVERSAIRE"; 

20 INPUT JS 

30 PRINT “NOM DF VOTRE CHAMPION"; 

40 INPUT LS 


45 PRINT “LES COUPS SONT: (1) SWING; (2) CROCHET: (3) UPPERCUT:; (4) DIRECT." 


60 PRINT “MEILLEUR COUP DE VOTRE HOMME"; 
64 INPUT B 

70 PRINT “COUP AUQUEL IL EST SENSIBLE"; 
80 INPUT D 

90 Bl=INT(4*RND(1)+1) 

100 D1=INT(4*RND(1)+1) 

110 1F Bl=N1 THEN 90 

115 PRINT 


120 PRINT “LE POINT FORT DE ";J$;" EST";Bl;"ET SON POINT SENSIBLE EST SECRET." 


123 PRINT 

130 FOR R=1 TO 3 

140 IF J>= 2 THEN 1040 
150 IF L>=2 THFN 1060 






160 X=0 

170 Y=0 

180 PRINT "LE ROUND";R;"COMMENCE. . ." 
181 PRINT "------- -_* 


185 FOR Rl= 1 TO 7 

190 I=INT(1O*RND(1)+1) 

200 IF 1>5 THEN 600 

210 PRINT “COUP DE ":LS$; 

220 INPUT P 

221 IF P=B THEN 225 

222 GOTO 230 

225 X=X+2 

230 IF P=1 THEN 340 

240 IF P=2 THEN 450 

250 IF P=3 THEN 520 

270 PRINT L$;" ENVOIE UN DIRECT VERS LA TETE DE";J$;" " 
271 IF Dl=4 THEN 290 

275 C=INT(B#*RND(1)+41) 

280 IF C<4 THEN 310 

290 X=X+3 

300 GoTO 950 

310 PRINT “IL EST BLOQUE." 

330 GOTO 950 

340 PRINT L$ " ENVOIE UN SWING ET "; 
341 IF Dl=4 THEN 410 

345 X3=INT(30*RND(1)+1) 

350 IF X3<10 THEN 410 

360 PRINT “IL MANOUE "; 

370 PRINT 

375 1F X=1 THEN 950 

380 PRINT 

390 PRINT 

400 GOTO 300 

410 PRINT “IL ENCHAINFI" 

420 IF X>35 THEN 980 

425 X=X+15 

440 GOTO 300 

450 PRINT LS;:" DECOCHE UN CROCHET... "; 
455 IF Dl=2 THEN 480 

460 HI1=INT(2*RND(1)+1) 

470 IF Hl=l THEN 500 

475 PRINT “ENCHAINE..." 

480 X=X+7 

490 GOTO 300 

500 PRINT “MAIS EST BLOQUEIIII1IIIIIIII" 
510 GOTO 300 

520 PRINT L$ “ TENTE UN UPPERCUT “; 
530 1F Dl=3 THEN 570 

540 D5=INT(100*RND(1)+1) 

550 1F D5<51 THEN 570 

560 PRINT "QUI EST BLOQUE (BLOCAGE HEURFEUXI )" 
565 GOTO 300 

570 PRINT "FT IL ENCHAINEI" 

540 X=X+4 

590 GOTO 300 

600 J7=INT(4*RND(1)+1) 

601 IF J7 =Bl THEN 605 

602 GOTO 610 

605 Y=Y+2 

610 IF J7=1 THEN 720 

620 IF J7=2 THEN 810 

630 1F J7 =3 THEN 860 

640 PRINT JS;" LANCE UN DIRECT ET “: 
645 IF D=4 THEN 700 

650 Z4=INT(7*RND(1)+1) 

655 IF Z4>4 THEN 690 

660 PRINT "IL EST BLOQUEI" 

670 GOTO 300 

690 PRINT “ LE SANG COULE 111" 

700 Y=Y+5 

710 GOTO 300 

720 PRINT J$" BALANCE UN SWING ET"; 
730 IF D=l THEN 770 

740 R6=INT(6O*RND(1)+1) 

745 IF R6 <30 THEN 770 

750 PRINT “ C'EST BLOQUEI" 

760 GOTO 300 

770 PRINT “ BINGII111 IL LE TOUCHE FN PLEINE FIGUREI"* 
780 IF Y>35 THEN 1010 

790 Y=Y+15 

800 GOTO 300 

810 PRINT J$:" ATTEINT ";L$:" À LA MACHOIRE (HOULAI)" 
820 Y=Y+7 

830 PRINT “....ET REDOURLEI * 

835 Y=Y+5 

840 IF Y>35 THEN 1010 

850 PRINT 


860 
865 
870 
880 
890 
900 
910 
920 
930 
940 
950 
951 
952 
953 
954 
955 
956 
960 
961 
962 
980 
1000 
1010 
1030 
1040 
1050 
1060 
1070 
1080 
1085 
1090 
1100 
1110 


PRINT L$;" EST ATTAOUF PAR UN UPPFRCUT (OH,OH)..." 
IF D=3 THEN 890 

Q4=INT(200#*RND(1)+1) 

1F Q04>75 THEN 920 

PRINT “ET “;JS;" ENCHAINE..." 

Y=Y+8 

GOTO 300 

PRINT “ BLOQUE ET TOUCHE ";JS$;" AVEC UN CROCHET." 
X=X+5 

GOTO 300 

NEXT R1 

1F X>Y THEN 955 

PRINT:PRINT J$" GAGNE LE ROUND" R:CHR$(8);:".":PRINT 
J=J+1 

GOTO 960 

PRINT:PRINT LS" GAGNE LE ROUND"R;CHR$(8);".":PRINT 
LæL+]1 

NEXT R 

IF J>= 2 THEN 1040 

1F L>=2 THEN 1060 

PRINT J$ “ EST MIS K.O. ET “ L$" FST DECLARE VAINQUEUR ET CHAMPION! "; 
GOTO 1080 

PRINT L$ “ EST MIS K.O. ET “ JS" FST DECLARE VAINQUEUR ET CHAMPIONI"; 
GOTO 1000 

PRINT J$ “ GAGNE (BIEN JOUF," JS;:")." 

GOTO 1000 

PRINT L$ “ RFMPORTE UNE VICTOIRF STUPEFIANTEI!" 
GOTO 1000 

PRINT 

PRINT 

PRINT “ET AU REVOIR DE LA PART DU STADF OLYMPIQUE." 
PRINT 





Bug (L'insecte) 





Le but de ce jeu est de terminer le des- 
sin de votre insecte avant que l'ordinateur 
ne termine le sien. 

Vous et l'ordinateur lancez chacun votre 
tour un dé dont les nombres représentent 
chacun une partie de l’insecte. Vous de- 
vez ajouter les parties dans le bon ordre; 
en d’autres termes, vous ne pouvez pas 
avoir de cou à moins que vous n'ayez un 
corps, vous ne pouvez pas avoir de tête 
sans avoir de cou et ainsi de suite. Après 
chaque nouvelle partie ajoutée, vous avez 
la possibilité de voir les dessins des deux 
insectes. 

Si vous choisissez de voir tous les des- 
sins, ce programme a la capacité de 
consommer plus de « 6 pieds » de listing à 
chaque exécution. Nous ne pouvons que 
vous suggérer de recycler le papier en uti- 
lisant l’autre face. 

Brian Leibowitz a écrit ce programme 
lorsqu'il était en 6° à Harrison Jr-Sr High 
School, Harrison, New York. 


BUG 


J'AI TIRE UN 3. 
3=TETE 
JE N'AI PAS DE COU. 


VOUS AVEZ TIRE UN 6. 
6=PATTE 
MAINTENANT VOUS AVEZ 1 PATTES. 


J'AI TIRE UN 6. 
6=PATTES 
JE N'AI PAS DE CORPS. 


VOULEZ VOUS VOIR LES MAGNIFIQUES DESSINS? N 


VOUS AVEZ TIRE UN 5. 
S=QUEUE 
MAINTENANT JE VOUS DONNE UNE QUEUE. 


J'AI TIRE UN 1. 
1=CORPS 
MAINTENANT J'AI UN CORPS. 


VOULEZ VOUS VOIR LES MAGNIFIQUES DESSINS? N 


VOUS AVEZ TIRE UN 6. 
6=PATTE 
MAINTENANT VOUS AVEZ 2 PATTES. 


J'AI TIRE UN 1. 
1=CORPS 
JE N'AI PAS BESOIN DE CORPS. 


VOULEZ VOUS VOIR LES MAGNIFIQUES DESSINS? Y 


sense LE VOTRE 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


LE JEU ‘BUG' RESSMBLE AU JEU ‘COOTI'. 
J'ESPERE QUE VOUS AIMEREZ CE JEU. 


VOULEZ VOUS LES REGLES? Y 


BBBBBBBBBBBB 
B B 
B B 

TTTTTB B 
BBBBBBBBBBBB 
LL 


LE 


Le but de "BUG' est de terminer votre INSECTE avant le mien 
Chaque nbre represente une partie du corps de l'Insecte. 
Je lancerai les des pour vous et vous dirai le nombre tire 


Si vous avez droit au ‘morceau' correspondant, 
11 en sera de meme pour moi, a mon tour. 


je vous le donnerai 








VOUS AVEZ TIRE UN 1. 
1=CORPS 
VOUS N'AVEZ PAS BESOIN D'UN CORPS. 


J'AI TIRE UN 5. 
S=QUEUE 
JE N'AI PAS BESOIN DE QUEUE. 


VOUS AVEZ TIRE UN 5. 
S=QUEUFE 
VOUS AVEZ DEJA UNE QUEUE. 


J'AI TIRE UN 4. 
4=ANTENNES 
JE PRENDS CETTE ANTENNE. 


VOULEZ VOUS VOIR LES MAGNIFIQUES DESSINS? N 


VOUS AVEZ TIRE UN 2. 
2=COU 
VOUS N'AVEZ PAS BESOIN D'UN COU. 


J'AI TIRE UN 5. 
S=QUEUE 
JE N'AI PAS BESOIN DE QUEUE. 


VOUS AVEZ TIRE UN 3. 
3=TETE 
VOUS AVEZ UNE TETE. 


J'AI TIRE UN 6. 
6=PATTES 
J'AI MAINTENANT 5 PATTES. 


VOULEZ VOUS VOIR LES MAGNIFIQUES DESSINS? N 


VOUS AVEZ TIRE UN 1. 
1=CORPS 
VOUS N'AVEZ PAS BESOIN D'UN CORPS. 


J'AI TIRE UN 6. 
6=PATTES 
J'AI MAINTENANT 6 PATTES. 


Si un changement a lieu ds l'un ou l'autre insecte, je vous 


donnerai la possibilite de voir une image des dits Insectes. VOULEZ VOUS VOIR LES MAGNIFIQUES DESSINS? N 


VOUS AVEZ TIRE UN 1. 


b r tent 1 1 uit 
Les nbres representen es elements comme s : 1=CORPS 


VOUS N'AVEZ PAS BESOIN D'UN CORPS. 


NOMBRE ELEMENT QUANTITE NECESSAIRE Un peu plus tard dans le jeu. 
ES J'AI TIRE UN 1. 

1 CORPS 1 

2 Cou 1 J'AI TIRE UN 2. 1=CORPS 

3 TETE 1 2=COU JE N'AI PAS BESOIN DE CORPS. 

4 ANTENNES 2 JE N'AI PAS BESOIN DE COU. 

5 QUEUE 1 VOUS AVEZ TIRE UN 5. 

6 PATTES 6 S=QUEUE 


Appuyez sur ‘"RETURN' pour demarrer la partie. 


VOUS AVEZ TIRE UN 2. 
2=COU 
VOUS N'AVEZ PAS DE CORPS. 


J'AI TIRE UN 2. 
2=COU 
JE N'AI PAS DE CORPS. 


VOUS AVEZ TIRE UN 2. 
2=COU 
VOUS N'AVEZ PAS DE CORPS. 


J'AI TIRE UN 4. 
4=ANTENNES 
JE N'AI PAS DE TETE. 


VOUS AVEZ TIRE UN 1. 
1=CORPS 
VOUS AVEZ MAINTENANT UN CORPS. 


J'AI TIRE UN 5. 
S=QUEUE 
JE N'AI PAS DE CORPS. 


VOULEZ VOUS VOIR LES MAGNIFIQUES DESSINS? N 
VOUS AVEZ TIRE UN 3. 


3=TETE 
VOUS N'AVEZ PAS DE COU. 


VOUS AVEZ TIRE UN 5. 


S=QUEUE 
VOUS AVEZ DEJA UNE QUEUE. 


J'AI TIRE UN 1. 
1=CORPS 
JE N'AI PAS BESOIN DE CORPS. 


VOUS AVEZ TIRE UN 4. 
4=ANTENNES 
MAINTENANT JE VOUS DONNE UNE ANTENNE. 


J'AI TIRE UN 5. 
S=QUEUE 
JE N'AI PAS BESOIN DE QUEUE. 


VOULEZ VOUS VOIR LES MAGNIFIQUES DESSINS? N 


VOUS AVEZ TIRE UN 6. 
6=PATTE 
VOUS AVEZ DEJA 6 PATTES. 


J'AI TIRE UN 2. 
2=COU 
JE N'AI PAS BESOIN DE COU. 


VOUS AVEZ TIRE UN 1. 
1=CORPS 
VOUS N'AVEZ PAS BESOIN D'UN CORPS. 


J'AI TIRE UN 2. 


2=COU 
JE N'AI PAS BESOIN DE COU. 
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VOUS AVEZ DEJA UNE QUEUE. 


J'AI TIRE UN 3. 
3=TETE 
JE N'AI PAS BESOIN DE TETE. 


VOUS AVEZ TIRE UN 5. 
S=QUEUE 
VOUS AVEZ DEJA UNE QUEUE. 


J'AI TIRE UN 6. 
6=PATTES 
J'AI MES 6 PATTES. 


VOUS AVEZ TIRE UN 5. 
S=QUEUE 
VOUS AVEZ DEJA UNE QUEUE. 


J'AI TIRE UN 6. 
6=PATTES 
J'AI MES 6 PATTES. 


VOUS AVEZ TIRE UN 1. 
1=CORPS 
VOUS N'AVEZ PAS BESOIN D'UN CORPS. 


J'AI TIRE UN 4. 
A=ANTENNES 
JE PRENDS CETTE ANTENNE. 


MON INSECTE EST COMPLET. 


VOULEZ VOUS VOIR LES MAGNIFIQUES DESSINS? Y 


1350 C=0 
1360 GOTO 1630 
1370 PRINT “J'AI DEJA 2 ANTENNES." 
13R0 GOTN 1630 
1390 PRINT “JF N'AI PAS DF TFTE." 
1400 GOTO 1630 
CELL] LE VOTRE CELLE ##*#*** LE MIEN LLLLE 1410 PRINT "S=QUFUE" 
1420 IF P=0 THEN 1480 
1430 IF U=] THEN 1500 
1440 PRINT “MAINTENANT J'AI UNE QUEUE." 


























: FF 1450 U=] 
À FF 1460 C=0 
A FF 1470 GOTO 1630 
HHHHHHH FF 1480 PRINT "JE N'AI PAS DE CORPS." 
H H HHHHHHH 1490 GOTO 1630 : 
HOOH H H 1500 PRINT “JE N'AI PAS BFSOIN DE QUEUE. 
H H HOOH 1510 GOTO 1630 
H OV H H H 1520 PRINT “6=PATTFS" 
HHHHHHH H OV H 1530 IF V=6 THEN 1590 
NN HHHHHHH 1540 IF P=0 THFN 1610 
NN NN 1550 V=Vv41] 
BBBBBBBBBBBB NN 1560. Ca0-. er : 
B B BBBBBBBBBBBB 1579 PRINT “J'AI MAINTENANT PATTFS. 
B B B B 1580 GOTA 1630 
TTTTTE B B B 1590 PRINT,"J'AI MFS 6 PATTES." 
BBBBBRBBBBBB TTTTTB B 1600. GOT: 1630 : 2 
LLLLLL BBBBBBBBBBBB 1610 PRINT "JE N'AI PAS DE CORPS. 
LLLLLEL LLLLLL 1620 G0TO 1630 
LLLLLL 1630 PRINT:FOR DFLAY=1 TO 2000:NEXT:1F A=2 AND T=] AND 
1640 GOTO 1670 L=6 THEN 1650 
1650 PRINT "VOTRF INSFCTF EST COMPLET." 
J'ESPERE QUE CE JEU VOUS À PLU. REJOUEZ Y LE PLUS TOT POSSIBLEI | 1660 Y=Y41 
1670 IF S=2 AND P=] AND V=6 THFN 1690 
1680 GOTO 1710 
10 PRINT TAB(34);"BUG" 1690 PRINT “MON INSFCTFE EST COMPLET." 
; Ce] =Y+ 
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY* ne 
sn PDT RENRERINT 1720 PRINT “VOULEZ VOUS VOIR LES MAGNIFIQUES DESSINS"; 
À 1730 INPUT 2ZS 
50 A=0: B=0: H=0: L=0: N=0: P=0: O=0: R=0: S=0: T=0: U=0: V=0: Y=0 1740 IF LEFTS(ZS,1)="N" OR LEFTS(ZS,1)="n" THEN 300 
60 PRINT "LE JEU ‘'BUG' RESSMBLE AU JEU ‘COOTI'. 1750 PRINT néntes | LE VOTRE tés 
70 PRINT “J'ESPERE QUE VOUS AIMEREZ CF JEU." 1760 PRINT 
80 PRINT 770 Nr 
90 PRINT "VOULEZ VOUS LES REGLES"; 750 He THEN 1860 
100 INPUT Z$ 7 OR Z=1 T 
110 IF LEFTS(Z$,1)="N" OR LEFTS(Z$,1)="n" THEN 300 AR OT enr nN N 
120 PRINT “ Le but de ‘BUG' est de terminer votre INSECTE avant le mien" 1R1O PRINT TAB(10): 
130 PRINT “Chaque nbre represente une partie du corps de l'Insecte." JA20 PRINT MA MS 
140 PRINT "Je lancerai les des pour vous et vous dirai le nombre tire“ 1830 NEXT x d 
150 PRINT "Si vous avez droit au ‘morceau' correspondant, je vous le donnerai" 1840 PRINT 
160 PRINT “Il en sera de neme pour moi, a non tour." 1A50 NEXT Z 
170 PRINT 1R60 IF H=0 THEN ]AAN 
180 PRINT “ Si un changement a lieu ds l'un ou l'autre insecte, je vous" 1R70 GOSUR 2470 
190 PRINT “donnerai la possibilite de voir une image des dits Insectes.":PRINT 1ARO IF N=0 THEN 1920 
200 PRINT “ Les nbres representent les elenents comme suit:":PRINT 1890 FOR Z=] TO 2 
210 PRINT "NOMBRE", "FLEMENT" , "QUANTITE NECESSAIRE" 1900 PRINT " N N" 
215 PRINT "----- pm à 1910 NFXT Z 
220 PRINT TAB(3) , "CORPS", TAB(38); 1920 IF R=0 THEN 2000 
230 PRINT TAB(3) ,"COU",TAR(38);" 1930 PRINT * BBRRBBBBBBBB" 
240 PRINT TAB(3) ,"TETE",TAB(38);"1" 1940 FOR 7=] TO 2 
250 PRINT TAB(3);"4","ANTENNES" ,TAB(38);"2" 1950 PRINT “ B Rp" 
260 PRINT TAB(3);"5","QUEUF",TAR(38);"1" 1960 NFXT Z 
270 PRINT TAB(3);:"6","PATTES",TAB(38);"6" 1970 IF T<>l THEN 1990 
280 PRINT 1980 PRINT “TTTTTB B" 
290 LINE INPUT “Appuyez sur ‘RETURN' pour demarrer la partie.";RR$ 1990 PRINT " BBBBBRBBBRBR" 
293 PRINT CHRS (26) 2000 IF [=0 THEN 2080 
300 ‘**#*#*IF Y>0 THEN 2480 R30 PRINT "VOIS N'AVFZ PAS DE CORPS." 2010 FOR Z=1 TO 2 
303 IF Y>O THEN 2540'=== modif trad. 840 GOTO 970 2020 PRINT TAR(5); 
310 Z=INT(6*RND(1)+1) R5Q PRINT “VOUS AVFZ DEJA UNF OUEUF." 2030 FOR X=1 TO L 
320 C=1 860 GOTO 70 2040 PRINT “ L"; 
330 PRINT:PRINT "VOUS AVEZ TIRE UN";Z;CHRS(R);"." 870 PRINT "6=PATTF" 2050 NEXT X 
340 ON Z GOTO 350,430,540,650,760,870 BRO IF L=6 THFN 940 2060 PRINT 
350 PRINT “1=CORPS" 890 IF B=0 THEN 960 2070 NEXT Z 
360 IF B=1 THEN 410 900 L=L+1 2080 FOR Z=1 TO 4 
370 PRINT “VOUS AVEZ MAINTENANT UN CORPS." 910 C=0 2090 PRINT 
380 B=]1 920 PRINT "MAINTENANT VOUS AVEZ";L;"PATTES." 2100 NEXT Z 
390 C=0 930 GOTO 970 2110 PRINT "*#*#*** LE MIEN 
400 GOTO 970 940 PRINT "VOUS AVEZ DEJA 6 PATTES." 2120 PRINT 
410 PRINT "VOUS N'AVEZ PAS BESOIN D'UN CORPS." 950 GOTO 970 2130 PRINT 
420 GOTO 970 960 PRINT "VOUS N'AVFZ PAS DFE CORPS." 2140 PRINT 
430 PRINT “2=COU" 970 X=INT(6*RND(1)+1) 2150 IF S=0 THEN 2230 
440 IF N=l THEN 500 971 PRINT 2160 FOR Z=1 TO 4 
450 IF B=0 THEN 520 975 FOR DELAY=] TO 2000:NEXT DELAY 2170 PRINT TAB(10); 
460 PRINT “VOUS AVEZ MAINTENANT UN COU." 980 PRINT “J'AI TIRE UN":X;CHRS(8);"." 2180 FOR X=] TO S 
470 N=1 990 ON X GOTO 1000,1080,1190,1300,1410,1520 2190 PRINT "F ‘“; 
480 C=0 1000 PRINT “]=CORPS" 2200 NEXT X 
490 GOTO 970 1010 IF P=] THFN 1060 2210 PRINT 
500 PRINT "VOUS N'AVFZ PAS BESOIN D'UN COU." 1020 PRINT “MAINTENANT J'AI UN CORPS." 2220 NFXT Z 
510 GOTO 970 1030 C=0 2230 IF R<>1 THEN 2250 
520 PRINT "VOUS N'AVEZ PAS DE CORPS." 1040 P=] 2240 GOSUB 2470 
530 GOTO 970 1050 GOTO 1630 2250 IF O=0 THEN 2280 
540 PRINT "3=TFTE" 1060 PRINT “JF N'AI PAS RBFSOIN DE CORPS." 2260 PRINT * N N" 
550 IF N=0 THEN 610 1070 GOTO 1630 2270 PRINT “ N N" 
560 IF H=l THEN 630 1080 PRINT “2=COU" 2280 IF P=0O THEN 2360 
570 PRINT "VOUS AVIFZ BFSOIN D'UNE TETF." 1090 IF O=] THEN 1150 2290 PRINT " BBBBRBBBBBBR" 
SRO H=] 1100 IF P=0 THFMN 1170 2300 FOR Z=1 TO 2 
590 C=0 1110 PRINT “MAINTFHANT J'AI UN COU." 2310 PRINT * B B" 
600 GoTQ 970 1120 O=1 2320 NEXT Z 
610 PRINT "VOUS N'AVEZ PAS DE COU." 1130 C=0 2330 IF U<>1 THEN 2350 
620 GOTO 970 1140 GOTO 1630 2340 PRINT “TTTTTB B* 
630 PRINT "VOUS AVEZ UNE TETE." 1150 PRINT "JE N'AI PAS RESOIN DE COU." 2350 PRINT * BRRBBBBBBBBB" 
640 GOTO 970 1160 GOTO 1630 2360 IF V=0 THEN 2450 
650 PRINT "4=ANTENNES" 1170 PRINT “JE N'AI PAS DF CORPS." 2370 FOR Z=1 TO 2 
660 IF H=0 THEN 740 1180 GOTO 1630 2380 PRINT TAB(5): 
670 IF A=2 THEN 720 1190 PRINT "3=TETE" 2390 FOR X=1 TO V 
680 PRINT “MAINTENANT JE VOUS DONNE UNF ANTENNE." 1200 IF Q=0 THEN 1260 2400 PRINT " L"; 
690 A=A+1 1210 IF R=] THEN 1280 2410 NEXT X 
700 C=0 1220 PRINT “J'AVAIS BESOIN D'UNE TETE." 2420 PRINT 
710 GOTO 970 1230 R=1 2430 NEXT Z 
720 PRINT "VOUS AVEZ DEJA 2 ANTENNES." 1240 C=0 2450 IF Y<>O THEN 2540 
730 GOTO 970 1250 GOTO 1630 2460 GOTO 300 
740 PRINT "VOUS N'AVEZ PAS DE TETE." 1260 PRINT "JE N'AI PAS DE COU." 2470 PRINT " HHHHHHH" 
750 GOTO 970 1270 GOTO 1630 2480 PRINT " H H" 
760 PRINT "S=QUEUE" 1280 PRINT "JF N'AI PAS BESOIN DE TETE." 2490 PRINT * HO OH" 
770 IF B=0 THEN 830 1290 GOTO 1630 2500 PRINT * H H* 
780 IF T=1l THEN 850 1300 PRINT "4=ANTFNNFS" 2510 PRINT * H OV H" 
790 PRINT "MAINTENANT JE VOUS DONNE UNE OUEUF." ]3]0 IF R=0 THEN 1390 2520 PRINT * HHHHHHH" 
ROO T=T4 1 1320 IF S=2 THEN 1370 2530 RETURN 
&1N C=0 1330 PRINT “JE PRENDS CETTE ANTENNF." 2540 PRINT “J'ESPERE QUE CE JEU VOUS À PLU. REJOUEZ Y LE 
A20 GoTo 970 1340 S=S41 2550 END PLUS TOT POSSIBLE! |" 
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 Bullfight (La corrida) 


Dans cette corrida simulée vous êtes le 
matador — c'est-à-dire celui qui a le rôle 
principal et celui qui doit tuer le taureau ou 
être tué (ou s'échapper de l'arène en cou- 
rant). 

À chaque charge du taureau, vous pou- 
vez essayer : 

0. La Véronique (mouvement dange- 

reux à l'intérieur de la cape) 

1. La derechaza (mouvement moins 

dangereux à l'extérieur de la cape) 

2. Le tournoiement ordinaire de la cape, 
ou vous pouvez essayer de tuer le tau- 
reau : 

4. À la nuque 

5. Entre les épaules. 

La foule déterminera alors la récom- 
pense que vous méritez, à titre posthume 
s'il le faut. Plus vous êtes brave et meil- 
leure est la récompense décernée. C'est 
bien aussi de rester en vie ! Vos chances 
augmentent avec la qualité du travail des 
picadors et des toréadors. 

David Sweet de Dartmouth a écrit la 
version originale de ce programme qui a 
été ensuite modifiée par les étudiants de 
Lexington High School, puis par Steve 
North de Creative Computing. 


BULL 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


VOULEZ VOUS CONNAITRE LES REGLES? Y 
HELLO, VOUS LES AFICIONADOS ET VOUS LES SANGUINAIRES. 
VOICI VOTRE CHANCE DE TUER ENFIN UN TAUREAU. 


À CHAQUE CHARGE DU TAUREAU, VOUS POUVEZ ESSAYER 

O - LA VERONIQUE (MOUVEMENT À L'INTERIEUR DE LA CAPE - DANGEREUX) 
1 - LA DERECHAZA ( A L'EXTERIEUR DE LA CAPE - MOINS DANGEREUSE) 

2 - AGITER LA CAPE (DE FACON BANALE). 


AU LIEU DE CELA, VOUS POUVEZ ESSAYER DE TUER LE TAUREAU 
A CHAQUE PASSE: 4 (A LA NUQUE), 5 (ENTRE LES EPAULES). 
MAIS SI J'ETAIS VOUS, 

JE NE TENTERAIS RIEN DE TEL AVANT LA 7EME PASSE. 


LE PUBLIC DIRA LA RECOMPENSE QUE VOUS MERITEZ 

(A TITRE POSTHUME S'IL Y A LIEU). 

PLUS VOUS ETES BRAVE, PLUS HAUTE EST LA RECOMPENSE DECERNEE. 
VOS CHANCES AUGMENTENT AVEC LA QUALITE DU TRAVAIL DES 
PICADORS ET DES TOREADORS. 


“RETURN' POUR COMMENCER LE COMBAT. 
VOUS ETES TOMBE SUR UN TAUREAU TRES BON. 


LES PICADORS ONT FAIT UN TRAVAIL FAIBLARD. 
UN DES PICADORS À ETE TUE. 


LES TOREADORS ONT FAIT UN TRAVAIL TRES BON. 
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PASSE NUMERO 1 

LE TAUREAU VOUS CHARGEI C'EST VOUS LE MATADOR-- 
VOULEZ VOUS TUER LE TAUREAU? N 

QUEL MOUVEMENT FAITES VOUS AVEC VOTRE CAPE? 2 


PASSE NUMERO 2 

LE TAUREAU VOUS CHARGEI C'EST VOUS LE MATADOR-- 
VOULEZ VOUS TUER LE TAUREAU? N 

QUEL MOUVEMENT FAITES VOUS AVEC VOTRE CAPE? 2 

LE TAURFAU VOUS A EVENTREI 

VOUS ETES MORT. 


LE PUBLIC VOUS DECERNE UNE RECOMPENSE 
OLEI VOUS ETES ‘MUY HOMBRE"'II OLEI OLEI 


ADIOS 


VOULEZ VOUS CONNAITRE LES REGLES? Y 
HELLO, VOUS LES AFICIONADOS ET VOUS LES SANGUINAIRES. 
VOICI VOTRE CHANCE DE TUER ENFIN UN TAUREAU. 


À CHAQUE CHARGE DU TAUREAU, VOUS POUVEZ ESSAYER 

O - LA VERONIQUE (MOUVEMENT À L'INTERIEUR DE LA CAPE - DANGEREUX) 
1 - LA DERECHAZA ( À L'EXTERIEUR DE LA CAPE - MOINS DANGEREUSE) 

2 - AGITER LA CAPE (DE FACON BANALE). 


AU LIEU DE CELA, VOUS POUVEZ ESSAYER DE TUER LE TAUREAU 
À CHAQUE PASSE: 4 (A LA NUQUE), 5 (ENTRE LES EPAULES). 
MAIS SI J'ETAIS VOUS, 

JE NE TENTERAIS RIEN DE TEL AVANT LA 7EME PASSE. 


LE PUBLIC DIRA LA RECOMPENSE QUE VOUS MERITEZ 
(A TITRE POSTHUME S'IL Y À LIEU). 
PLUS VOUS ETES BRAVE, PLUS HAUTE EST LA RECOMPENSE DECERNEE. 


VOS CHANCES AUGMENTENT AVEC LA QUALITE DU TRAVAIL DES 
PICADORS ET DES TOREADORS. 


"RETURN' POUR COMMENCER LE COMBAT. 


VOUS ETES TOMBE SUR UN TAUREAU TRES BON. 


LES PICADORS ONT FAIT UN TRAVAIL FAIBLARD. 
UN DES PICADORS À ETE TUE. 


LES TOREADORS ONT FAIT UN TRAVAIL TRES BON. 


PASSE NUMERO 1 

LE TAUREAU VOUS CHARGEI C'EST VOUS LE MATADOR-- 
VOULEZ VOUS TUER LE TAUREAU? N 

QUEL MOUVEMENT FAITES VOUS AVEC VOTRE CAPE? 1 


PASSE NUMERO 2 


LE TAUREAU VOUS CHARGEI C'EST VOUS LE MATADOR-- 
VOULEZ VOUS TUER LE TAUREAU? Y 


C'EST L'INSTANT DE VERITE. 
COMMENT COMPTEZ VOUS TUER LE TAUREAU? 4 


LE TAUREAU VOUS A EVENTREI 
VOUS ETES MORT. 


LE PUBLIC VOUS DECERNE UNE RECOMPENSE 
OLEI VOUS ETES ‘MUY HOMBRE'II OLEI OLEI 


ADIOS 


10 PRINT TAB(34);"BULL" 








20 PRINT TAB(15):"CRFATIVE COMPUTING MORRISTOWN, NEW JERSEY" 1040."PRINT./"POLTRON. 

30 DEF FNA(K)=INT(RNN(1)#*2+1) Len RASE 

Hs FETE ENe 1070 PRINT "VOUS FTES COURAGEUX.  STUPIDE, MAIS COURAGEUX." 
205 PRINT “VOULEZ VOUS CONNAITRE LFS REGLES"; 100: ON: PNA CO) G0TQ, 10802 LT1Q 

206 INPUT 2$ 1090 -P(4)# 

207 IF LFFTS(Z$,1)="N" OR LEFTS(Z$,1)="n" THEN 400 1100 GNTO 660 

208 PRINT CHRS (26) 1110 PRINT “VOUS AVFZ FTE EVENTRF À NOUVEAU!" 
210 PRINT "HELLO, VOUS LES AFICIONADOS ET VOUS LES SANGUINAIRES.":PRINT 1120 GOTO 470 

220 PRINT "VOICI VOTRE CHANCE DE TUER ENFIN UN TAUREAU." 1130 REM 

230 PRINT 1140 Z=1 

240 PRINT "A CHAQUE CHARGE DU TAUREAU, VOUS POUVEZ ESSAYER" 1150 PRINT:PRINT "C'EST L'INSTANT DE VERITE.*:PRINT 
250 PRINT “O - LA VERONIQUE (MOUVEMENT À L'INTERIEUR DE LA CAPF - DANGEREUX) “ 1155 PRINT “COMMENT COMPTFZ VOUS TUFR LE TAUREAU"; 
260 PRINT "l - LA DERECHAZA ( À L'EXTERIEUR DE LA CAPE - MOINS DANGEREUSE)" 1160 INPUT H 

270 PRINT “2 - AGITER LA CAPE (DE FACON BANALF)." 1170 1F H=4 THEN 1230 

280 PRINT 1180 IF H=S THEN 1230 

290 PRINT "AU LIEU DF CELA, VOUS POUVFZ ESSAYER DE TUER LE TAUREAU" 1190 PRINT "VOUS AVEZ PANIQUE. LE TAUREAU VOUS À EVENTRE." 
300 PRINT "A CHAQUE PASSE: 4 (A LA NUQUE), 5 (ENTRE LES EPAULES)." 1220 GOTO 970 

310 PRINT “MAIS SI J'ETAIS VOUS," 1230 K=(6-A)*1O#RND(1)/((D(1)+P(2))*5*D(3)) 
320 PRINT “JE NE TENTERAIS RIEN DF TEL AVANT LA 7FME PASSE." 1240 IF J=4 THEN 1290 

330 PRINT 1250 IF K>.2 THEN 960 

340 PRINT "LE PUBLIC DIRA LA RECOMPENSE QUF VOUS MERITEZ" 1260 PRINT “VOUS AVEZ TUE LE TAUREAUI * 

350 PRINT "(A TITRE POSTHUME S'IL Y A LIFU)." 1270 D(5)=2 

360 PRINT "PLUS VOUS FTES BRAVE, PLUS HAUTE EST LA RECOMPENSE DECFRNEF." 12A0 GOTO 1320 

370 PRINT 1290 IF K>.A THEN 960 

380 PRINT "VOS CHANCES AUGMENTENT AVFC LA QUALITE DU TRAVAIL DES " 1300 GOTO 1260 

390 PRINT "PICANORS FT DES TOREADORS." 1310 PRINT 

394 LINF. INPUT "'RETURN' POUR COMMENCER LF COMBAT.";XXS:PRINT CHRS(26) 1320 PRINT 

400 PRINT 1330 PRINT 

410 PRINT 1340 IF D(4)<>0 THEN 1390 

420 D(5)=1 1350 PRINT “LA FOULE VOUS HUE PENDANT 10 MINUTES. SI VOUS OSFZ REVENIR DANS" 
430 D(4)=1 1360 PRINT “UNE ARENE, FLLE JURE DE VOUS TUER--* 

450 DIM LS(5) 1370 PRINT “A MOINS QUE LE TAUREAU NE SOIT PLUS RAPIDE QU'ELLF." 
455 A=INT(RND(1)*541) 1380 GOTO 1580 

460 FOR 1=1 TO 5 1390 DEF FNC(Q)=FND(Q)*RND(1) 

463 READ LS(1) 1395 DEF PND(Q)=(4.54L/6-(D(1)4D(2))*2.5+4*D(4)+2*D(5)-D(3)*2/120-A) 
467 NEXT I 1400 IF D(4)<>2 THEN 1430 

470 DATA "SUPERBE", "TRES BON", "CONVENABLE" ,"FAIBLARD", “MINABLF" 1410 PRINT “LE PUBLIC VOUS FAIT UNE OVATION DEMENTEI * 

490 PRINT "VOUS ETES TOMBE SUR UN TAUREAU ";LS(A);"." 1420 GOTO 1450 

500 IF A>4 THEN 530 1430 IF D(5)<>2 THEN 1450 

510 IF A<2 THEN 550 1440 PRINT “LE PUBLIC VOUS ACCLAMEI “:PRINT 

520 GOTO 570 1450 PRINT “LF PUBLIC VOUS DECERNE UNF. RFCOMPENSE" 

530 PRINT "VOUS AVEZ DF LA CHANCE." 1460 IF FNC(Q)<2.4 THEN 1570 

540 GOTO 570 1470 IF PNC(Q)<4.9 THEN 1550 

550 PRINT "RONNE CHANCF. VOUS EN AUREZ BESOIN." 1480 IF FNC(Q)<7.4 THEN 1520 

560 PRINT 1500 PRINT “OLFI VOUS ETFS ‘MUY HOMBRE‘11 OLFI OLEI" 

570 PRINT 1510 GOTO 1580 

590 A$="PICADO" 1520 PRINT “LES DFUX OREILLESI" 

5a$ R$="RS" 1530 PRINT "OLEI" 

600 GOSUR 1610 1540 GOTO 1580 

610 n(1)=C 1550 PRINT “UNE OREILLF." 

630 AS="TORFAD" 1560 GOTO 1580 

635 R$="ORS" 1570 PRINT "RIEN DU TOUT." 

640 GOSUB 1610 1580 PRINT 

650 D(2)=C 1590 PRINT “ADIOS":PRINT: PRINT: PRINT 

660 PRINT 1600 GOTO 2030 

670 PRINT . 1610 B=3/A*RND(1) 

680 IF Z=1 THEN 1310 1620 IF B<.37 THEN 1740 

690 n(3)=D(3)+1 1630 IF B<.5 THEN 1720 

700 PRINT "PASSE NUMERO":D(3) 1640 IF B<.63 THEN 1700 

705 PRINT “- # 1650 IF B<.87 THEN 1680 

710 1F D(3)<3 THEN 760 1660 C=.1 

720 PRINT "LF TAURFAU ARRIVE. ESSAYEZ VOUS DF LE TUER"; 1670 GOTO 1750 

730 GOSUR 1930 1680 C=.2 

735 IF Z1=l THEN 1130 1690 GOTO 1750 

740 PRINT "MOUVEMENT DE CAPE"; 1700 C=.3 

750 GOTO A00 1710 GOTO 1750 

760 PRINT "LE TAURFAU VOUS CHARGE! C'FST VOUS LF MATADOR--" 1720 C=.4 

770 PRINT “VOULEZ VOUS TUFR LE TAURFAU"; 1730 GOTO 1750 

7RQ GOSUR 1930 1740 C=.5 

785 IF Zl=]l THEN 1130 1750 T=INT(10*C+.2) 

790 PRINT "OUEL MOUVEMFNT FAITES VOUS AVFC VOTRF CAPF"; 1760 PRINT "LES ";AS$:BS;" ONT FAIT UN TRAVAIL ":LS(T);"." 
R0Q INPUT F 1770 IF 4>T THEN 1900 

810 IF E<>INT(ARS(F)) THFN 830 1780 IF S=T THEN 1870 

R20 IF F<3 THEN R50 1790 ON FNA(K) GOTO 1830,1850 

R30 PRINT "NF PANIQUFZ PAS, VOYONSI ENTREZ UN NOMBRE CORRECT" 1800 IF A$="TOREAD" THEN 1820 

840 GOTO A00 1820 ON FNA(K) GOTO 1830,1850 

RSA REM 1830 PRINT “UN DES ":AS:B$S;" À ETF TUE." 

R60 IF F=0 THEN 920 1840 GOTO 1900 

R7O IF F=] THEN 900 1850 PRINT “AUCUN DES ";AS;B$;" N'A FTE TUF." 

880 M=.5 1860 GOTO 1900 

RaQ GOTO 930 1870 IF A$="TORFAN" THEN 1890 

a00 M=2 1880 PRINT FNA(K):"CHFEVAUX DES ":A$;R$:" ONT ETE TUES." 
910 GOTO 930 1890 PRINT FNA(K);"DES ";AS$;BS;" ONT ETE TUES." 

920 M=3 1900 PRINT 

930 L=L+M 1910 RETURN 

240 F=(6-A+M/10)#*RND(1)/((N(1)+D(2)+D(3)/10)*5) 1920 REM 

950 IF F<.51 THEN 660 1930 INPUT AS 

960 PRINT "LE TAUREAU VOUS À EVFNTRE!" 1940 IF LFFTS(AS,1)="Y" OR LEFTS(AS,1)="y" THEN 1990 

970 ON FNA(N) GOTO 980,1010 1950 IF LFFTS(AS,1)="N" OR LEFTS(AS,1)="n" THEN 2010 

980 PRINT "VOUS ETFS MORT." 1970 PRINT “MAUVAISE RFPONSE - - VEUILLEZ RFTAPFR ‘Y' OÙ ‘N'." 
9a0 D(4)=1.5 1980 GOTO 1930 

1900 GoTo 1310 1990 Z1=] 

1010 PRINT “VOUS FTES TOUJOURS VIVANT.":PRINT 2000 GOTO 2020 

1020 PRINT “VOUS VOUS ENFUYEZ DE L'ARENE “; 2010 Z1=2 

1930 GOSUR 1930 2020 RETURN 

1035 IF 71=2 THEN 1070 2030 END 


Bullseye (Dans le mille) 





Dans ce jeu 20 personnes au plus peu- 
vent lancer des fléchettes sur une cible 
ayant des zones de 10, 20, 30 et 40 
points. Le but du jeu est d'obtenir 





200 points. 

Vous avez trois méthodes au choix pour 

lancer : 

Lancer Description Score probable 

1 Tendu rapide Mouche ou ratage total 

2 Tendu avec visée 10, 20 ou 30 points 

3 Par dessous N'importe quoi TOUR 3. TOURS. 

Après avoir joué un certain temps, vous ACOTE DE LA CIBLE! DOMMAGE ZONE DE 30 POINTSI 
constaterez que des joueurs différents ont SCORE TOTAL = 0 ° SCORE TOTAL = 130 
recours à des stratégies différentes. LANCER DE AGESILAS? 1 LANCER DE AGESILAS? 3 
Considérez cependant le score probable MOUCHE 1 40 POINTS! ACOTE DE LA CIBLEI  DOMMAGE. 
par lancer en utilisant toujours la techni- FOREST RARE 
que de lancer n°3 (ligne 220 du program- TOUR 4 TOUR Br. 
me) : 

) LANCER DFE NEPOMUCENE? 2 LANCER DE NEPOMUCENE? 1 
A À ZONE DE 20 POINTS MOUCHEII 40 POINTSI 
> (S) ee ds co Re SCORE TOTAL = 20 SCORE TOTAL = 170 
dr Re LANCER DF AGESILAS? 2 LANCER DE AGESILAS? 2 
80 .95-.75 = .20 6 WHEWI 10 POINTS. WHEWI 10 POINTS. 
20 .75-.45 . .30 6 SCORE TOTAL = 80 SCORE TOTAL = 130 
10 .45-.05 = .40 4 TOUR 3 TOUR 9 
0 -05-.00 = .05 0 
— LANCER DE NEPOMUCENE? 1 LANCER DFE NEPOMUCENE? 2 
MOUCHE ! 40 POINTS! ZONE DE 30 POINTSI 
S b bl ar | n r = 18 SCORE TOTAL = 60 * SCORE TOTAL = 200 
he Pre ane P idiot Des LANCER DE AGESILAS? 1 LANCER DE AGESILAS? 1 
CHEI1 40 POINTSI MOUCHEI 1! 40 POINTSI 

Calculez les scores probables pour les SCORF TOTAL = 120 SCORE TOTAL = 170 
autres lancers et vous pourriez bien être TOUR 6 NOUS AVONS UN GAGNANTI I 
surpris. : LL NEPOMUCENE A TOTALISE 200 POINTS. 

Le programme a été écrit par David Ahl LAPCER DE: NBROMUGENE «1 MERCI POUR LA PARTIE 
de Creative Computing. SCORE TOTAL = 100 | 

LANCER DE AGESILAS? 2 
ACOTE DE LA CIBLE! DOMMAGE. 
SCORF TOTAL = 120 

BULLSEYE 
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5 PRINT TAB(32);"BULLSEYF" 
10 PRINT TARB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 








JUSQU'A 20 JOUEURS PEUVENT DANS CE JEU, LANCER DES FLECHETTES 20 PRINT:PRINT:PRINT 
DANS UNE CIBLE AYANT DES ZONES DE 10, 20, 30, AND 40 POINTS. 30 PRINT “JUSOU'A 20 JOUEURS PEUVENT DANS CE JEU, LANCER DES FLRCHETTES" 
LE BUT EST D'ARRIVER À 200 POINTS. 40 PRINT "DANS UNE CIBLE AYANT DES ZONES DE 10, 20, 30, AND 40 POINTS." 
50 PRINT "LE BUT EST D'ARRIVER À 200 POINTS.": PRINT 
LANCER DESCRIPTION SCORE PROBABLE 60 PRINT "LANCFR",TAR(20):"DESCRIPTION";TAB(45);"SCORE PROBABLF" 
=== === =. 65 PRINT "======",TAR(20);"======22=222";TAB(45); "===." 
1 TENDU RAPIDE MOUCHE OÙ RATAGE TOTAL 70 PRINT" l";TAB(20);"TENDU RAPIDE";TAB(45);"MOUCHE OÙ RATAGE TOTAL" 
2 TENDU AVEC VISEE 10, 20 OR 30 POINTS RO PRINT" 2";TAB(20);"TENDU AVEC VISFEE";TAB(45):"10, 20 OR 30 POINTS" 
3 PAR DESSOUS N'IMPORTE QUOI 90 PRINT" 3";TAB(20);"PAR DESSOUS";TAB(45):"N'IMPORTE OUOI":PRINT 
100 DIM AS(20),S(20),W(10): M=0: R=0: FOR I=1 TO 20: S(I)=0: NEXT 1 
COMBIEN DE JOUEURS? 2 110 INPUT “COMBIEN DE JOUEURS";N: PRINT 
120 FOR I=1 TO N 
NOM DU JOUEUR # 1 ? NEPOMUCENE 130 PRINT “NOM DU JOUFUR #";1;:INPUT AS(I) 
NOM DU JOUEUR # 2 ? AGESILAS 140 NEXT 1 
150 R=R+1: PRINT: PRINT "TOUR";R:PRINT # 
TOUR 1 160 FOR I=1 TO N 
= 170 PRINT: PRINT “LANCER DE ";AS(I):: INPUT T 
180 IF T<O OR T>3 THEN PRINT “ENTREZ 1, 2, OU 31": GOTO 170 
LANCER DE NEPOMUCENE? 1 190 ON T GOTO 200, 210, 200 
A CTE DE LA CIBLE! DOMMAGE. 200 P1=.65: P2=.55: P3=.5: P4=.5: GOTO 230 
SCORE TOTAL = © 210 P1=.99: P2=.77: P3=.43: P4=.01: GOTO 230 
220 P1=.95: P2=.75: P3=.45: P4=.05 
LANCER DE AGESILAS? 2 230 U=RND(1) 
WHEWI 10 POINTS. 240 IF U>=Pl THEN PRINT “MOUCHEII 40 POINTSI":B=40: GOTO 290 
SCORE TOTAL = 10 250 IF U>=P2 THFN PRINT "ZONE DE 30 POINTS!":B=30: GOTO 290 
260 IF U>=P3 THEN PRINT "ZONE DF 20 POINTS":B=20: GOTO 290 
TOUR 2 270 IF U>=P4 THEN PRINT "WHEWI 10 POINTS.":B=10: GOTO 290 
= 280 PRINT “ACOTF DE LA CIBLE! DOMMAGE.": B=0 
290 S(I1)=S(1)+B: PRINT “SCORE TOTAL =";S(I): NEXT I 
LANCER DE NEPOMUCENE? 3 300 FOR I=1 TO N 
ACOTE DE LA CIBLE!  DOMMAGE. 310 IF S(1)>=200 THFN M=M+l: W(M)=1 
SCORE TOTAL = O 320 NEXT I 
330 IF M=0 THEN 150 
LANCER DE AGESILAS? 1 340 PRINT: PRINT “NOUS AVONS UN GAGNANTI1": PRINT 
ZONE DE 20 POINTS 350 FOR I=1 TO M: PRINT AS(W(I1)):" A TOTAIISE";S(W(1)):"POINTS.": NEXT I 
SCORE TOTAL = 30 360 PRINT: PRINT “MERCI POUR LA PARTIE.": END 


Bunny 





BUNNY 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


UN 
BUN BUNNYB 
BUNNYB NYBUNNYRUN 
BUNNYRUN UNNYBUNNYRUN 
UNNYBUNNY NNYBUNNYBUNNYB 
NNYBUNNYBU UNNYBUNNYBUNNYB 
NYBUNNYBUNN YBUNNYBUNNYBUNNY 
YBUNNYBUNNY NNYBUNNYBUNNYBUNN 
BUNNYBUNNYB UNNYBUNNYBUNNYBUN 
UNNYBUNNYBU BUNNYBUNNYBUNNYB 
NNYBUNNYBUN YBUNNYBUNNYBUNNY 
NYBUNNYBUNNY NYBUNNYBUNNYBUNN 
YBUNNYBUNNYB NNYBUNNYBUNNYBU 
BUNNYBUNNYRU UNNYBUNNYBUNNYB 
UNNYBUNNYBUN  BUNNYBUNNYBUNN 
NNYBUNNYBUN YBUNNYBUNNYBU 
NYBUNNYBUNNYBUNNYBUNNY 
YBUNNYBUNNYBUNNYBUNN 
BUNNYBUNNYBUNNYBU 
NNYBUNNYBUNNY 
NYBUNNYBUN 
YBUNNYBU 
UNNYBUNNYBUNN 
NYBUNNYBUNNYBUNNYB 
UNNYBUNNYBUNNYBUNNYBU 
BUNNYBUNNYBUNNYBUNNYBUN 
NYBUNNYBUNNYBUNNYBUNNYBUNN 
NNYBUNNYRBUNNYBUNNYBUNNYBUNNY 
UNNYBUNN  UNNYBUNNYBUNNYBUNNY 
BUNNYBUN UNNYBUNNYBUNNYBUNNYB 
YBUNNYBUN UNNYBUNNYBUNNYBUNNYB 
NYBUNNYBUN  BUNNYBUNNYBUNNYBUNNYB 
NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB 
UNNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB 
NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY 
NYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY 
YBUNNYBUNNYBUNNYBUNNYBUNNYBUNN 
UNNYBUNNYBUNNYBUNNYBUNNYBUNN 
BUNNYBUNNYBUNNYBUNNYBUN Y 
YBUN YBUNNYB NYBU B 


BUNNY NYBUNNYB U 
YBUNN U  YBUNNYB N 
NYBUNN NYBUNNY NYBUNN 


NNYBUNNYBUNNYBUNNY UNN 
UNN N Y N YBUNNYBU 


BU NN N Y Y 
NN  UNNY 

NNY 

NY 
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19 PRINT TAB(33);"BUNNY":PRINT 

20 PRINT TAR(15);"CRFATIVE COMPUTING  MORRISTOWN, NEW JERSFY" 
30 PRINT: PRINT: PRINT 

100 RFM  “BUNNY" FROM AHL'S ‘BASIC COMPUTER GAMES‘ 

110 REM 

120 FOR 1=0 TO 4: RFAN R(I): NEXT I 

130 GOStIR 260 

140 [=64: REM ASCII LETTER CONE... 

50-RFM 

160 PRINT 

170 RFAD X: IF X<0 THFN 160 

175 IF X>:12R THFN 240 

1RO PRINT TAR(X);:: RFAND Y 

190 FOP I=X TO Y: J=1-5*INT(1/5) 

200 PRINT CHRS(L4+4R(T)); 

210 NEXT I 

220 GOTO 170 

230 PFM 

240 GOSTIR 260: GOTO 450 

250 PFM 

260 FOR I=1 TN 6: 
270 RETURN 

280 REM 

290 DATA 2,21,14,14,25 

300 PATA 1,2,-1,0,2,45,50,-1,0,5,43,52,-1,0,7,41,52,-1 

310 NATA 1,9,37,50,-1,2,11,36,50,-1,3,13,34,49,-1,4,14,32,48,-] 


PRINT CHRS(1N);:: NEXT I 


320 DATA 5,15,31,47,-1,6,16,30,45,-1,7,17,29,44,-1,8,19,28,43,-1 
330 DATA 9,20,27,41,-1,10,21,26,40,-1,11,22,25,38,-1,12,22,24,36,-1 
340 DATA 13,34,-1,14,33,-1,15,31,-1,17,29,-1,18,27,-1 

350 DATA 19,26,-1,16,28,-1,13,30,-1,11,31,-1,10,32,-1 


360 DATA 8,33,-1,7,34,-1,6,13,16,34,-1,5,12,16,35,-1 
370 DATA 4,12,16,35,-1,3,12,15,35,-1,2,35,-1,1,35,-1 
3RQ DATA 2,34,-1,3,34,-1,4,33,-1,6,33,-1,10,32,34,34,-1 
390 DATA 14,17,19,25,28,31,35,35,-1,15,19,23,30,36,36,-1 
400 DATA 14,1R,21,21,24,30,37,37,-1,13,18,23,29,33,3R,-1 
410 DATA 12,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1 


420 DATA 10,11,17,1R,22,22,24,24,29,29,-] 

430 DATA 22,23,26,29,-1,27,29,-1,28,29,-1,4096 
440 RFM 

450--END 


Buzzword 





Ce programme est une aide inestimable 
pour préparer des discours et exposés sur 
les techniques pédagogiques. Ce généra- 
teur de mots pompeux fournit des groupes 
de trois mots très acceptables pour travail- 
ler votre matière. Votre auditoire ne saura 
jamais que les phrases ne veulent vrai- 
ment rien dire du tout puisqu'elles sonnent 
si merveilleusement bien ! Des instruc- 
tions complètes pour l'exécution sont don- 
nées dans le programme. 

Cette version de Buzzword a été écrite 
par David Ahl. 


BUZZWORD GENERATOR 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


CE PROGRAMME PRODUIT DES PHRASES DE HAUTE TENUE EN 
*FRANCAIS-ALEATOIRE' QUE VOUS POURREZ AVANTAGEUSEMENT INSERER 
DANS VOS RAPPORTS ET DISCOURS. AUX POINTS D'INTERROGATION, 
REPONDEZ PAR ‘Y' POUR UNE AUTRE PHRASE OU PAR ‘N' POUR FINIR. 


VOICI LA 1ERE PHRASE: 
LA NOBLE ASSEMBLEE EXTRAPOLE BIZARREMENT 


2Y 
LA FOURCHETTE DIGERE BEAUCOUP 


LR 4 
LA FOURCHETTE SE CULTIVE SAUVAGEMENT 


2Y 
TARTEMPION DISSERTE SUBTILEMENT 


2 Y 
LE RHINOCEROS DIGERE SAUVAGEMENT 


LEE 
LE TRADUCTEUR S'ENERVE GENTILMENT 


2Y 
L'ORDINATEUR ORGANISE JOLIMENT 


?Y 
TARTEMPION S'ENERVE DELICATEMENT 


2? Y 
L'ORDINATEUR PLANIFIE JOLIMENT 


?Y 
LE TRADUCTEUR ANALYSE BEAUCOUP 


2% 
LA NOBLE ASSEMBLEE ORGANISE MOLLEMENT 


?Y 
LA SOURCE OBJECTIVISE JOLIMENT 


2 
TARTEMPION ANALYSE BIZARREMENT 


2% 
LE TRADUCTEUR S'ENERVE PEU 


?N 
QUAND VOUS SEREZ ACOURS D'IDEES REVENEZ DONC ME VOIRI 
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PRINT TAR(26):"BUZZWORD GENFRATOR" 


20 PRINT TAB(15):"CRFATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


PRINT:PRINT:PRINT 
PRINT “CF PROGRAMMF PRODUIT DES PHRASFES DE HAUTF TENUF EN" 


50 PRINT "‘FRANCAIS-ALEATOIRE' QUF VOUS POURRFZ AVANTAGEUSEMENT INSFRER" 


PRINT "DANS VOS RAPPORTS ET DISCOURS. AUX POINTS D'INTERROGATION, " 


70 PRINT "RFPONDEZ PAR ‘Y' POUR UNE AUTRE PHRASE OÙ PAR ‘N' POUR FINIR." 


100 
110 
120 
130 
150 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
999 


PRINT:PRINT:PRINT "VOICI LA lFERE PHRASF:" 
DIM AS(40) 

FOR I=] TO 39 : RFAN AS(I) : NEXT 1 
PRINT AS(INT(13#*RND(1)+1)):" 
PRINT AS(INT(13*RND(1)+14)) 
PRINT AS(INT(13#*RND(1)427)) : PRINT 

INPUT _YS IF YS="Y" THEN 110 FLSF GOTO 999 

DATA “LF TRADUCTEUR","LF CHAT","LA SOURCE","LA NOBLF ASSEMBLEE" 






















DATA "LE CYCLISTF","LF NAVIRE","LA FOURCHETTF", "L'ORDINATEUR" 
DATA "LE TIGRF","LA PUCF","LA MAISON 

DATA "LE RHINOCEROS","DIGFRE EVALUF 

DATA *SE CULTIVE","PLANIFIE","S'HUMANISE" 

DATA E","DISSERTE" RGANISE" 

DATA ,"SUBTILFMENT" , “MOLLEFMFNT" 


DATA “FOLLEMENT", "TENDREMENT" , “RIZARRFMFNT", “PUISSAMMENT" 

DATA "DFALICATEMENT", "SALEMENT" , "GENTILMENT", "PEU" 

DATA "BEAUCOUP", "JOLIMENT", "SAUVAGEMENT" 

PRINT “OUAND VOUS SEREZACOURS D'INEFS REVENFZ DONC ME VOIRI": END 





Calendar (Calendrier) 





Ce programme imprime un calendrier 
pour n'importe quelle année. Vous devez 
spécifier le premier jour de la semaine de 
l'année à l'instruction 130. (Dimanche (0), 
Lundi (-1), Mardi (-2), etc.). Vous pouvez 
le déterminer en utilisant le programme 
WEEKDAY. Vous devez aussi faire deux 
changements pour les années bissextiles 
aux instructions 360 et 620. Le listing du 
programme décrit les changements né- 
cessaires. L'exécution du programme pré- 
sente un joli calendrier de 12 mois. 

Le programme a été écrit par Geoffrey 
Chase d'Abbey, Portsmouth, Rhode 
Island. 


CALENDAR 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
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1 2 3 4 5 6 7 
8 9 10 11 12 13 14 
15 16 17 18 19 20 21 
22 23 24 25 26 27 28 
29 30 31 
NN 243 ARR ANRN ARR R AR ARSEPTEMBRE**##temmmnmenenmns ]22 #2 10 PRINT TAB(32);"CALENDAR" 
D L M M J v s 20 PRINT TAB(15):;"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT:PRINT:PRINT 
100 REM VALABLE POUR 1979 - VOIR NOTES 
ARR nn nn nn nn mn nn nn nan nn nn nnnnnnnnnnnnnnnne 110 DIM M(12) 
120 FOR I=1 TO 6: PRINT CHRS(10);:: NEXT I \ 
1 2 3 4 130 D=-1: REM 1979 COMMENCAIT UN LUNDI (O=DIM, -1=LUN, -2=MARD...) 
140 S=0 
5 6 7 8 9 10 11 150 RFM READ DAYS OF EACH MONTH 
160 FOR N=0 TO 12: READ M(N): NEXT N 
12 13 14 15 16 17 18 170 _RPM 
180 FOR N=1 TO 12 
190 PRINT: PRINT: S=S+M(N-1) 
19 20 22 24 5 ; 
21 ES 2 200 PRINT "#*#*";S;'#*#*#*#*TAB(7);'TABsupprime par trad. ne marche pas sur Basic 5.0 
26 27 28 29 30 210 FOR 1=1 TO 18: PRINT “*";: NEXT I 
220 ON N GOTO 230,240,250,260,270,280,290,300,310,320, 330,340 
230 PRINT " JANVIER ";: GOTO 350 
240 PRINT “ FEVRIER GOTO 350 
250 PRINT * MARS GOTO 350 
260 PRINT “ AVRIL GOTO 350 
270 PRINT “ MAI : GOTO 350 
280 PRINT “ JUIN : GOTO 350 
M* 273 venmnnnanmenemsens OCTOBRE “ttemmmenmnmenmmens 92 # 290 PRINT “ JUILLET ":: GOTO 350 
D L M M J v s 300 PRINT * AOÛT “;: GOTO 350 
310 PRINT "SEPTEMRRF";: GOTO 350 
320 PRINT “ OCTOBRE ";: GOTO 350 
LELELELEELLILLLILLLILLLLLLLLLLLLLLL LL LL LLLLLELLLLLLLLLLLLLELELEL EEE 330 PRINT “ NOVEMBRE":: GOTO 350 
340 PRINT “ DECEMBRE" 
1 2 350 FOR I=1 TO 1R: PRINT “*";: NEXT I 
360 PRINT 365-S;"##"; 
3 4 5 6 7 8 9 370 REM  366-S; LFS ANNEES BISSEXTILES 
3RQ PRINT CHRS(10): PRINT * D L M M"; 
10 11 12 13 14 15 16 390 PRINT " J v S" 
400 PRINT 
17 18 ‘19 20 21 22 23 410 FOR I=1 TO 59: PRINT "*";: NEXT I 
420 REM 
24 25 26 27 28 29 30 430 FOR W=1 TO 6 
31 440 PRINT CHRS(10) 
450 PRINT TAB(4) 
460 REM 
470 FOR G=] TO 7 
480 D=D+1 
490 D2=D-S 
500 IF D2>M(N) THEN 580 
LE LELELELELLLLLLELLLE) LELLELLLLLLLLLLLELE) .. 
es L M NOVEMBRE J v É 510 1F D2>0 THEN PRINT D2; 
520 PRINT TAB(4+8%*G); 
530 NEXT G 
ÉPTTTESSIITSISIITSSTSIIIISIIIIIISIIIIIIIIIIIIILLIIIIL LIL LLLS 540 REM 
550 IF D2=M(N) THEN 590 
1 2 3 4 5 6 560 NFXT W 
570 REM 
7 8 9 10 11 12 13 580. .Den-G 
590 NEXT N 
14 15 16 17 18 19 20 600 RFM 
610 FOR I1=1 TO 6: PRINT CHRS(10);: NEXT I 
21 22 23 24 25 26 27 620 DATA 0,31,28,31,30,31,30,31,31,30,31,30,3 
630 REM 0,31,29, ..., LFS ANNEFS BISSFXTILES 
28 29 30 640 END 


Change (Faites l’appoint) 


Dans ce programme, l'ordinateur pré- 
tend qu'il est le caissier de la sympathique 
petite confiserie de votre quartier. Vous lui 
dites le prix du ou des articles que vous 
achetez, le montant de votre paiement, et 
il déterminera automatiquement votre 
monnaie. Les machines ne sont-elles pas 
merveilleuses ? 

Dennis Lunder de la People's Computer 
Company a écrit ce programme. 


CHANGE 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


MOI, VOTRE AMI L'ORDINATEUR, VAIS CALCULER LA MONNAIE FXACTE À RENDRE 
POUR TOUT ARTICLE D,UN PRIX MAXIMUM DF 100 DOLLARS. 


PRIX DE L'ARTICLE? 80.80 
VERSEMENT EFFECTUE? 100 
JE DOIS VOUS RENDRE 19.2 DOLLAR(S) 
1 BILLET(S) DE 10 DOLLARS 

1 BILLET(S) DE 5 DOLLARS 

4 BILLET(S) DE 1 DOLLAR 

1 PIECE(S) DE 10 CENTS 

1 PIECE(S) DF 5 CENTS 

5 PIECE(S) DE 1 CENT 
MERCI, REVENEZ BIENTOT. 

ENCORE UNE FOIS ? Y 

PRIX DE L'ARTICLE? .19 

VERSEMENT EFFECTUE? 1.00 
JE DOIS VOUS RENDRE .81 DOLLAR(S) 
1 PIECE(S) D'UN DEMI-DOLLAR 

1 PIECF(S) D' 1/4 DE DOLLAR 

1 PIECE(S) DE 5 CENTS 

1 PIECE(S) DE 1 CENT 
MERCI, REVENEZ BIENTOT. 


ENCORE UNE FOIS ? Y 


PRIX DE L'ARTICLE? 1.01 
VERSEMENT EFFECTUE? 5 
JE DOIS VOUS RENDRE 3.99 DOLLAR(S) 
3 BILLET(S) DE 1 DOLLAR 
1 PIECE(S) D'UN DEMI-DOLLAR 
1 PIECE(S) D' 1/4 DE DOLLAR 
2 PIECE(S) DE 10 CENTS 
4 PIECE(S) DE 1 CENT 
MERCI, REVENEZ BIENTOT. 


ENCORE UNE FOIS ? N 
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PRINT TAB(33);"CHANGE" 

PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
PRINT:PRINT:PRINT 

PRINT “MOI, VOTRE AMI L'ORDINATEUR, VAIS CALCULER LA MONNAIE EXACTE A 
PRINT "POUR TOUT ARTICLE D,UN PRIX MAXIMUM DE 100 DOLLARS." 
PRINT:PRINT 


PRINT “PRIX DE L'ARTICLE";:INPUT A:PRINT "VERSEMENT EFFECTUE"; : INPUT 
C=P-A:M=C:1F C<>0O THEN 90 

PRINT "VERSEMENT FXACT, MERCI." 

GOTO 400 

IF C>0 THEN 120 

PRINT "DESOLF, MAIS IL MANQUE" ;A-P;"DOLLAR(S)" 
O0 GOTN 10 

O PRINT “JE DOIS VOUS RENDRE";C;"DOLLAR(S)" 


O D=INT(C/10) 

O IF D=0 THEN 155 

O PRINT D;"BILLFT(S) DE 10 DOLLARS" 
5 C=M-(D*10) 

O E=INT(C/5) 

O IF E=0 THEN 185 

O PRINT E;"RILLET(S) DE 5 DOLLARS" 
S C=M-(D*10+E*5) 

O F=INT(C) 

O IF F=0 THEN 215 

O PRINT F;:"BILLET(S) DE 1 DOLLAR" 

5 C=M-(D*10+F*54F) 

O0 C=Cc*100 

5 N=C 

O G=INT(C/50) 

O IF G=0 THEN 255 

O PRINT G;"PIECE(S) D'UN DEMI-DOLLAR" 
5 C=N-(G*50) 

O0 H=INT(C/25) 

O IF H=0 THEN 285 

O PRINT H;"PIECE(S) D' 
5 C=N-(G*50+H*25) 

O0 I=INT(C/10) 

O IF 1=0 THEN 315 

O PRINT I;"PIECE(S) DE 10 CENTS" 

5 C=N-(G*504H*25+1*10) 

Q J=INT(C/5) 

O IF J=0 THEN 345 

O PRINT J;:"PIECE(S) DF 5 CENTS" 

S C=N-(G#*50+H*2541*10+J*5) 

O K=INT(C+.5) 

O IF K=0 THEN 380 

O PRINT K;"PIFCF(S) DE 1 CENT" 

O PRINT “MEPCI, REVENFZ BIENTOT." 

O PRINT:PRINT 

O INPUT “ENCORF UNE FOIS “;ANSS$S:PRINT 
O IF LEFTS(ANSS,1)="Y" GOTO 10 ELSE END 


1/4 DE DOLLAR" 
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RENDRE* 
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Checkers (Les dames) 





Ce programme joue aux dames. Les 
pions joués par l'ordinateur sont marqués 
avec « X », les vôtres sont marqués « O ». 
Un déplacement est effectué en spécifiant 
les coordonnées du pion à déplacer (X, Y). 
Le point origine (O, O) est le coin inférieur 
gauche, X spécifie la distance à droite du 
point origine (c'est-à-dire la colonne) et Y 
spécifie la distance au-dessus du point ori- 
gine (c'est-à-dire la rangée). Vous spéci- 
fiez ensuite où vous désirez aller. 

La version originale du programme 
d’Alan Segal ne reconnaissait pas (ou ne 
permettait pas) de double ou triple saut. Si 
vous essayiez d'en faire un, vous auriez 
beaucoup de chances pour que votre pion 
disparaisse complètement ! 

Steve North de Creative Computing ré- 
para cet oubli et Lawrence Neal apporta 
des modifications pour permettre au pro- 
gramme de dire quel: joueur a gagné la 
partie. L'ordinateur n'a pas un jeu particu- 
lièrement bon, mais il ne tient qu’à vous de 
l'améliorer. 


CHECKERS 


NOUS ALLONS JOUER AUX ‘DAMES. 
. LES 'O'. L'ORDINATEUR JOUE LE 1ER. 
LES POSITIONS SONT INDIQUEES PAR UN SYSTEME DE COORDONNEES. 


ET VOUS AVEZ 


(0,0) EST LE 
(0,7) EST LE 
(7,0) EST LE 
(7,7) EST LE 


L'ORDINATEUR 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


COIN INFERIEUR 
COIN SUPERIEUR 
COIN INFERIEUR 
COIN SUPERIEUR 


AFFICHERA ‘'+A' 


ENTREZ 2 NBRES NEGATIFS, SI 


GAUCHE 
GAUCHE 
DROIT 
DROIT 


QUAND UNE PRISE À EU LIEU 
VOUS NE POUVEZ PLUS PRENDRE. 


*RETURN' POUR DEMARRER LA PARTIE. 


DE 1 5 A O 


4 


X X . X 
X X X X 
X X 
X 
[eo] o o o 
o (eo) o 
o . o o o 


L'ORDINATEUR À LES ‘X', 


DE? 2,2 
A? 3,3 
DE O 6 A1 5 


DE? 0,2 


X X 
X . X 
X 
o 
X o 
o ( 
o o x* 
DE? 6,2 
A? 5,3 


DE 4 OA6 2 A4 4 


X X 
X . X 
X 
x* 
oO 
X o 
[eo] o 
oO oO 
DE? 1,1 
A? 3,3 
A? 1,2 
A? 0,2 
DE 2 2A4 O0 
X . x . 
X X 
X 
x* 
o 
o X o 
(eo) 
o (9) x* 


DE? 3,1 S PRINT TAR(32); “CHECKERS" 


A? 1,4 10 PRINT TAB(15):;"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

A? 1,3 15 PRINT:PRINT: PRINT 

4A7? -]1,-1 20 PRINT "NOUS ALLONS JOUER AUX ‘DAMES'. L'ORDINATEUR À LES ‘X'," 

DE 4 4A 2 2AO 4 25 PRINT "ET VOUS AVEZ LES ‘O'. L'ORDINATEUR JOUE LE lER." 
30 PRINT "LFS POSITIONS SONT INDIQUEES PAR UN SYSTEME DE COORDONNEES. " 
31 PRINT 

+ _X . x . x . x 35 PRINT "(0,0) EST LF COIN INFERIEUR GAUCHE" 
40 PRINT “(0,7) EST LF COIN SUPERIEUR GAUCHE" 

. ‘ x : x ; x . 45 PRINT “(7,0) EST LE COIN INFERIFUR DROIT" 
50 PRINT "(7,7) FST LE COIN SUPERIEUR DROIT" 

. è . x . x ; x 51 PRINT 
55 PRINT “L'ORDINATEUR AFFICHERA ‘+A' QUAND UNF PRISE À EU LIEU" 

x* è : : : . : 60 PRINT "ENTRFZ 2 NBRFS NFGATIFS, SI VOUS NF POUVFZ PLUS PRENDRE." 
65 PRINT:PRINT:PPINT 

4 * * * ” dd L< # 70 LINF INPUT “'RETURN' POUR DFMARRFR LA PARTIF.";XXS 

o 75 PRINT CHRS (26) 

: : . o . . : 80 NIM R(4),S(7,7):G=-1:R(0)=-99 


90 PATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 
120 FOR X=0 TO 7 
122 FOR Y=0 TO 7 
124 READ J:IF J=15 THFN 1RO 
160 S(X,Y)=J:GOTO 200 
180 REFSTORE:RFAD S(X,Y) 
200 NEXT Y 
292 NEXT X 
230 FOR X=0 TO 7 
232 FOR Y=0 TO 7 
DE? 4,2 234 1F S(X,Y)>-1 THEN 350 
A? 3,3 235 IF S(X,Y)<>-]1 THEN 325 
DE O 4A1 5 310 FOR A=-] TO 1 STEP 2 
312 R=G:GOSUR 650 
314 NEXT À 
x s x . x : x 325 IF S(X,Y)<>-2 THEN 350 
330 FOR A=-l TO l STFP 2 
HE x . x : x . 332 FOR R=-] TO ] STFP 2 
334 GOSUR 650 
. x* . x . x s x 336 NEXT 
33R NEXT 
350 NEXT 
352 NFXT 
354 GOTO 1140 
650 U=X+A:V=Y4B:1F U<O OR 1>7 OR V<O OR V>7 THEN 870 
0 …. è : : : . : 740 IF S(U,V)=0 THEN GOSUB 910:GOTO 870 
770 IF S(U,V)<O THEN 870 
: ; ; = 3 . . o 790 U=U+A:V=V4R:1IF U<O OR V<O OR U»>7 OR V>7 THEN 870 
850 IF S(U,V)=0 THEN GOSURB 910 
02 2. o : x* . o } A70 RETURN 
910 IF V=0 AND S(X,Y)=-] THEN O=042 
920 IF ARS(Y-V)=2 THEN 0=045 
960 IF Y=7 THFN O0=Q-2 
9RO IF U=0 OR U=7 THEN Q=0Q41 
1030 FOR C=-] TO 1 STEP 2:1F U+C<O OR U+C>7 OR V4G<O THEN 1080 
1035 IF S(U4C,V+G)<0 THEN Q=041:GOTO 1080 
1040 IF U-C<0 OR U-C>7 OR V-G>7 THEN 1080 
DE? 2,0 1045 IF S(U4C,V4G)>0 AND(S(U-C,V-G)=0 OR(U-C=X AND V-G=Y))THEN Q=0-2 
A? 3,1 1080 NFXT C:1F Q>R(O)THFEN R(0)=Q:R(1)=X:R(2)=Y:R(3)=U:R(4)=V 
DE 4 OA2 2A4 4 1100 0=0:RETURN 
1140 IF R(Q)=-99 THEN 1880 
1230 PRINT CHR$(26)"DE"R(1):R(2)"A"P(3):R(4)::R(0)=-99 
x : x ; x ; x 1240 IF R(4)=0 THEN S(R(3),R(4))=-2:GOTO 1420 
1250 S(R(3),R(4))=S(R(1),R(2)) 
. n x . x . x . 1310 S(R(1),R(2))=0:1F ABS(R(1)-R(3))<>2 THEN 1420 
1330 S((R(1)+R(3))/2,(R(2)+R(4))/2)=0 
. x" ‘ x . x : x 1340 X=R(3):Y=R(4):IF S(X,Y)=-1 THEN R=-2:FOR A=-2 TO 2 STEP 4:GOSURB 1370 
1350 IF S(X,Y)=-2 THEN FOR A=-2 TO 2 STFP 4:FOR B=-2 TO 2 STFP 4:GOSUB 1370:NEXT B 
. , 2 ‘ x* $ à : 1360 MFXT A:IF R(N)<>-99 THFN PRINT'A"R(3):R(4);::R(0)=-99:GOTO 1240 
1365 GOTO 1420 
. . E L & ‘ ï . 1370 U=X4A:V=Y4+R:IF U<O OR U>7 OR V<Q OR V>7 THEN 1400 
1380 IF S(U,V)=0 AND S(X+A/2,Y+R/2)>0 THEN GOSUB 910 
1400 RFTURN 
1420 PRINT:PRINT:PRINT:FOR Y=7 TO O STFP-]:FOR X=0 TO 7:1=5#*X:PRINT TAB(I); 
‘ : : 5 . . o 1430 IF S(X,Y)=0 THEN PRINT"."; 
1470 IF S(X,Y)=1 THEN PRINT"O 
. o : 1490 IF S(X,Y)=-1 THEN PRINT"X 
1510 IF S(X,Y)=-2 THEN PRINT"X 
1530 IF S(X,Y)=2 THEN PRINT"O**; 
1550 NEXT X:PRINT" “:PRINT:NEXT Y:PRINT 
1552 FOR L=0 TO 7 
1554 FOR M=0 TO 7 
1556 IF S(L,M)=1 OR S(L,M)=2 THEN Z=1 
1558 IF S(L,M)=-1 OR S(L,M)=-2 THFN T=] 
DE? 6,0 1560 NEXT M 
A? 5,1 1562 NFXT L 
DE 1 5 AO 6€ 1564 IF Z<>1 THEN 1885 
1566 IF T<>l THEN 18R0 
1570 Z=0: T=0 
: Es 1590 INPUT "DE":F,H:X=F:Y=H: IF S(Y,Y}e-C THEN 1590 
à 1670 INPUT "A";A,R:X=A:Y=B 
x* x . x à x . 1680 IF S(X,Y)=0 AND ABS(A-F)<=2 AND ABS(A-F)=ABS(B-H)THEN 1700 
1690 PRINT CHRS(7)CHRS(11)::GOTO 1670 
. + . x ; x à x 1700 1=46 
1750 S(A,B)=S(F,H):S(E,H)=0:1F ARS(F-A)<>2 THEN 1810 
, ; . : x* : . . 1800 S((F+A)/2,(H+R)/2)=0 
1R02 INPUT “4A";Al,Bl:1F Al<O THEN 1810 
» : 1804 IF S(Al,R1)<>0 OR ABS(Al1-A)<>2 OR ARS(B1-R)<>2 THEN 1802 
1806 E=A:H=B:A=Al:B=Bl:1=1#415:GOTO0 1750 
[o] . . . . . . . 1810 IF B=7 THEN S(A,B)=2 
1830 GOTO 230 
. : . . . 0 ë o 1880 PRINT: PRINT "VOUS AVFZ GAGNF.": GOTO 1R90 
1885 PRINT: PPINT "J'AI GAGNF." 
. . . 1890 END 


KX<> 7 
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Chemist (Le chimiste) 





L'acide chimique cryptocyanique imagji- 
naire ne peut être dilué qu'à raison de 
7 parts d'eau pour 3 parts d'acide. N'im- 
porte quelle autre proportion engendre un 
composé instable qui explose sous peu. 
La quantité d'acide vous étant donnée, 
vous devez déterminer la quantité d'eau à 
ajouter pour la dilution. Si vous vous trom- 
pez de plus de 5 % vous perdez une de 
vos neuf vies. Le programme se poursuit 
jusqu'à ce que vous perdiez vos neuf 
vies ou jusqu'à ce qu'il soit interrompu. 

Il fut initialement écrit par Wayne Teeter 
de Ridgecrest, Californie. 


CHEMIST 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


LE REDOUTABLE (ET IMAGINAIRE) ACIDE CRYPTOCYANIQUE NE PEUT ETRE 


DILUE QU'A RAISON DE 7 PARTS D'EAU POUR 3 PARTS D'ACIDE. 
POUR TOUTE AUTRE PROPORTION, L'ACIDE DEVIENT INSTABLE 


ET EXPLOSE. LA QUANTITE D'ACIDE ETANT DONNEE, VOUS DEVEZ FIXER LA 
QUANTITE D'EAU À AJOUTER POUR REALISER LA DILUTION. EN CAS D'ERREUR 


VOUS EN SUPPORTEZ LES CONSEQUENCES. 


12 LITRES D'ACIDE CRYPTOCYANIQUE. COMBIEN D'EAU? 28 


3 P 
6 P 
8 P 
10 
20 
30 
40 
50 
60 


JOLI TRAVAILI VOUS POUVEZ RESPIRER MAINTENANT, MAIS N'INALHEZ PAS LES VAPEURSI 70 


15 LITRES D'ACIDE CRYPTOCYANIQUE. COMBIEN D'EAU? 35 


100 
110 


JOLI TRAVAILI VOUS POUVEZ RESPIRER MAINTENANT, MAIS N'INALHEZ PAS LES VAPEURSI ]20 


15 LITRES D'ACIDE CRYPTOCYANIQUE. COMBIEN D'EAU? 35 


130 
140 


JOLI TRAVAILI VOUS POUVEZ RESPIRER MAINTENANT, MAIS N'INALHEZ PAS LES VAPEURSI 150 


25 LITRES D'ACIDE CRYPTOCYANIQUE. COMBIEN D'BAU? 40 
HORRIBLE GRESILLEMENTI VOUS N'ETES PLUS QU'UN PEU DE 
DE PROTOPLASME TREMBLOTANT I! 


NEAMMOINS, VOUS POUVEZ TENTER UN AUTRE ESSAI AVEC UNE AUTRE VIE. 


2 LITRES D'ACIDE CRYPTOCYANIQUE. COMBIEN D'EAU? 3 
HORRIBLE GRESILLEMENTI VOUS N'ETES PLUS QU'UN PEU DE 
DE PROTOPLASME TREMBLOTANTI 


NEAMMOINS, VOUS POUVEZ TENTER UN AUTRE ESSAI AVEC UNE AUTRE VIE. 


39 LITRES D'ACINE CRYPTOCYANIQUE. COMBIEN D'EAU? 67.9 


HORRIBLE GRESILLEMENTI VOUS N'ETES PLUS QU'UN PEU DE 
DE PROTOPLASME TREMBLOTANT I! 


NEAMMOINS, VOUS POUVEZ TENTER UN AUTRE ESSAI AVEC UNE AUTRE VIE. 


24 LITRES D'ACIDE CRYPTOCYANIQUE. COMBIEN D'EAU? 5 
HORRIBLE GRESILLEMENTI VOUS N'ETES PLUS QU'UN PEU DE 
DE PROTOPLASME TREMBLOTANTI 


NEAMMOINS, VOUS POUVEZ TENTER UN AUTRE ESSAI AVEC UNE AUTRE VIE. 


18 LITRES D'ACIDE CRYPTOCYANIQUE. COMBIEN D'EAU? 6 
HORRIBLE GRESILLEMENTI VOUS N'ETES PLUS QU'UN PEU DE 
DE PROTOPLASME TREMBLOTANTI 


NEAMMOINS, VOUS POUVEZ TENTER UN AUTRE ESSAI AVEC UNE AUTRE VIE. 


160 
163 
170 
180 
200 
210 
220 
230 
240 
243 
250 
260 
270 
275 
280 
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RINT TAB(33);"CHEMIST":PRINT 
RINT TAB(15);"CRFATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
RINT:PRINT:PRINT 
PRINT "LE REDOUTABLE (ET IMAGINAIRE) ACIDE CRYPTOCYANIQUE NE PEUT ETRE" 
PRINT “DILUE QU'A RAISON DE 7 PARTS D'EAU POUR 3 PARTS D'ACIDE." 
PRINT “POUR TOUTE AUTRE PROPORTION, L'ACIDE DEVIENT INSTABLE" 
PRINT “ET EXPLOSE. LA QUANTITE D'ACIDE ETANT DONNEE, VOUS DEVEZ FIXER L 
PRINT "QUANTITE D'EAU À AJOUTER POUR REALISER Li. DILUTION. EN CAS D'ERRA 
PRINT “VOUS EN SUPPORTEZ LES CONSEQUENCES." 

PRINT:PRINT 

A=INT(RND(1)#50} 

W=7*A/3 

PRINT A;"LITRES D'ACIDE CRYPTOCYANIQUE.  COMBIEN D'EAU": 

INPUT R 

D=ABS(W-R) 

IF D>W/20 THEN 200 

PRINT “ JOLI TRAVAILI VOUS POUVEZ RESPIRER MAINTENANT, MAIS N'INALHEZ"; 
PRINT “ PAS LES VAPEURSI " 

PRINT 

GOTO 100 

PRINT “ HORRIRLE GRESILLEMENTI VOUS N'ETES PLUS QU'UN PEU DE" 

PRINT “ DE PROTOPLASME TREMBLOTANTI ":PRINT 

T=T+1 

IF T=9 THEN 260 

PRINT “ NEAMMOINS, VOUS POUVEZ TENTER UN AUTRE ESSAI AVEC UNE AUTRE VIE, 
PRINT 

GOTO 100 

PRINT “ VOS 9 VIES ONT ETE UTILISEES, MAIS ON SE SOUVIENDRA LONGTEMPS DI 
PRINT “ VOTRE CONTRIBUTION DANS LE DOMAINE DE LA CHIMIE COMIQUE." 
PRINT:PRINT:PRINT 

END 


Chief (Le chef) 





Pour reprendre les paroles de l’auteur 
du programme, John Graham, « CHIEF » 
est destiné à donner aux gens (surtout aux 
enfants) un entraînement aux quatre opé- 
rations (addition, multiplication, soustrac- 
tion et division). 

Ille fait tout en les distrayant et ensuite, 
s'ils se trompent, il leur montre comment 
ils auraient dû faire. 

Chief a été écrit par John Graham de 
Upper Brookville, New York. 


CHIEF 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


JE SUIS LE CHEF NOMBRE-AGILE, LE GRAND DIEU INDIEN DU CALCUL. 
ETES VOUS PRET À SUBIR L'EPREUVE POUR LAQUELLE VOUS M'AVEZ APPELE? Y 2 PRINT TAB(30) "CHIEF" 
4 PRINT TAB(15) "CREATIVE COMPITING MORRISTOWN, NEW JERSEY" 


PRENEZ UN NOMBRE ET AJOUTEZ LUI 3. DIVISEZ PAR 5 ET MULTIPLIEZ 6 PRINT:PRINT:PRINT 
PAR 8. DIVISEZ PAR 5 ET AJOUTEZ CE MEME NOMBRE 5. ENLEVEZ 1. 10 PRINT “JE SUIS LE CHFF NOMRRF-AGILF, LF GRAND DIFU INNIEN DU CALCUL." 
20 PRINT "FTES VOUS PRFT À SUBIR L'FPREUVE POUR LAQUELLE VOUS M'AVEZ APPELE"; 
QUEL EST VOTRE RESULTAT? 12 30 INPUT AS 
40 IF LEFTS(AS,1)="Y" OR LEFTS(AS,1)="y" THEN 60 
JE PENSE QUE VOTRE PREMIER NOMBRE ETAIT 22. AI-JE RAISON? N 50 PRINT "SILFNCF, VISAGE PALE À LA LANGUE FOURCHUE." 
60 PRINT:PRINT "PRENEZ UN NOMBRF ET AJOUTEZ LUI 3. DIVISEZ PAR 5 ET MULTIPLIFZ" 
QUEL ETAIT VOTRE NOMBRE AU DEPART? 32 70 PRINT “PAR R. DIVISFZ PAR 5 ET AJOUTFZ CFE MEMF NOMBRE 5. ENLEVEZ 1.":PRINT 
BO PRINT “QUEL EST VOTRE RESULTAT"; 
ALORS, VOUS VOUS CROYEZ MALIN, EH? 90 INPUT B 
MAINTENANT REGARDEZ. 95 PRINT 
100 LET C = (B+1-5)*5/8*5-3 
32 PLUS 3 FONT 35. CE QUI DIVISE PAR 5 DONNE 7; 110 PRINT "JE PENSE QUE VOTRE PREMIFR NOMBRE FTAIT";C;CHR$(8);". AI-JE RAISON"; 
CE QUI MULTIPLIE PAR 8 DONNE 56. EN DIVISANT PAR 5 ET EN 120 INPUT DS 
AJOUTANT 5, NOUS AVONS 16.2, ENLEVONS 1, CELA FAIT 15.2. 130 IF LEFTS(DS,1)="Y" OR LEFTS(N$,1)="y" THEN 500 
140 PRINT:PRINT “QUFL FTAIT VOTRE NOMBRE AU DEPART"; 
MAINTENANT,ME CROYEZ VOUS? N 150 INPUT K 
155 LET F=K43 
VOUSM'AVEZ RENDU FOUIII 160 LEFT G=F/5 
IL FAUT QU'IL Y AIT UN GRAND ECLAIRI 170 LEFT H=G*R 


180 LFT 1=H/545 
190 LEFT J=1-] 


X X 200 PRINT:PRINT "ALORS, VOUS VOUS CROYEZ MALIN, EH?" 
XX 210 PRINT “MAINTENANT REGARDEZ .":PRINT 
X X 230 PRINT K'“PLUS 3 FONT"F:CHRS(8);". CE QUI DIVISF PAR 5 DONNE"G;CHR$(8):";" 
X X 240 PRINT “ CE QUI MULTIPLIE PAR R DONNE"H;CHRS(B);". EN DIVISANT PAR 5 FT EN" 
XX 250 PRINT “ AJOUTANT 5, NOUS AVONS"I;CHRS(R); 
X x 253 PRINT “, FNLEVONS l, CFLA FAIT"J;CHRS(B);"." 
X X 260 PPINT:PRINT "MAINTENANT,MF CROYEZ VOUS"; 
XX 270 INPUT ZS 
X X 290 IF LFFTS(ZS,1)="Y" OR LFFTS(Z$,1)="y" THEN 500 
X XXX 295 PRINT:PRINT “VOUSM'AVEZ RENDU FOUIII" 
XX 300 PRINT “IL FAUT QU'IL Y AIT UN GRAND ECLAIRI" 
XX X 310 PRINT:PRINT 

XX 320 FOR XX=1 TO 2000:NEXT 
XX 330 FOR X=30 TO 22 STEP -] 

XX 340 PRINT TAB(X) "X X" 

X X 350 NFXT X 
XX 360 PRINT TAB(21) “X XXX" 
XX 370 PRINT TAB(20) "X x" 
X X 380 PRINT TAB(19) "XX x" 

X X 390 FOR Y=20 TO 13 STEP -1 

XX 400 PRINT TAB(Y) "X X" 

x 410 NEXT Y 


420 PRINT TAB(12) “XX" 
430 PRINT TAB(11) “X" 


LELEENESE EE EEESSEE ZE ZX EX E : 1 440 PRINT TAB(10) “*" 
450 PRINT:PRINT"#######468######4#8#########": PRINT 

DANS VOTRE INTERET, J'ESPERE QUE VOUS ME CROYEZ MAINTENANT! ! 470 PRINT “DANS VOTRE INTERET, J'FSPERE QUE VOUS ME CROYEZ MAINTENANTI I!" 
500 PRINT:INPUT “ENCORE UNE FOIS":RS: 

ENCORE UNE FOIS? N IF LEFTS(RS,1)="Y" OR LEFTS(RS,1)="y" THEN 60 ELSE 510 
510 PRINT:PRINT "AU REVOIRI11":PRINT:PRINT:PRINT 

AU REVOIRIII 520 END 
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Chombp (La part du gâteau) 


Ce programme est une adaptation d’un 
jeu mathématique originellement décrit 
par Martin Gardner dans le numéro de jan- 
vier de Scientific American. Vous établis- 
sez une grille pouvant faire jusqu'à 9X9, 
avec dans le coin supérieur gauche, un 
carré empoisonné. Cette grille est le gä- 
teau. Les joueurs croquent alternative- 
ment dans le gâteau en partant du bas à 
droite. Pour prendre une bouchée, entrez 
les numéros de rangée et de colonne de 
l’un des carrés restants du gâteau. Tous 
les carrés au-dessous et à droite du carré 


désigné, y compris celui-ci, disparaissent. JOUEUR 2 
Le nombre de joueurs est illimité. L'ordi- COORDONNEES DE LA BOUCHEE (RANGEE, COLONNE)? 5,6 
nateur est seulement le modérateur; ce 1234567809 
n'est pas un joueur. Des stratégies pour ace 
jouer à deux sont intéressantes à mettre 3 ts. 
au point, mais des stratégies lorsque trois 2 dois 
personnes ou plus jouent, représentent un es 
véritable défi. B …s…s 
La version pour ordinateur du jeu a été LoueGe 3 
écrite par Peter Sessions de la People's 
Computer Company. COORDONNEES DE LA BOUCHEE (RANGEE, COLONNE)? 3,2 
1123456789 
LL “pese 
5. 
ss 
&. 
+ à 
8 + 
JOUEUR 1 


COORDONNEES DE LA BOUCHEE (RANGEE, COLONNE)? 4,4 
CE N'EST PAS BIEN. VOUS ESSAYEZ DE CROQUER DANS LE VIDEI 
JOUEUR 1 
CHOMP 
COORDONNEES DE LA BOUCHEE (RANGEE, COLONNE)? 2,2 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


1223456789 
1 P nm 
2 * 
3 * 
CECI EST LE JEU DE CHOMP (SCIENTIFIC AMERICAN, JAN 1973) 4 LS 
5 * 
DESIREZ VOUS LIRE LES REGLES? Y 6 : 
CHOMP se joue a un ou plusieurs -- Humains exclusivement. 7 e 
Voici a quoi ressemble un tableau (celui ci fait 5 par 7): 8 LS 
123456789 JOUEUR 2 
1 P ERA  sssssses 
2 MORE COORDONNEES DE LA BOUCHEE (RANGEE, COLONNE)? 1,2 
3 sn 
4 nn 1223456789 
5 nn 1 P 
2 * 
Le tableau est un gateau de R rangees de haut et C colonnes 3 de 
de large. Au debut, vous fixez R et C. Un carre empoisonne (P) se 4 * 
trouve ds le coin superieur gauche. Celui qui avale le carre 5 : 
empoisonne, a perdu. Pour avaler une bouchee, entrez les numeros 6 e 
de rangee et de colonne de l'un des carres du gateau. 7 : 
Tous les carres au dessous et a droite du carre designe 8 * 
(et ce carre lui meme) disparaitront -- CHOMPII 
11 n'est pas regulier de croquer des carres deja croques, JOUEUR 1 


ou situes en dehors des dimensions initiales du gateau. 
COORDONNEES DE LA BOUCHEE (RANGEE, COLONNE)? 2,1 


ALLONS Y... 1223456789 
1 P 
COMBIEN DE JOUEURS? 2 2 
COMBIEN DE RANGEES? 8 3 
COMBIEN DE COLONNES? 7 4 
5 
6 
1223456789 7 
1 PA «+ 8 
2 ann 
3 nr ss JOUEUR 2 
n Re 
5 nn COORDONNEES DE LA BOUCHEE (RANGEE, COLONNE)? 1,1 
6 rss 
7 ee ME a Re VOUS AVEZ PERDU, JOUEUR 2. 
8 rss UNE AUTRE PARTIE? N 


10 PRINT TAB(33 
20 PRINT TAB(15 





CHOMP " : PRINT 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 






30 PRINT:PRINT:PRINT 
40 DIM A(10,10) 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
210 
220 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
372 
375 
377 
379 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
530 
540 
550 


REM *** LE JEU DE CHOMP *#** COPYRIGHT PCC 1973 *** 

PRINT 

PRINT "CECI EST LE JEU DE CHOMP (SCIENTIFIC AMERICAN, JAN 1973)":PRINT 
PRINT "NESIREZ VOUS LIRE LES REGLES"; 

INPUT R$ 

IF LEFTS(R$,1)="N" OR LEFT$S(R$,1)= 
F=] 
R=5 
C=7 
PRINT 
PRINT 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT:PRINT 
REM 

F=0 

FOR I=1 TO 10 
FOR J=1 TO 10 
A(1,9)=0 

NEXT J 
NEXT 1! 
PRINT 
PRINT 
INPUT 
11=0 
PRINT "COMBIEN 
INPUT R 

IF R <= 9 THEN 
PRINT “TROP DE 
GOTO 420 

PRINT "COMBIEN 
INPUT C 

IF C <= 9 THEN 
PRINT "TROP DE 
GOTO 470 

PRINT 

FOR 1=1 TO R 
FOR J=1 TO C 


“ THEN 340 





“CHOMP se joue a un ou plusiewfs -- Humains exclusivement." 

“Voici a quoi ressemble un tableau (celui ci fait 5 par 7):" 

540 

“Le tahleau est un gateau de R rangqees de haut et C colonnes" 

“de large. Au debut, vous fixez R et C. Un carre empoisonne (P) se” 
“trouve ds le coin superieur gauche. Celui qui avale le carre” 
“empoisonne, a perdu. Pour avaler une bouchee, entrez les nuneros" 
“de rangee et de colonne de l'un des carres du gateau." 

“Tous les carres au dessous et a droite du carre designe” 

“(et ce carre lui meme) disparaitront -- CHOMPII" 

“Il n'est pas regulier de croquer des carres deja croques ," 

“ou situes en dehors des dimer sions initiales du gateau." 


“ALLONS Y..." 


“COMBIEN 
P 


DE JOUEURS"; 


DE RANGFES" ; 


470 
RANGEES (9 EST LE MAXIMUM). ALORS, "; 
DF COLONNES" ; 


530 


COLONNES (9 EST LE MAXIMUM). ALORS, "; 


45 


560 
570 
580 
590 
600 
610 
620 
630 
64n 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


10n0 


1010 
1020 
1030 
1040 
1050 
1060 


A(1,J)=1 


NEXT J 
NEXT 1! 
A(1,1)=-1 
REM AFFICHAGE 
PRINT 
PRINT TAB(7);"1 2 3 4 5 6 7 8 9" 
FOR I=1l TO R 
PRINT J:TAR(7);: 
FOR J=1 TO C 
IF A(1,J)=-1 THEN 700 
IF A(1,J)=0 THEN 720 
PRINT “* "; 
GoTO 710 
PRINT "P ": 
NEXT J 
PRINT 
NEXT 1 
PRINT 
IF F=0 THEN 770 
RETURN 
REM DONNER DES CHOMPS(BOUCHEES) À CHAQUE JOUEUR TOUR À TOUR 
LET 11=114+1 
LET Pl=Il1-INT(11/P)*P 
1F Pl <> O THEN 820 
P1=P 
PRINT "JOUEUR";Pl:PRINT "-------- “ 
PRINT "COORDONNEES DE LA BOUCHEE (RANGEF, COLONNE) "; 
INPUT R1,C1 
IF Rl<l THEN 920 
IF R1>R THEN 920 
IF Cl<l THEN 920 
IF C1>C THEN 920 
IF A(R1,C1)=0 THEN 920 
1F A(R1,C1)=-1 THEN 1010 
GOTO 940 
PRINT "CE N'EST PAS BIEN. VOUS ESSAYEZ DE CROQUER DANS LE VIDEI" 
GOTO 820 
FOR I=R1 TO R 
FOR J=C]1 TO C 
A(1,J)=0 
NEXT J 
NEXT 1 
GOTO 610 
REM FIN DE PARTIF DETECTEE À LA LIGNE 900 
PRINT:PRINT CHRS(22):"VOUS AVEZ PERDU, JOUEUR":;P1:;CHRS(8);".";CHRS (22) 
PRINT 
PRINT "UNE AUTRE PARTIE"; 
INPUT RS 
IF LEFTS(RS,1)="Y" OR LEFTS(RS,1)="y" THEN 340 ELSF PRINT:PRINT 
END 


DU TABLEAU 


Civil War 





(Guerre de Sécession) 


Cette simulation est basée sur 
14 batailles de la guerre de Sécession. 
Les faits et les chiffres mentionnés sont 
basés sur des événements réels. Si vous 
suivez la même stratégie que celle utilisée 
durant la véritable bataille, l'issue sera la 
même. En principe c’est une bonne straté- 
gie puisque les généraux de la guerre de 
Sécession étaient d'assez bons stratèges 
militaires. Cependant vous pouvez fré- 
quemment réussir moins bien que les gé- 
néraux de la guerre de Sécession, tout 
particulièrement dans les cas où ils 
n'avaient pas de bons renseignements sur 
l'ennemi et adoptaient de ce fait une mau- 
vaise ligne de conduite. Bien sûr, cela aide 
de connaître votre histoire de la guerre de 
Sécession, bien que l'ordinateur vous en 
donne les rudiments. 

Après chacune des 14 batailles, vos 
pertes sont comparées aux pertes réelles 
de la bataille et il vous est dit si vous ga- 
gnez ou perdez la bataille. 

Vous pouvez jouer seul à la guerre de 
Sécession — auquel cas le programme si- 
mule le général de l'Union — ou bien à 
deux et l'ordinateur devient, dans ce cas, 
le modérateur. 

La guerre de Sécession a été écrite en 
1968 par trois étudiants de Lexington High 
School, Massachusetts : L. Gram, L. Goo- 
die et D. Hibbard. Il a été adapté pour per- 
mettre de jouer à deux par G. Paul et 
R. Hess de Ties, St. Paul, Minnesota. 


CIVIL WAR 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DESIREZ VOUS QUELQUES EXPLICATIONS? Y 


CECI EST LA SIMULATION DE LA GUERRE DE SECESSION. 

POUR JOUER REPONDEZ AUX QUESTIONS DE L'ORDINATEUR. 

CES REPONSES POURRAIENT REFAIRE L'HISTOIRE. 

LES FAITS ET LES CHIFFRES UTILISES SONT BASES 

SUR LA REALITE. LA PLUPART DES BATAILLES TENDENT À RETROUVER 
LEUR ISSUE HISTORIQUE, MAIS EN FAIT TOUT DEPEND DE VOUSII 


LE BUT DU JEU EST DE GAGNER UN MAXIMUM DE BATAILLES 


EN MATIERE DE STRATEGIE DEFENSIVE, VOUS AVEZ LE CHOIX ENTRE: 
(1) TIRS D'ARTILLERIE 
(2) FORTIFICATIONS CONTRE LES ATTAQUES FRONTALES 
(3) FORTIFICATIONS CONTRE LES MANOEUVRES DE FLANC 
(4) BATTRE EN RETRAITE 

POUR UNE STRATEGIE OFFENSIVE, VOUS AVEZ LE CHOIX ENTRE: 
(1) TIRS D'ARTILLERIE 
(2) ATTAQUE FRONTALE 
(3) MANOEUVRES DE FLANC 
(4) ENCERCLEMENT 

VOUS POUVEZ VOUS RENDRE EN ENTRANT '5' COMME SRATEGIE. 


VOUS ETES LA CONFEDERATION. BONNE CHANCEI 


TAPEZ UN NBRE(AU HASARD) POUR LANCER LE JEU:8 
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NOUS SOMMES A LA BATAILLE DE BULL RUN. 


21-7-1861: LE GEN. BEAUREGARD CDT. LES FORCES SUDISTES RENCONTRE 
LES FORCES DE L'UNION (GEN. MCDOWELL). UNE RATAILLE PREMATURFE 
À LIEU À BULL RUN. LE GEN. JACKSON A AIDE À REPOUSSER L'ASSAUT 
DE L'UNION. 


CONFEDERATION UNION 
HOMMES 18,000 18,500 
ARGENT $81,000 $83,300 
INFLATION 25% 10% 


COMBIEN VOULEZ VOUS DEPENSER POUR LA NOURRITURE? 30000 
COMBIEN PREVOYEZ VOUS POUR LE PAIEMENT DES TROUPES? 30000 
QUELLES SOMMES SONT RESERVEES AUX DEPENSES DE MUNITIONS? 20000 


LF MORAL EST ELEVE. 
VOUS ETES SUR LA DEFENSIVE. 


VOTRE STRATEGIE? 2 
CONFEDERATION UNION 
PERTES 72,580 1,755 
VOS PERTES ONT FETE SUPERIEURES DE 31% AUX 
PERTES REFLLES A BULL RUN. 


VOUS AVEZ PERDU BULL RUN. 


"RETURN' POUR CONTINUER. 


NOUS SOMMES À LA BATAILLE DE SHILOH. 


6/7-4-1862: L'ATTAQUE SURPRISE DES CONFEDERES À SHILOH 
ECHOUA EN RAISON DE SON MANQUE D'ORGANISATION. 


CONFEDERATION UNION 


HOMMES 38,620 47,049 
ARGENT $178,200 $206,500 
INFLATION 27% 8% 


COMBIEN VOULEZ VOUS DEPENSER POUR LA NOURRITURE? 40000 
COMBIEN PREVOYEZ VOUS POUR LE PAIEMENT DES TROUPES? 40000 
QUELLES SOMMES SONT RESERVEES AUX DEPENSES DE MUNITIONS? 70000 


LE MORAL EST BON. 
VOUS ETES EN OFFENSIVE. 


VOTRE STRATEGIE? 1 

CONFEDERATION UNION 
PERTES OI 10,64 
VOS PERTES ONT ETE SUPERIEURES DE 4% AUX 
PERTES REFLLES A SHILOH. 


VOUS AVEZ PERDU SHILOH. 


"RETURN' POUR CONTINUER. 


NOUS SOMMES À LA BATAILLE DE SEVEN DAYS. 


25-6 AU 1-7-1862: LE GENERAL LEE (CSA) CONTINT L'OFFENSIVE 
DURANT TOUTE LA BATAILLE ET OBLIGEA LE GEN. MCLELLAN ET LES 
FORCES DE L'UNION À S'ELOIGNER DE RICHMOND 


CONFEDERATION UNION 


=========222= 





HOMMES 93,195 120,945 
ARGENT $451,400 $540,500 
INFLATION 29% 6% 


COMBIEN VOULEZ VOUS DEPENSER POUR LA NOURRITURE? 80000 
COMBIEN PREVOYEZ VOUS POUR LE PAIEMENT DES TROUPES? 100000 
QUELLES SOMMES SONT RESERVEES AUX DEPENSES DE MUNITIONS? 200000 


LE MORAL EST BAS. 
VOUS ETES EN OFFENSIVE. 


VOTRE STRATEGIE? 1 


CONFEDERATION UNION 


PERTES 19,597 14,171 








VOS PERTES ONT ETE INFERIEURES DE 5% AUX 
PERTES REELLES A SEVEN DAYS. 


VOUS AVEZ PERDU SEVEN DAYS. 


“RETURN' POUR CONTINUER. 


NOUS SOMMES À LA BATAILLE DE 2EME BATAILLE DE BULL RUN. 


20/30-8-1862: LES FORCES COMBINEES DE LA CONFERERATION (LEE ET 
JACKSON) REFOULERENT LES FORCES DE L'UNION DANS WASHINGTON. 


CONFEDERATION UNION 


HOMMES 53,962 64,741 
ARGENT $245,700 $302,400 
INFLATION 31% 4% 


COMBIEN VOULEZ VOUS DEPENSER POUR LA NOURRITURE? 5000 
COMBIEN PREVOYEZ VOUS POUR LE PAIEMENT DES TROUPES? O0 
QUELLES SOMMES SONT RESERVEES AUX DEPENSES DE MUNITIONS? 230000 


LE MORAL EST BAS. 
LES 2 COTES PRATIQUENT L'OFFENSIVE. 


VOTRE STRATEGIE? 2 

CONFEDERATION UNION 
PERTES 779,223 12,903 
VOS PERTES ONT ETE INFERIEURES DE 8% AUX 
PERTES REELLES À 2FME BATAILLE DE BULL RUN. 
VOUS AVEZ GAGNE 2EME BATAILLE DE BULL RUN. 


"RETURN' POUR CONTINUER. 
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NOUS SOMMES À LA BATAILLE DE ANTIETAM. 


17-9-1862: ECHEC DU SUD DANS SA TENTATIVE DE RALLIER 
LE MARYLAND À LA CONFEDERATION. 


CONFEDERATION UNION 


HOMMES 40,124 51,244 
ARGENT $181,100 $235,000 
INFLATION 29% 6% 


COMBIEN VOULEZ VOUS DEPENSER POUR LA NOURRITURE? 100 
COMBIEN PREVOYEZ VOUS POUR LE PAIEMENT DES TROUPES? 1 
QUELLES SOMMES SONT RESERVEES AUX DEPENSES DE MUNITIONS? 180000 


LE MORAL EST BAS. 
VOUS FTES EN OFFENSIVE. 


VOTRE STRATEGIE? 1 

CONFEDERATION UNION 
PERTES 778,242 12,36 
VOS PERTES ONT ETE INFERIEURES DE 18% AUX 
PERTES REELLES A ANTIETAM. 


VOUS AVEZ GAGNE ANTIFTAM. 


"RETURN' POUR CONTINUER. 


NOUS SOMMES À LA BATAILLE DE FREDERICKSBURG. 


13-12-1862: LA CONFEDERATION MENEE PAR LEE REPOUSSE AVEC SUCCES 
UNE ATTAQUE DE L'UNION ( GEN. BURNSIDE ). 


CONFEDERATION UNION 





==22= 2222222 


HOMMES 75,722 122,312 
ARGENT $342,200 $552,000 
INFLATION 27% 8% 


COMBIEN VOULEZ VOUS DEPENSER POUR LA NOURRITURE? 300000 
COMBIEN PREVOYEZ VOUS POUR LE PAIFMENT DES TROUPES? 2 
QUELLES SOMMES SONT RESERVEES AUX DEPENSES DE MUNITIONS? 0 


LE MORAL EST BAS. 
VOUS ETES EN OFFENSIVE. 


VOTRE STRATEGIE? 2 
CONFEDERATION UNION 
PERTES SC ST 
VOS PERTES ONT ETE SUPERIEURES DE 815% AUX 
PERTES REELLES A FREDERICKSBURG. 
VOUS AVEZ PERDU FREDERICKSBURG. 


*RETURN' POUR CONTINUER.®C 





2 PRINT TAB(26);"CIVIL WAR":PRINT 

4 PRINT TAB(10);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY® 
6 PRINT:PRINT: PRINT 

10 REM DERNIERES CORRECTIONS 11-10-1971 

20 REM RETAPE PAR EDWARD GLAGOLA 3/73 RIVER DELL H.S. 

30 REM 

40 LET L=0: W=0: 
50 LET R1=0: Q1=0 
60 LET Rl=0: T2=0: Tl=0: P2=0 

70 LET Ml=0: M2=0: M3=0: M4=0 

80 REM ARQUABLE MODIFICATIONS PAR DENNIS COLBURN (11/72) 
90 REM REFAITES PAR ED GLAGOLA(3/73) 


P1=0 


100 PRINT "DESIREZ VOUS QUELQUES EXPLICATIONS" ; 
110 INPUT A$ 

115 PRINT 

120 FOR U=1 TO 6 

130 NEXT U 


140 IF LEFTS(A$S,1)="N" THEN 380 


150 PRINT “ CECI EST LA SIMULATION DE LA GUERRE DE SECESSION." 

160 PRINT “ POUR JOUER REPONDEZ AUX QUESTIONS DE L'ORDINATEUR. * 

170 PRINT “ CES REPONSES POURRAIENT REFAIRE L'HISTOIRE. "; 

173 PRINT “ LES FAITS ET LES CHIFFRES UTILISES SONT BASES" 

180 PRINT “ SUR LA REALITE. LA PLUPART DES BATAILLES TENDENT À RETROUVER" 
190 PRINT “ LEUR ISSUE HISTORIQUE, MAIS EN FAIT TOUT DEPEND DE VOUSII" 
200 PRINT 

210 PRINT “ LE BUT DU JEU EST DE GAGNER UN MAXIMUM DE BATAILLES" 

220 PRINT 

230 PRINT " FN MATIERE DE STRATEGIE DEFENSIVE, VOUS AVEZ LE CHOIX ENTRE:°" 
240 PRINT TAB(8)"“(1) TIRS D'ARTILLERIE" 

250 PRINT TAB(8)"(2) FORTIFICATIONS CONTRE LES ATTAQUES FRONTALES" 

260 PRINT TAB(8)"(3) FORTIFICATIONS CONTRE LES MANOEUVRES DE FLANC" 

270 PRINT TAB(8)"(4) BATTRE EN RETRAITE" 

280 PRINT “ POUR UNE STRATEGIE OFFENSIVE, VOUS AVEZ LE CHOIX ENTRE:" 

290 PRINT TAB(8)"(1) TIRS D'ARTILLERIE" 

300 PRINT TAB(8)"(2) ATTAQUE FRONTALE" 

310 PRINT TAB(8)"“(3) MANOEUVRES DE FLANC" 

320 PRINT TAB(8)"(4) ENCERCLEMENT" 

330 PRINT " VOUS POUVEZ VOUS RENDRE EN ENTRANT ‘5' COMME SRATEGIE." 

340 PRINT 

350 PRINT “ VOUS FTFS LA CONFEDERATION. BONNE CHANCEI * 

355 PRINT:LINE INPUT “TAPFZ UN NBRF(AU HASARD) POUR LANCER LE JEU:";RRS:PRINT 


356 RR=VAL(RRS ) : RR=RND(RR) 

360 LFT Z=0 | 

370 GoTo 390 

380 LEFT Z=1 

390 RFAD M1,M2,C1,C2,M,A,U 

400 LET I1=10+(L-W)*2 

410 LET 12=104(W-L)*2 

420 LET D1=100*INT((M1*(100-11)/2000)*(1+(R1-Q1)/(R1+1))+.5) 

430 LET D2=100*INT(M2*(100-12)/2000+.5) 

440 LET Fl=5*Ml/6 

450 LEFT A1=Z 

460 FOR U=] TO 4 

470 PRINT 

480  NEXT U 

490 PRINT“ NOUS SOMMES À LA BATAILLE DE "; 

500 GoSUB 1480 

510 PRINT “ ","CONFEDERATION"," UNION" 

515 PRINT * ","=z=2s2sassssn" , "eszs=====" 

520 PRINT “HOMMES"," ";:PRINT USING "###4#,###";:INT(MI*(14(P1-T1)/(M3+1))), 

523 PRINT " A 

530 PRINT USING "###,###";INT(M2*(14(P2-T2)/(M4+1))) 

540 PRINT "ARGENT", :PRINT USING " SS##,##4 $S##,###";D1,D2 

550 PRINT “INFLATION"," "11415: CHR$(8);"8"," “;12;CHR$(8); "2" 

560 PRINT 

570 PRINT “ COMBIEN VOULEZ VOUS DEPENSER POUR LA NOURRITURE"; 

580 INPUT F 

590 IF F<O THEN 1430 

600 PRINT “ COMBIEN PREVOYEZ VOUS POUR LE PAIEMENT DES TROUPES"; 

610 INPUT S 

620 IF S<0 THEN 1430 

630 PRINT " QUELLES SOMMES SONT RESFRVEFS AUX DEPENSES DE MUNITIONS":; 

640 INPUT B 

650 IF B<O THEN 1430 1000-8076 1030 

670 TE nIRSS <= D1 THEN 700 1010; LET :e=100/0 

680 PRINT " REFLECHISSEZI VOUS DISPOSFZ SEULRMEMT DE “;Dl1;"$" 1920 ÉR sNnI7s core /(eR820)15 6) Fr9,7#e serre 

620: :GOT0 560 1030 PRINT i 

700  LET O=((2*F624502)/F162+1) 1040 IF CS-C1 >= 0 THEN 1070 

7 Aro PAS CU 730 1050 PRINT “ VOS PERTES ONT ETE INFERIEURES DE"INT(100*(C1-C5)/C1+.5);CHRS(8): 

230 cod 1053 PRINT “8 AUX" 

740 IF O<10 THEN 770 1060: :G070, 1080 

750 PRINT " LE MORAL EST ELFVE." 1070 PRINT" VOS PERTES ONT ETE SUPFRIEURES DE":;INT(100*(C5-C1)/C1+.5);CHR$ (8): 

760 GOTO 810 1073 PRINT “$ AUX" : 

370. {PF Oe® THEN B0Û 1080 PRINT “ PFRTES REELLES À "; 
1090 LET Al=1 

780 PRINT “ LF MORAL EST BON." 1100 GOSUB 1480 

120 "e0ro Le 1110 IF U=1 THEN 1130 

00e PRINT S LE MORAL EST" BAS 1120 1F CS+E<17*C2*C1/(C5*20)+5*O THEN 1160 

à 1130 PRINT "VOUS AVEZ PERDU "; 

B20 PRINT “ VOUS ETES EN OFFENSIVE. Tiio er Lei 

230 coro” 860 1150 GOTO 1180 

8407 :IF:Me>1 THEN 870 1160 PRINT “ VOUS AVEZ GAGNE "; 

850 PRINT “ VOUS FTES SUR LA DEFENSIVE." 1170 LET WeW+1 

#70 PR LR 2 COTES PRATIQUENT L'OFFENSIVE." 1100: GOSUR 4140 

0 OR EN s 20 d e 1190 LET TI=TINCSHE : : 

890 PRINT “ VOTRE STRATFGIF"; OR mer c1*c2/(C5*20)+5*0 

900 INPUT Y 

910 IF Y=5 THEN 2330 Vé20LET PAP 2ICS 

DO PR TNT ; ë 1230 LET Q1=Q1+(F+S+8) 

930 PRINT “ ","CONFEDERATION", " UNION" 1250 ee EL (00-11)/20 

935 PRINT " ","-—- MoN Donne " 

940 LET C5=(2*C1/5)*(1+1/(2*(ABS(INT(4*RND(1)+1)-Y)41))) 1260 LETMASMAIMe 

950. LPT CS=INT(CS" (141/0)*(1.26%F1/(8+1))4.5) 1280 LINE INBUT 2 RETURN: POUR CONTINUER.":;XXS$:GOTO 390 

960 IF C5+100/0<M1*(1+(P1-T1)/(M3+1)) THEN 1010 1390: HAÈR 18000 18800 1087 2308 11 D 

= à ; , , 1,1, 

970 LEFT CS=INT(13#*M1/20*(1+(P1-T1)/(M3+1))) 1300 DATA 40000. ,44894.,10699,13047,3,2,0 

980 LET F=7*C5/13 1310 DATA 95000.,115000.,20614,15849,3,3,0 

290; LETSUSI 1320 DATA 54000.,63000. , 10000, 14000, 2,4, 0 
1330 DATA 40000. ,50000.,10000,12000,3,5,0 
1340 DATA 75000.,120000.,5377,12653,3,6,0 
1350 DATA 38000.,45000.,11000,12000,1,7,0 
1360 DATA 32000,90000. ,13000,17197,2,8,0 
1370 DATA 50000.,70000.,12000,19000,1,9,0 
1380 DATA 72500. ,85000.,20000, 23000,3,10,0 
1390 DATA 66000.,60000.,18000,16000,2,11,0 
1400 DATA 37000. ,60000.,6700,5800,1,12,0 
1410 DATA 62000.,110000.,17723,18000,2,13,0 
1420 DATA 65000.,110000.,6700,6800,1,14,0 
1430 PRINT " ALLEZ EN PRISON." 
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1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1533 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 


1838 


1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 


PRINT “ ALLEZ DIRECTEMENT EN PRISON." 
PRINT “ NE PASSEZ PAS PAR LA CASE DFPART." 
PRINT “ NE PRENFZ PAS LES 200 $." 

GOTO 460 

IF A<>1 THEN 1550 

PRINT “BULL RUN.":PRINT 

IF Al=1 THEN 2310 

PRINT “ 21-7-1R61: LE GEN. 
PRINT “ LES FORCES DE L'UNION (GEN. MCDOWFLL). 
PRINT * 
PRINT "DE L'UNION." 
GOTO 2310 

IF A<>2 THEN 1610 
PRINT “SHILOH.":PRINT 
IF Al=1 THEN 2310 


PRINT “ 6/7-4-1862: L'ATTAQUE SURPRISE DES CONFEDERES À SHILOH * 


PRINT “ ECHOUA EN RAISON NE SON MANQUE D'ORGANISATION." 

GOTO 2310 

IF A<>3 THEN 1680 

PRINT "SEVEN DAYS.":PRINT 

IF Al=1 THEN 2310 

PRINT “ 25-6 AU 1-7-1862: LF GENERAL LEE (CSA) CONTINT L'OFFENSIVE" 
PRINT " DURANT TOUTF LA RATAILLE FT OBLIGFA LE GEN. MCLELLAN ET LES" 
PRINT “ FORCFS DE L'UNION À S'FLOIGNER DE RICHMOND* 

GOTO 2310 


IF A<>4 THEN 1740 

PRINT "2FME BATAILLE DE BULL RUN.":PRINT 
IF Al=1l THEN 2310 
PRINT " 20/30-R-1862: 
PRINT “ JACKSON) REFOULERENT LES FORCES DE L'UNION DANS WASHINGTON. 
GOTO 2310 

IF A<>5 THEN 1800 

PRINT "ANTIFTAM.":PRINT 

IF Al=1 THEN 2310 


PRINT “ 17-9-1862: ECHEC DU SUD DANS SA TENTATIVE DE RALLIFR *“ 
PRINT “ LF MARYLAND À LA CONFEDERATION." 
GOTO 2310 


IF A<>6 THEN 1860 
PRINT “FREDERICKSBURG.":PRINT 
IF Al=l1 THEN 2310 


BEAUREGARD CNT. LES FORCES SUDISTES RENCONTRE" 
UNE BATAILLE PREMATUREE"* 
À LIEU À BULL RUN. LE GEN. JACKSON À AIDE À REPOUSSER L'ASSAUT" 


LES FORCES COMBINEES DE LA CONFERERATION (LEE FT" 


PRINT “ 13-12-1862: LA CONFEDERATION MENFFE PAR LFE REPOUSSE AVEC SUCCES"* 
PRINT," ÿNE ATTAQUE DE L'UNION ( GEN. BURNSIDE ). * 
GOTO 231 


IF A<>7 THEN 1910 

PRINT “MURFREESRORO." :PRINT 

IF Al=] THEN 2310 

PRINT “ 31-12-1862: 

GOTO 2310 

IF A<>8 THEN 1970 

PRINT "CHANCELLORSVILLE .*: PRINT 

IF Al=1 THEN 2310 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
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LF SUN (GEN. BRAGG) GAGNE UNE BATAILLE RAPPROCHFE. “ 


PRINT " 1/6-5-1R63: CONTEUSF VICTOIRF DU SUD QUI PERD L'UN DE SFS" 
PRINT “ MFILLEURS GFNFRAUX, 'STONEWALL' JACKSON. “ 
GOTO 2310 


IF A<>9 THEN 2030 
PRINT “VICKSBURG.":PRINT 
IF Al=] THEN 2310 


PRINT “ 4-7-1863: VICKSBURG FUT POUR LE SUD UNE DEFAITE GRAVE " 
PRINT “ PARCEQU'FLLE OUVRIT À L'UNION L'ACCES AU MISSISSIPPI." 
GOTO 2310 


IF A<>10 THEN 2090 
PRINT “GETTYSRURG.":PRINT 
IF Al=] THEN 2310 


PRINT “ 30-6-1863: UNE ERREUR DU SUD (GEN. LEE) À GETTYSBURG" 
PRINT “ LUI COUTE L'UNE DES BATAILLES ESSENTIELLES NE LA GUERRE." 
GOTO 2310 


IF A<>11 THEN 2150 

PRINT "CHICKAMAUGUA .":PRINT 

IF Al=] THEN 2310 

PRINT “ 25-11-1863: LE GEN. GRANT LIRERE L'ARMFE DU GEN. 
PRINT “ ASSIEGFF PAR LE SUD NEPUIS 3 MOIS." 

GOTO 2310 

IF A<>12 THEN 2210 

PRINT “CHATTANOOGA ." : PRINT 

IF Al=] THEN 2310 

PRINT “ 15-9-1863: LA CONFUSION DANS UNF FORET PRES DE CHICKAMAUGA" 
PRINT “ À POUR CONSFOUENCE UNF RATAILLE TRES SANGLANTE. " 

GOTO 2310 

IF A<>13 THEN 2270 

PRINT “SPOTSYLVANIA.":PRINT 

IF Al=] THEN 2310 


ROSENCRANS" 


PRINT “ 5-5-1864: LF PLAN DF GRANT POUR ISOLER LEF CONNUT ICI SON" 
PRINT " 1FR FECHFC OUI SF REPFTA À COLD HARBOR AND PETERSBURG." 

GOTO 2310 

PRINT “ATLANTA .":PRINT 

1F Al=]l THEN 2310 

PRINT “ AOÛT 1864: SHERMAN FT 3 ARMEFS DE VETERANS CONVERGERENT SUR" 
PRINT “ ATLANTA FT Y PORTERENT UN COUP MORTFI, À LA CONFEDERATION." 
PRINT 

RETURN 

PRINT CHR$S(22);:" LA CONFERERATION S'EST RENDUE. ";CHRS(22) 

GOTO 2360 
PRINT CHR$(22);" L'UNION S'EST RENDUE. ";CHR$(22) 

PRINT 


PRINT "VOUS AVEZ GAGNE “W; "BATAILLES ET PERDU"L;"BATAILLES." 
IF Y=5 THEN 2420 
IF W <= L THEN 2420 


PRINT CHR$S(22):" LA CONFEDERATION À GAGNE LA GUERRE. ";CHR$S(22) 
GOTO 2430 

PRINT CHR$(22);:" L'UNION À GAGNE LA GUERRE. ";CHRS(22) 

END 


Combat 








Dans ce jeu, vous livrez combat à petite 
échelle à l'ordinateur. Vous avez 72 000 
hommes de troupe que vous devez 
d'abord répartir entre l’armée de terre, la 
marine et l’armée de l’air. Vous pouvez les 
répartir à votre gré tant que vous n'utilisez 
pas plus que vos 72 000 hommes. 

Vous attaquez ensuite votre adversaire 
(l'ordinateur) et vous introduisez le corps 
d'armée et le nombre de personnes que 
vous souhaitez utiliser. L'ordinateur vous 
dit l'issue de la bataille, vous donne les 
statistiques actuelles et vous permet de 
déterminer votre prochaine manœuvre. 

Après la seconde bataille on décide 
d'après toutes les statistiques si vous ga- 
gnez, si vous perdez ou si un traité est 
signé. 

Ce programme a été créé par Bob 
Dores de Milton, Massachusetts. 


50 


COMBAT 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


NOUS SOMMES EN GUERRE. 
NOUS AVONS CHACUN 72,000 HOMMES. 


REPARTISSEZ VOS EFFECTIFS. 


MOI Vous 
ARMEE 30,000 ? 20000 
MARINE 20,000 ? 20000 
AVIATION 22,000 ? 32000 


VOUS ATTAQUEZ LE 1ER. ENTREZ (1) POUR ARMEE: (2) POUR MARINE: 
ET (3) POUR AVIATION. 

? 3 

COMBIEN D'HOMMES 

? 30000 

VOUS AVEZ ANEANTI L'UN DE MES ELEMENTS TERRESTRES, MAIS J'AI 
DETRUIT 2 BASES NAVALES ET BOMBARDE 2 BASES DE L'ARMEE. 


VOUS MOI 
ARMEE 5,000 20,000 
MARINE 6,666 20,000 
AVIATION 32,000 22,000 


VOTRE DECISION SUIVANTE? 


ARMEE=] MARINE=2 AVIATION=3 

2-3 

COMBIEN D'HOMMES 

? 30000 

MA MARINE ET MON AVIATION ONT, PAR UNE ATTAQUE COMBINEE 
FAIT DE VOTRE PAYS UN VERTABLE TERRAIN VAGUE. 


D'APRES LES RESULTATS DE VOS 2 ATTAQUES, 
VOUSAVEZ PERDU - J'AI CONQUIS VOTRE PAYS. CA VOUS A SERVI À QUOI 
DE JOUER À CE JEU STUPIDEIII 


1 PRINT TAB(33); "COMBAT" 

2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

3 PRINT: PRINT: PRINT: FS="###,#8" 

4 PRINT “NOUS SOMMFS EN GUERRE.": PRINT "NOUS AVONS CHACUN 72,000 HOMMES." 
5 PRINT:PRINT “RFPARTISSEZ VOS FFFECTIFS.":PRINT: PRINT 

6 PRINT ," MOI"," VOUS":PRINT ,"- =" 

7 PRINT "ARMEE"," 30,000", 

8 INPUT À 

9 PRINT “MARINF"," 20,000", 

10 INPUT B 

11 PRINT “AVIATION"," 22,000", 

12 INPUT C 

13 IF A+B+C>72000! THEN PRINT:PRINT "VOUS N'AVEZ OUF 72,000 HOMMES.":GOTO 5 
14 D=30000 

15 E=20000 

16 F=22000 

17 PRINT:PRINT “VOUS ATTAQUEZ LF IFR. ENTREZ (1) POUR ARMFF; (2) POUR MARINF:" 
1R PRINT "ET (3) POUR AVIATION." 

19 INPUT Y 

20 PRINT "COMBIFN D'HOMMES" 

21 INPUT X 

22 IF X<O THEN 20 

23 ON Y GOTO 100,200,300 

100 IF X>A THFN 20 

105 1F X<A/3 THEN 120 

110 IF X<2#*A/3 THEN 150 

115 GOTO 270 

120 PRINT "VOTRE ARMFF A PERDI";:PRINT USING FS;:X;::PRINT "HOMMES." 
125 A=INT(A-X) 

130 GOTO 500 

150 PRINT:PRINT "VOUS AVEZ PERDU";:PRINT USING FS:INT(X/3): 

152 PRINT “ HOMMES MAIS J'EN AI PERDU ";:PRINT USING FS:INT(2#D/3);:PRINT “." 
155 A=INT(A-X/3) 

160 D=0 

16% GOTN 500 

200 IF X>B THEN 20 

210 1F X<F/3 THEN 230 

215 IF X<2*F/3 THEN 250 

220 GOTO 270 

230 PRINT “VOTRF ATTAQUE À ETE STOPPEF! * 

232 R=INT(R-X) 

235 GOTO 500 

250 PRINT "VOUS AVEZ MIS HORS DE COMBAT"; :PRINT USING FS;:INT(2*E/3); 
253 PRINT “HOMMES DE MON ARMFF." 

255 E=INT(F/3) 

260 GOTO 500 

270 PRINT "VOUS AVFZ COULF L'UN DE MES PATROUILLEURS, MAIS J'AI DETRUIT DEUX" 
275 PRINT "DFE VOS BASES AERIENNES ET TROIS BASES DF VOS FORCES TERRESTRFS ." 
280 A=INT(A/3) 

285 C=INT(C/3) 

290 E=INT(2*E/3) 

293 GOTO 500 

300 IF X>C THEN 20 

310 IF X<C/3 THEN 350 

320 IF X<2*C/3 THEN 370 

330 GOTO 380 

350 PRINT "VOTRE ATTAQUE À ETE REPOUSSEF" 

355 C=INT(C-X) 

360 GOTO 500 

370 PRINT "NOUS NOUS SOMMFS BATTUS EN COMBAT TOURNOYANT. VOUS AVEZ GAGNE, “ 
373 PRINT “ - FT DONC REMPLI VOTRE MISSION" 

375 D=INT(2*D/3) 

377 E=INT(F/3) 

378 F=INT(F/3) 

379 GOTO 500 

380 PRINT "VOUS AVEZ ANEANTI L'UN DE MES ELEMENTS TERRESTRES, MAIS J'AI" 
381 PRINT "DETRUIT 2 BASES NAVALFS ET BOMRARDF. 2 BASFS DE L'ARMFE." 
385 A=INT(A/4) 

387 B=INT(B/3) 

390 D=INT(2*D/3) 

500 PRINT 

501 PRINT," VOUS “," MOI":PRINT, "------ ----" 

510 PRINT "ARMEFE",:PRINT USING F$:A;:PRINT PRINT USING FS:D 

520 PRINT "MARINE",:PRINT USING F$;B;:PRINT"",:PRINT USING FS;:E 

530 PRINT "AVIATION",:PRINT USING FS$;C;:PRINT :PRINT USING FS:F 
1000 PRINT:PRINT "VOTRE DECISION SUIVANTE? ":PRINT 

1010 PRINT "ARMEE=l MARINE=2 AVIATION=3" 

1020 INPUT G 

1030 PRINT “COMBIEN D'HOMMES" 

1040 INPUT T 

1045 IF T<O THEN 1030 

1050 ON G GOTO 1600,1700,1800 

1600 IF T>A THEN 1030 

1610 IF T<D/2 THEN 1630 

1615 PRINT "VOUS AVEZ DETRUIT MON ARMEEI " 

1616 D=0 

1617 GOTO 2000 

1630 PRINT “J'AI REPOUSSE VOTRE ATTAQUE! " 

1635 A=A-T 

1640 GOTO 2000 

1700 IF T>B THEN 1030 

1710 IF T<E/2 THEN 1750 

1720 GOTO 1770 

1750 PRINT "J'AI COULE 2 DE VOS NAVIRES DF LIGNE, FT MON AVIATION À DETRUIT" 
1751 PRINT “LE SIEGE DE VOTRE PARLEMENT ( SIEGE QUI N'ETAIT PAS DEFENDU )" 
1755 A=A/4 

1760 B=R/2 

1765 GOTO 2000 

1770 PRINT “VOTRE MARINE A DESCENDU TROIS DE MES AVIONS,"* 

1771 PRINT "ET M'A COULE TROIS NAVIRES DE LIGNE." 

1775 F=2*F/3 

1780 E=(E/2) 

1790 GOTO 2000 

1800 1F T>C THEN 1030 

1810 1F T>F/2 THEN 1830 

1820 GOTO 1850 

1830 PRINT “MA MARINE ET MON AVIATION ONT, PAR UNE ATTAQUE COMBINEE" 
1831 PRINT "FAIT DE VOTRE PAYS UN VERTABLE TERRAIN VAGUE." 

1835 A=A/3 

1837 B=B/3 

1840 C=C/3 

1845 GOTO 2000 

1850 PRINT “UN DE VOS AERONEFS S'EST ECRABOUILLE SUR MA MASURE. JE SUIS MORT." 
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1851 
1860 
2000 
2001 
2002 
2005 
2006 
2007 
2008 
2010 
2012 


PRINT “MON PAYS SE DESINTEGRE." 

GoTO 2010 

PRINT 

PRINT "D'APRFS LES RESULTATS DE VOS 2 ATTAQUFS, " 

IF A+B+C>3/2*(D+E+F) THEN 2010 

IF A+B+C<2/3*(D4+E4+F) THEN 2015 

PRINT “LE TRAITE DE PARIS À DFCIDE QUE NOUS DEVIONS REGAGNER" 
PRINT "NOS PAYS RESPECTIFS ET VIVRE EN PAIX." 

GOTO 2020 

PRINT “VOUS AVEZ GAGNE, 
GOTO 2020 

2015 PRINT “VOUSAVEZ PERDU - J'AI CONQUIS VOTRE PAYS. 
2016 PRINT "DE JOUER À CE JEU STUPIDEIII" 

2020 EnD 


OHI ZUTILI1" 


CA VOUS A 
SERVI A QUOI" 


Craps 





Ce jeu simule le jeu de dés tel qu'il se 
joue sur les tables de jeu du Nevada, 
c'est-à-dire : 

1. Un 7 ou un 11 au premier lancer vous 
fait gagner 

2. Un 2, 3 ou 12 au premier lancer vous 
fait perdre 

8. N'importe quel autre nombre se trans- 
forme en «point» pour vous. Vous 
continuez à lancer votre dé; si vous ob- 
tenez votre point, vous gagnez. Si vous 
avez un 7 vous perdez et le dé change 
de main lorsque cela se produit. 

Cette version du jeu de dés a été modi- 
fiée par Steve North de Creative Compu- 
ting. Elle est basée sur une version 
originale qui est apparue un jour sur un 
ordinateur à DEC. 


CRAPS 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


2,3,12 PERDENT: 4,5,6,8,9,10 SONT DES POINTS: 7,11 GAGNENT. 
ENTREZ UN ENJEU NEGATIF POUR QUITTER LA PARTIE. 


ENTREZ UN NBRE PRIS AU HASARD ENTRE 1 ET 100 POUR DEMARRER ? 1 


ENTREZ LE MONTANT DE VOTRE PARI ? 1000 
JE VAIS MAINTENANT LANCER LES DES: 
3 - CRAPS...VOUS PERDEZ. 


VOUS PERDEZ 1000 DOLLARS. 


VOUS ETES NEGATIF DE $ 1000. 
ENTREZ LE MONTANT DE VOTRE PARI ? 12 


JE VAIS MAINTENANT LANCER LES DES: 
5 EST LE POINT. JE VAIS LANCER À NOUVEAU: 
5 - UN POINT GAGNANT.........BRAVOIIIIII 


5 À 2 CONTRE 1 VOUS RAPPORTE...VOYONS CELA... 24 DOLLARS. 


VOUS ETES NEGATIF DE $ 976. 
ENTREZ LE MONTANT DE VOTRE PARI ? 300 


JE VAIS MAINTENANT LANCER LES DES: 
5 EST LE POINT. JE VAIS LANCER À NOUVEAU: 


12 - CA N'EST PAS LE POINT. JE LANCE A NOUVEAU: 
5 - UN POINT GAGNANT.........BRAVOIIIIII 


5 À 2 CONTRE 1 VOUS RAPPORTE...VOYONS CELA... 600 DOLLARS. 
VOUS ETES NEGATIF DE $ 376. 


ENTREZ LE MONTANT DE VOTRE PARI ? 300 

JE VAIS MAINTENANT LANCER LES DES: 
6 EST LE POINT. JE VAIS LANCER A NOUVEAU: 
6 - UN POINT GAGNANT.........BRAVOIII11I 


6 À 2 CONTRE 1 VOUS RAPPORTE...VOYONS CELA... 600 DOLLARS. 
VOUS ETES POSITIF DE $ 224. 


ENTREZ LE MONTANT DE VOTRE PARI ? 300 
JE VAIS MAINTENANT LANCER LES DES: 
10 EST LE POINT. JE VAIS LANCER À NOUVEAU: 


8 - CA N'EST PAS LE POINT. JE LANCE A NOUVEAU: 

12 - CA N'EST PAS LE POINT. JF LANCE À NOUVEAU: 
9 - CA N'EST PAS LE POINT. JE LANCE A NOUVEAU: 
7 - CRAPS. VOUS PERDEZ. 


VOUS PERDEZ 300 DOLLARS. 


VOUS ETES NEGATIF DE $ 76. 
ENTREZ LE MONTANT DE VOTRE PARI ? 12 


JE VAIS MAINTENANT LANCER LES DES: 


6 EST LE POINT. JE VAIS LANCER À NOUVEAU: 


9 - CA N'EST PAS LE POINT. JE LANCE À NOUVEAU: 
7 - CRAPS. VOUS PERDEZ. 


VOUS PERDEZ 12 DOLLARS. 


VOUS ETES NEGATIF DE $ 88. 


ENTREZ LE MONTANT DE VOTRE PARI ? 1 


JE VAIS MAINTENANT LANCER LES DES: 


7 


— +..+.UN GAGNANTIIII 


7 RAPPORTE LA MEME SOMME, VOUS GAGNEZ 1 DOLLARS. 


VOUS ETES NEGATIF DE $ 87. 


ENTREZ LE MONTANT DE VOTRE PARI ? 


5 PRINT TAB(33);"CRAPS" 


10 
12 
15 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
40 
41 
42 
50 
55 
60 
62 
65 
70 
80 
90 
125 
130 
140 
150 
160 
170 
180 
185 
190 
195 
196 
197 
198 
200 
205 
206 
210 
211 
220 
230 
231 
232 
240 
250 
255 
260 
270 
280 
290 
291 
292 
293 
300 
310 
311 
312 
313 
320 
330 
331 
332 
333 
334 
335 
336 
337 
338 
340 
341 
342 
343 
350 
351 
353 
354 
355 


360 


PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
PRINT:PRINT:PRINT 
LET R=0 
PRINT"2,3,12 PERDENT: 4,5,6,8,9,10 SONT DES POINTS; 7,11 GAGNENT." 
LFT T=]l:PRINT:PRINT “ENTREZ UN FNJEU NEGATIF POUR QUITTER LA PARTIE." 
PRINT: PRINT “ENTREZ UN NBRE PRIS AU HASARD ENTRE 1 FT 100 POUR DEMARRER ": 
INPUT Z:PRINT 
LET X=(RND(O)) 
LET T =T41 
IF T<=Z GOTO 24 
PRINT:PRINT"ENTREZ LF MONTANT DE VOTRE PARI "; 
INPUT F:1F F<O THEN 341 
PRINT 
PRINT “JE VAIS MAINTENANT LANCER LES DES: ":PRINT 
LET E=INT(7*RND(1)) 
LET S=INT(7*RND(1)) 
LET X=F4S 
IF X=7 GOTO 180 
1F X=1] GOTO 180 
IF X=] GOTO 40 
1F X=2 GOTO 195 
1F X=0 GOTO 40 
IF X=2 GOTO 200 
IF X=3 GOTO 200 
IF X=12 GOTO 200 
IF X=5 GOTO 220 
IF X =6 GOTO 220 
IF X=B GOTO 220 
IF X=9 GOTO 220 
IF X =10 GOTO 220 
IF X=4 GOTO 220 
PRINT X “— ....UN GAGNANTII11" 
PRINT:PRINT X"RAPPORTF LA MFME SOMME, VOUS GAGNEZ"F"DOLLARS ." 
GOTO 210 
PRINT X"- PAS DF VEINF....VOUS PERDEZ." 
PRINT:PRINT "VOUS PERDEZ"F "DOLLARS." 
LET F=0-F 
GOTO 210 
PRINT USING "##";X;:PRINT “ - CRAPS...VOUS PERDEZ." 
PRINT:PRINT "VOUS PERDEZ"F"DOLLARS . " 
LFT F=0-F 
LET R= R+F 
GOTO 320 
PRINT X "EST LF POINT. JE VAIS LANCER À NOUVEAU:":PRINT 
LET H=INT(7#*RND(1)) 
LET O=INT(7#*RND(1)) 
LET O=H+Q 
IF O=]1 GOTO 230 
IF O=7 GOTO 290 
IF O=0 GOTO 230 
IF O=X GOTO 310 
PRINT USING "##";:O0::PRINT " - CA N'EST PAS LE POINT. JE LANCE À NOUVEAU:" 
GOTO 230 
PRINT O “- CRAPS. VOUS PERDEZ." 
PRINT:PRINT "VOUS PERDEZ "F"DOLLARS." 
F=0-F 
GOTO 210 
GOTO 320 
PRINT X“- UN POINT GAGNANT......... BRAVOIIIILI" 
PRINT:PRINT X "A 2 CONTRE l VOUS RAPPORTF...VOYONS CELA..."2#*F"DOLLARS ." 
LET F=2*F 
GOTO 210 
PRINT:' PRINT "DFSIREZ VOUS CONTINUER "; 
* INPUT MS 
IF R<O GOTO 334 
IF R>0 GOTO 336 
IF R=0 GOTO 338 
PRINT CHRS(22);" VOUS ETFS NEGATIF DE $";-R;CHR$(B8);". ";CHRS$S(22) 
GOTO 340 
PRINT CHRS(22);" VOUS ETES POSITIF DE $":R:CHRS(8);". ";CHRS(22) 
GOTO 340 
PRINT CHR$(22);" VOUS ETES JUSTE À ZERO.";" ";CHR$(22) 
GOTO 27:' IF LEFTS(MS,1)="Y" GOTO 27 
IF R<O GOTO 350 
IF R>0 GOTO 353 
IF R=0 GOTO 355 
PRINT:PRINT"DOMMAGE, VOUS ETES LESSIVE. REVENEZ VITE.":PRINT 
GOTO 360 
PRINT:PRINT"FELICITATIONS---VOUS NOUS QUITTEZ GAGNANT. REVENEZ VITEI":PRINT 
GOTO 360 
PRINT:PRINT"FELICITATIONS---VOUS ETES QUITTE, PAS MAL POUR UN AMATEURI ": 
PRINT 
END 


52 





Cube (Le cube) 





Cube est un jeu qui se joue sur les faces 
visibles d'un cube d’arête 2. Une position 
est identifiée par trois nombres, par 
exemple 1,2, 1. Vous vous trouvez en po- 
sition 1,1,1, au début et le but du jeu est de 
parvenir à la position 3, 3, 3, en déplaçant 
un carré horizontalement ou verticalement 
(pas en diagonale) d’un cran à la fois sans 
passer sur l’une des 5 mines placées au 
hasard. On vous crédite d'une somme de 
$ 500. Avant chaque jeu, vous pouvez pa- 
rier que vous atteindrez votre destination. 
Vous perdez si vous heurtez une mine ou 
essayez de faire un déplacement illégal, 
c'est-à-dire si vous changez plus d'un 
nombre par rapport à votre position précé- 
dente. 

Cube a été créé par Jerimac Ratliff de 
Forth Worth, Texas. 


CUBE 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DESIREZ VOUS LIRE LES REGLES Y 


DANS CE JEU VOUS AFFRONTEZ LES DECISIONS ALEATOIRES DE 
DE L'ORDINATEUR. LE JEU SE JOUE SUR LES 3 FACES VISIBLES D'UN CUBE 
D'ARETE 2. LES 27 POSITIONS SONT IDENTIFIEES EN ENTRANT 3 NOMBRES 
TELS QUE 2,3,1. AU DEBUT, VOUS VOUS TROUVEZ EN POSITION 1,1,1. 
LE BUT DU JEU EST DE PARVENIR À LA POSITION 3,3,3. LEGER DETAIL: 
L'ORDINATEUR CHOISIRA, AU HASARD, 5 EMPLACEMENTS OU IL PLACERA 
DES MINES. SI VOUS PASSEZ SUR UNE MINE VOUS PERDEZ. AUTRE CHOSE: 
VOUS NE POUVEZ VOUS DEPLACER QUE D'UN CRAN DANS UNE DIRECTION 
DONNEE À CHAQUE TOUR. PAR EXEMPLE: DE 1,1,2 VOUS POUVEZ ALLER 
EN 2,1,2 OU EN 1,1,3. VOUS NE POUVEZ MODIFIER PLUS D'UNE 
COORDONNEE À LA FOIS. TOUT DEPLACEMENT INTERDIT VOUS FAIT PERDRE 
ET L'ORDINATEUR EMPOCHE CE QUE VOUS AVIEZ 
MISE CETTE FOIS 
LA. 


"RETURN' POUR CONTINUER. 

REPONDEZ AUX QUESTIONS PAR ‘Y' OU ‘N'. 

POUR FIXER LE MONTANT D'UN PARI, ENTREZ SIMPLEMENT LE NOMBRE DE 
DOLLARS (EXEMPLE: 250). VOTRE COMPTE EST D'OFFICE CREDITE AU DEPART 
D'UNE SOMME DE 500 DOLLARS. 


BONNE CHANCE! 


13,9 


1,9, 


DESIREZ VOUS FAIRE UN PARI ? Y 
DE COMBIEN ? 128 


A VOUS DE JOUER: 


COUP 
COUP 
COUP 
COUP 
COUP 


FELICITATIONSI 
VOUS AVEZ MAINTENANT 628 DOLLARS. 
VOULEZ VOUS FAIRE UN NOUVEL ESSAI ? Y 


DESIREZ VOUS FAIRE UN PARI ? Y 
DE COMBIEN ? 256 


A VOUS DE JOUER: 


son spANGrresre 


VOUS AVEZ PERDUI 


VOULEZ VOUS FAIRE UN NOUVEL ESSAI ? N 
PAS DE CHANCE! 


SUIVANT: 
SUIVANT: 
SUIVANT : 
SUIVANT: 
SUIVANT: 


AU REVOIR. 


? 


? 
? 
? 
? 


2,3,3 


21 


1,2 


a, 


10 PRINT TAB(34);"CUBE" 876 IF Al<Z1 THEN 1522 


20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 880 LET W=]1 

30 PRINT:PRINT:PRINT 890 LET X=1 

100 LINE INPUT "DESIREZ VOUS LIRE LES REGLES “;ANSS 900 LET Y=1 

110 1F LEFTS(ANSS,1)="N" THEN 370 910 PRINT 

120 IF LEFTS(ANSS,1)<>"Y" THEN 100 920 PRINT “A VOUS DE JOUER: “:; 
125 PRINT 930 INPUT P,Q,R 

130 PRINT" DANS CE JEU VOUS AFFRONTEZ LES DECISIONS ALEATOIRES DE" 940 IF P>W+1 THEN 1030 

140 PRINT"DE L'ORDINATEUR. LE JEU SE JOUE SUR LES 3 FACES VISIBLES D'UN CUBE" 950 IF P=W+1 THEN 1000 

150 PRINT"D'ARETE 2. LES 27 POSITIONS SONT IDENTIFIEES EN FNTRANT 3 NOMBRES" 960 IF Q>X+1 THEN 1030 

160 PRINT"TELS QUE 2,3,1. AU DEBUT, VOUS VOUS TROUVEZ EN POSITION 1,1,1." 970 IF Q=(X+1) THEN 1010 

170 PRINT'LE BUT DU JEU EST DE PARVENIR À LA POSITION 3,3,3. LEGER DETAIL:" 980 IF R >(Y+1) THEN 1030 

180 PRINT"L'ORDINATEUR CHOISIRA, AU HASARD, 5 EMPLACEMENTS OU IL PLACERA" 990 GOTO 1050 

190 PRINT"DES MINES. SI VOUS PASSEZ SUR UNE MINE VOUS PERDEZ. AUTRE CHOSE:" 1000 IF Q>= X+1 THEN 1030 

200 PRINT"VOUS NE POUVEZ VOUS DEPLACER QUE D'UN CRAN DANS UNE DIRECTION" 1010 IF R>=Y+1 THEN 1030 

210 PRINT'DONNEE À CHAQUE TOUR. PAR EXEMPLE: DE 1,1,2 VOUS POUVEZ ALLER" 1020 GOTO 1050 

220 PRINT'EN 2,1,2 OU EN 1,1,3. VOUS NE POUVEZ MODIFIER PLUS D'UNE" 1030 PRINT:PRINT "DEPLACEMENT INTERDIT. VOUS AVEZ PERDU." 
230 PRINT"'COORDONNFF À LA FOIS. TOUT DEPLACEMENT INTERDIT VOUS FAIT PERDRE" 1040 GOTO 1440 

240 PRINT"ET L'ORDINATEUR EMPOCHE CE QUE VOUS AVIEZ" 1050 LET W=P 

250 PRINT"MISE CFTTE FOIS" 1060 LET X=Q 

260 PRINT"LA." 1070 LET Y=R 

270 PRINT 1080 IF P=3 THEN 1100 

280 LINE INPUT “'RETURN' POUR CONTINUER.";XXS:PRINT CHR$(26) 1090 GOTO 1130 

290 PRINT"REPONDEZ AUX QUESTIONS PAR ‘Y' OÙ ‘N'." 1100 IF Q=3 THEN 1120 

310 PRINT 1110 GOTO 1130 

320 PRINT"POUR FIXER LE MONTANT D'UN PARI, ENTREZ SIMPLEMENT LE NOMBRE DE" 1120 IF R=3 THEN 1530 

330 PRINT"DOLLARS (EXEMPLE: 250). VOTRE COMPTE EST D'OFFICE CREDITE AU DEPART" 1130 IF P=A THEN 1150 

340 PRINT"D'UNFE SOMME DE 500 DOLLARS." 1140 GOTO 1180 

350 PRINT 1150 IF O=B THEN 1170 

360 PRINT “BONNE CHANCEI":PRINT 1160 GOTO 1180 

370 LEFT Al1=500 1170 IF R=C THEN 1400 

380 LET A=INT(3*(RND(X))) 1180 IF P=D THEN 1200 

390 IF A<>O THEN 410 1190 GOTO 1230 

400 LET A=3 1200 IF Q=E THEN 1220 

410 LET B=INT(3*(RND(X))) 1210 GOTO 1230 

420 IF B<>O THEN 440 1220 IF R=F THEN 1400 

430 LET B=2 1230 IF P=G THEN 1250 

440 LET C=INT(3*(RND(X))) 1240 GOTO 1280 

450 IF C<>O THEN 470 1250 IF Q=H THEN 1270 

460 LET C=3 1260 GOTO 1280 

470 LET D=INT(3*(RND(X))) 1270 IF R=I THEN 1400 

480 IF D<>O THEN 500 1280 IF P=J THEN 1300 

490 LET D=1 1290 GOTO 1330 

500 LET F=INT(3*(RND(X))) 1300 IF Q=K THEN 1320 

510 IF E<>O THEN 530 1310 GOTO 1330 

520 LET E=3 1320 IF R=L THEN 1440 

530 LET F=INT(3*(RND(X))) 1330 IF P=M THEN 1350 

540 IF F<>O THEN 560 1340 GOTO 1380 

550 LET F=3 1350 IF Q=N THEN 1370 

560 LET G=INT(3*(RND(X))) 1360 GOTO 1380 

570 IF G<>0 THEN 590 1370 IF R=0O THEN 1400 

580 LET G=3 1380 PRINT "COUP SUIVANT: ": 

590 LET H=INT(3*(RND(X))) 1390 GOTO 930 

600 IF H<>O THEN 620 1400 PRINT:PRINT"#*#*#*#*#*#BANG*#*#*#*##": PRINT 
610 LET H=3 1410 PRINT “VOUS AVEZ PERDUI" 

620 LET I=INT(3*(RND(X))) 1420 PRINT 

630 IF 1<>0 THEN 650 1430 PRINT 

640 LET 1I=2 1440 IF  Z=0 THEN 1580 

650 LET J=INT(3*(RND(X))) 1450 PRINT 

660 IF J<>0O THEN 680 1460 LET Z2=A1-2] 

670 LET J=3 1470 IF Z2>0 THEN 1500 

680 LET K=INT(3*(RND(X))) 1480 PRINT:PRINT "VOUS ETES LESSIVE." 
690 IF K<>O THEN 710 1490 GOTO 1610 

700 LET K=2 1500 PRINT:PRINT “ VOUS AVEZ MAINTENANT"; Z2; "DOLLARS." 
710 LET L=INT(3*(RND(X))) 1510 LET Al=22 

720 IF L<>O THEN 740 1520 GOTO 1580 

730 LET L=3 1522 PRINT:PRINT"VOUS AVEZ ESSAYE DE ME ROULER; PARIEZ À NOUVEAU"; 
740 LET M=INT(3*(RND(X))) 1525 GOTO 870 

750 IF M<>0O THEN 770 1530 PRINT:PRINT"FELICITATIONSI" 
760 LET M=3 1540 IF LEFTS$S(Z$,1)="N" THEN 1580 
770 LET N=INT(3*(RND(X))) 1550 LET Z2=A14+21 

780 IF N<>O THEN 800 1560 PRINT:PRINT “VOUS AVEZ MAINTENANT"; Z2;"DOLLARS." 
790 LET N=1 1570 LET Al=22 

800 LET O=INT (3*(RND(X))) 1580 PRINT:PRINT"VOULEZ VOUS FAIRE UN NOUVEL ESSAI "; 
810 IF O <>O THEN 830 1590 INPUT S$ 

820 LET O=3 1600 1F LEFT$S(S$,1)="Y" THEN 380 
830 PRINT:INPUT "DESIREZ VOUS FAIRE UN PARI ":2ZS 1610 PRINT “PAS DE CHANCEI" 

840 IF LEFTS(Z$,1)="N" THEN 920 1620 PRINT 

850 IF LEFTS(Z$,1)<>"Y" THEN 830 1630 PRINT “AU REVOIR." 

860 PRINT "DE COMBIEN ": 1640 END 
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Depth Charge 





(Grenade sous-marine) 


Dans ce programme vous êtes le capi- 
taine du Destroyer USS Computer. Un 
sous-marin ennemi vous a causé pas mal 
d'ennuis et votre mission est de le dé- 
truire. Vous pouvez choisir la taille du 
« cube » d’eau dans lequel vous voulez le 
chercher. L'ordinateur détermine ensuite 
à combien de grenades sous-marines 
vous avez droit pour détruire le sous- 
marin. 

Chaque grenade explose lorsque vous 
précisez trois nombres; les deux premiers 
sont les coordonnées dans le plan hori- 
zontal (X,Y), le troisième est la profon- 
deur. Après chaque grenade, votre radar 
ultrasonique vous dira où l'explosion a eu 
lieu par rapport au sous-marin. 

Dana Noftle a écrit ce programme lors- 
qu'elle était étudiante à Acton High 
School, Acton, Massachusetts. 


DEPTH CHARGE 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DIMENSION DE LA ZONF DE RECHERCHE? 50 


VOUS COMMANDEZ LE DESTROYER USS COMPUTER 

UN SOUS-MARIN ENNEMI VOUS CAUSE QUELQUE SOUCI. VOTRE 

MISSION EST DE LE DETRUIRE. VOUS AVEZ DROIT À 6 ATTAQUES. 
PRECISEZ LE POINT D'EXPLOSION DE LA GRENADE SOUS-MARINE GRACE À 
TROIS NOMBRES -- LES DEUX PREMIERS SONT LES COORDONNEES 

DANS LE PLAN HORIZONTAL; LE 3EME EST LA PROFONDEUR. 


BONNE CHANCE |! 


TENTATIVE No 1 ? 25,25,25 
LE SONAR REND COMPTE QUE L'EXPLOSION ETAIT DANS LA DIRECTION 
NORD EST ET TROP BASSE. 


TENTATIVE No 2 ? 15,15,15 
LE SONAR REND COMPTE QUE L'EXPLOSION ETAIT DANS LA DIRECTION EST FT 
À LA BONNE PROFONDEUR. 


TENTATIVE No 3 ? 10,15,15 
LE SONAR REND COMPTE QUE L'EXPLOSION ETAIT DANS LA DIRECTION 
OUEST ET À LA BONNE PROFONDEUR. 


TENTATIVE No 4 ? 12,15,15 


B OU M ! ! VOUS L'AVEZ TROUVE EN 4 ESSAISI 


UNE AUTRE PARTIE (Y OU N)? N 
OK. J'ESPERE QUE LE JEU VOUS À PLU. 


2 P 
4 P 
6 P 
20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
200 
210 
215 
300 
400 
410 
420 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


DEPTH CHARGF 


DIMENSION DE LA ZONE DE RECHERCHE? 10 


VOUS COMMANDEZ LE DESTROYER USS COMPUTER 

UN SOUS-MARIN ENNEMI VOUS CAUSE QUELQUE SOUCI. VOTRE 

MISSION FST DE LE DETRUIRE. VOUS AVFZ DROIT À 4 ATTAQUES. 
PRECISEZ LF POINT D'EXPLOSION DFE LA GRENADE SOUS-MARINE GRACE À 
TROIS NOMBRES -- LES DEUX PREMIFERS SONT LES COORDONNEES 

DANS LE PLAN HORIZONTAL; LE 3EME FST LA PROFONDEUR. 


BONNE CHANCE ! 


TENTATIVE No 1 ? 5,5,5 


LF SONAR REND COMPTE QUE L'EXPLOSION ETAIT DANS LA 
TROP BASSE. 


DIRECTION NORD EST FT 


TENTATIVE No 2 2 2,2,3 
LE SONAR REND COMPTE QUE L'EXPLOSION ETAIT DANS LA 
A LA BONNE PROFONNEUR. 


DIRECTION SUD ET 


TENTATIVE No 3 ? 3,2,3 
LE SONAR REND COMPTE QUF L'EXPLOSION ETAIT DANS LA 
À LA BONNE PROFONDEUR. 


DIRECTION SUD EST ET 


TENTATIVE No 4 ? 2,4,3 


LF SONAR REND COMPTE QUE L'EXPLOSION ETAIT DANS LA 
À LA BONNE PROFONDEUR. 


DIRECTION NORD ET 


VOUS AVEZ ETF TORPILLEF! ARBANDONNEZ 
LE SOUS-MARIN ETAIT EN 2, 3, 3. 


LE NAVIREI 


UNE AUTRE PARTIF (Y OÙ N)? N 


OK. J'FSPERE QUE LF JEU VOUS À PLU. 

RINT TAB(30);"DEPTH CHARGE" 

RINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
RINT: PRINT: PRINT 


INPUT "DIMENSION DE LA ZONE DE RECHERCHE" ;G: 
N=INT(LOG(G)/LOG(2))+1 
PRINT “VOUS COMMANDEZ LE DESTROYER USS COMPUTER" 
PRINT “UN SOUS-MARIN ENNEMI VOUS CAUSE QUELQUE SOUCI. VOTRE" 
PRINT "MISSION EST DE LE DETRUIRE. VOUS AVEZ DROIT A";N;"ATTAQUES." 
PRINT “PRFCISEZ LE POINT D'EXPLOSION DE LA GRENADE SOUS-MARINE GRACE A" 
PRINT "TROIS NOMBRES -- LES DEUX PREMIERS SONT LES COORDONNEES" 
PRINT "DANS LE PLAN HORIZONTAL: LE 3EME EST LA PROFONDEUR." 

PRINT : PRINT “BONNE CHANCE 1": PRINT 

A=INT(G#RND(1)) : B=INT(G#*RND(1)) : C=INT(G*RND(1)) 


PRINT 


FOR D=1 TO N : PRINT : PRINT "TENTATIVE No";:D; : INPUT X,Y,2Z 
IF ABS(X-A)+ABS(Y-B)+ABS(Z-C)=0 THEN 300 

GOSUB 500 : PRINT : NEXT D 

PRINT : PRINT "VOUS AVEZ ETE TORPILLEI ABANDONNEZ LE NAVIREI" 


PRINT "LE SOUS-MARIN ETAIT EN";A;CHR$(8);",":;B;CHR$(8);",";C;CHR$S(8);:"." 





GOTO 400 
PRINT PRINT “B O U M 1 1 VOUS L'AVEZ TROUVE EN";D;"ESSAISI" 
PRINT : PRINT: INPUT “UNE AUTRE PARTIE (Y OU N)":AS$ 


IF LEFTS(A$,1)="Y" THEN 100 
PRINT “OK. J'ESPERE QUE LE JEU 
PRINT “LE SONAR REND COMPTE QUE 
IF Y>B THEN PRINT “NORD ‘; 

IF Y<B THEN PRINT "SUD "; 

IF X>A THEN PRINT "EST"; 

IF X<A THEN PRINT "OUEST"; 

IF Y<>B OR X<>A THEN PRINT " ET"; 

IF Z>C THEN PRINT “ TROP BASSE." 

IF Z<C THEN PRINT “ TROP HAUTE." 

IF Z=C THEN PRINT “ À LA BONNE PROFONDEUR." 
RETURN 

END 


VOUS A PLU." : GOTO 600 
L'EXPLOSION ETAIT DANS LA DIRECTION “; 
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Diamond (Diamant) 








Ce programme remplit une feuille de pa- 
pier de 22X28cm avec des diamants 
(tracés bien sûr sur une copie en clair de 
terminal). Le programme demande à ce 
qu'un nombre impair entre 5 et 31 soit in- 
troduit. Les diamants imprimés seront ce 
nombre de caractères pour la hauteur et la 
largeur. Le nombre de diamants en travers 
de la page variera entre 12 pour des dia- 
mants de 5 caractères de large et 1 pour 
un diamant de 31 caractères de large. 
Vous pouvez, si vous le désirez, changer 
le contenu du tracé à l'instruction 6. 

Le programme a été écrit par David Ahl 
de Creative Computing. 


1 PRINT TAB(33);"DIAMND" 

2 PRINT TAR(15);"CREATIVE COMPUTING MORRISTOWN, NEW JEPSFY" 

3 PRINT:PRINT: PRINT 

4 PRINT "POUR ORTENIR UN JOLI TRACE EN DIAMANT, “ 

5 INPUT "FNTREZ UN NOMRRF IMPAIR COMPRIS ENTRE 5 ET 2]";R:PRINT 

6 Q=INT(78/R):LINE INPUT "ENTREZ 2 LETTRES MAJUSCULES: ":;PESPS: 
AS=LEFTS (RESPS,2) 

7 PRINT CHRS(26) 

R FOR L=1 TO O 

10 X=1:Y=R:7=2 

20 FOR N=X TO Y STEP Z 

25 PRINT TAB((R-N)/2): 

28 FOR M=1 TO Q 

29 C=] 

30 FOR A=1 TO N 

32 IF C>LEN(AS) THFN PRINT "l";:GOTO 50 

34 PRINT MIDS(AS$,C,1): 

36 C=C+1 

50 NEXT A 

53 IF M=Q THEN 60 

55 PRINT TAR(R*M4+(R-N)/2); 

56 NFXT M 

60 PRINT 

70 NEXT N 

83 IF X<>1 THEN 95 

A5 X=R-2:Y=l:Z=-2 

90 GOTO 20 

95 NEXT L 

99 END 


DIAMND 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


POUR OBTENIR UN JOLI TRACE EN DIAMANT, 
ENTREZ UN NOMBRE IMPAIR COMPRIS ENTRE 5 ET 21? 9 


ENTREZ 2 LETTRES MAJUSCULES: CC 


C C C C 
cc! cc! cc! cc! 
ccii! cc'i! ccti! cout! 
count court cortuit count 
courtennt corsunnnt corunuunt Counuuuut 


CCUNNNNUUUR  CCURUUNDNUR  CCHUUNUNDUN  CCUNUUUUU 
CCUDUUUNAUUS CONUUURNUNAUE CCUUURUUUNNEE COUUIUUNUUU 
CCUMUUNURUUUU COUMDUNNUNUR COUUNUUNUNUNU CCNUNUNU NU 
CCUDNUUNUUR  CCUNUUUUNUU  CCNMUNUNRUR  CCIUNUUUU 


ARREEES ornrunns ARLES CORREETE 
CARRE CARRE CARTER corn 
cc! cc: cc! cor! 

cc! cc! cc! cc! 

c c C c 

C € C € 
CC! CC! CC! cc! 
ccii! cc! cc ci! 
cout corn cours corn 

ARRETE ARLES COARETENT CARTES 


CCtuuuuquun CCrunuuuuns Cursus CCriUuuuuun 
COMM DU CET U UMR CENUUUNU MUR COUIIUUUUUN 
COULIUUE UNE UNI CCU UNE UE UN UM ICONE UNE ICCUU NUE 
CCUUU UM CCUUMURDUUUt COUT UM UMR CCHUEUUUUUNUR 


Coutrnunuut CCuIÉtnuu nt Coutrupunnt Corrpuunnnt 
(AARSESEN coruupuut cornunnnt cornnunnt 
Count count cornet corn 
cou! cout ÉCRIS : co!!! 
cc! cc! CC! CC! 

C € C C 
C C C € 
cc! CC! CC! CC! 
ccti! cout! cc!!! co'it 
CCruuu NA Cri Cornu 
CCruunuun CCrtnuuus CCtuuuuus CCrruunun 


CCrtuouuuus CCtiunuuuur CCrrieuuuut CCtronnuuus 
CCritivunnun CCrivounrunnt CCrrunrununur  CCrtunnunnunt 
CCOUUUU RU UM M CCM EEE M CCE UM EEE ICCN UN UUUEUt 
CCrtuunuuunut CCrituuuununt CCrusnuprunnt CCrtituuununs 
CCrrnuuuuun CCuruuuuuun CCI CCrtruunuun 


courts (AARERRRE counnunns cortnunnt 
corn court count cout! 
cout! coitt coti1 cor! 
cc! cc! cc! CC! 
C C C C 
C C C C 
cc! CC! CC! cc! 
court! Cctt! cc!!! cC'i1 
CCruus CCriuut CCrruut CCrruut 
CCriuusus CCttouuus CCriunuut CCrinnunt 
CCripuuuuus CCrrupuuuss CCrttunsuns CCrrrunonur 
CCttrunrnnnur  CCrrrennunnun CON MMMUMnnnt CCrrnnnnenunn 


CCrittrrvrrrrtiÇCririneurrntriCCtintrrnnurnrniCtCrnnnnnnnunnns 
CCUUUUU UMR COMM pUU Une CONTOUR UM CCrUnuunnu nus 
CCttouuuus CC'uuUu un CCruunuuun CCrtiuuuuun 


CCrtuunul CCrinuuun CCtiuuus CCrtuuuunt 
CCrisut CCriuus CCrtuus Cortuus 
cCr': cor: cci1! cor! 
cc! cc! cc! cc! 
C C C C 
ec 
Break in 60 
Ok 


Dice (Les dés) 





Ce programme, qui n'est pas exacte- 
ment un jeu, simule le lancer d'une paire 
de dés un grand nombre de fois et im- 
prime la fréquence de répartition. Vous 
entrez simplement le nombre de lancers. Il 
est intéressant de voir combien il faut de 
lancers pour approcher de la répartition 
théorique : 


2 1/36  2.7777.% 

3 2/36  5.5555..% 

4 3/36  8.3333..% 
etc. 


Daniel Freidus a écrit ce programme 
lorsqu'il était en sixième à Harrison Jr-Sr 
High School, Harrison, New York. 





DICE 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


CE PROGRAMME SIMULE LE LANCER D'UNE PAIRE DE DES. 

ENTREZ LE NOMBRE DE ‘LANCERS' QUE DOIT EFFECTUER L'ORDINATEUR 
ATTENTION. CELA PREND BEAUCOUP DE TEMPS POUR LES TRES GRANDS NOMBRES 
NOTAMMENT, LORSQU'ON DEPASSE 5000. 


COMBIEN DE LANCERS? 10000 


TOTAL POINTS NOMBRE DE FOIS 


2 288 
3 588 
2 PRINT TAB(34);"DICE" 4 806 
4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 5 1,113 
6 PRINT:PRINT:PRINT 6 1,372 
10 DIM F(12) 7 1,635 
20 REM DANNY FREIDUS 8 1,457 
30 PRINT “CE PROGRAMME SIMULE LE LANCER D'UNE PAIRE DE DES." 9 1,103 
50 PRINT "ENTREZ LE NOMBRE DE ‘LANCERS' QUE DOIT EFFECTUER L'ORDINATEUR" 10 807 
60 PRINT "ATTENTION. CELA PREND BEAUCOUP DE TEMPS POUR LES TRES GRANDS NOMBRES" 11 559 
70 PRINT "NOTAMMENT, LORSQU'ON DEPASSE 5000." 12 272 
80 FOR Q=1 TO 12 
90 F(Q)=0 
100 NEXT Q ENCORE UNE FOIS? Y 
110 PRINT:PRINT “COMBIEN DE LANCERS"; 
120 INPUT X COMBIEN DE LANCERS? 100 
130 FOR S=1 TO X 
140 A=INT(6*RND(1)+1) TOTAL POINTS NOMBRE DE FOIS 
250 B=INT (6 *RND (1 )#1) 7 
160 R=A+B 
170 F(R)=F(R)+1 
180 NEXT S 
185 PRINT 
190 PRINT "TOTAL POINTS","NOMBRE DE FOIS" 
195 PRINT "------ PRES “:PRINT 
200 FOR V=2 TO 12 
210 sn TAB(5);:PRINT USING "##";V::PRINT "",:PRINT USING "#,8###,##8#"; 
F(V 
220 NEXT V 
221 PRINT 
222 PRINT:PRINT "ENCORE UNE FOIS"; 
223 INPUT Z$ 
224 IF LEFT$(Z$,1)="Y" THEN 80 
240 END ENCORE UNE FOIS? N 
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me 
De 


Digits (Jeu des nombres) 





Le joueur écrit une série de 30 nombres 
(0, 1, ou 2) au hasard avant de commen- 
cer le jeu. Le programme ordinateur, utili- 
sant des techniques de reconnaissance 
de formes, essaie de deviner le nombre 
suivant sur votre liste. 

L'ordinateur demande 10 nombres à la 
fois. Il devine toujours en premier et exa- 
mine ensuite le nombre suivant pour voir 
s'il a deviné juste. Par pure chance (ou 
chance ou probabilité), l'ordinateur doit 
avoir raison 10 fois. C'est très étrange de 
voir comme il peut généralement faire bien 
mieux que cela ! 

Ce programme provient de Dartmouth, 
l'auteur original est inconnu. 


DIGITS 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


11 s'agit dans ce jeu de deviner. 


Desirez vous lire les regles? Y 


Prenez, je vous prie, une feuille de papier pour y ecrire 
les chiffres '0', ‘l1', ou ‘2' trente fois et ceci au hasard. 


Disposez les en 3 lignes de 10 chiffres chacune. 


Je vous les demanderai par 10 a la fois. Separez les chiffres 


par des virgules. 


J'essaierai de deviner d'abord puis regarderai ensuite quel est 
le nombre suivant pour verifier. La seule chance voudrait que 
j'ai raison dix fois. Mais j'espere faire bien mieux 


que cela..... 


Dix chiffres, s'il vous plait? 0,0,1,1,2,2,2,2,1,2 


JE PENSE VOTRE CHIFFRE RESULTAT NBRE D'EXACTS 
0 0 EXACT 1 
0 (o] EXACT 2 
2 1 FAUX 2 
1 1 EXACT 3 
1 2 FAUX 3 
2 2 EXACT 4 
2 2 EXACT 5 
0 2 FAUX 5 
(o] 1 FAUX 5 
0 2 FAUX 5 


Dix chiffres, s'il vous plait? 0,1,0,1,0,2,1,0,2,1 


JE PENSE VOTRE CHIFFRE RESULTAT NBRE D'EXACTS 
0 (e) EXACT 6 
0 1 FAUX 6 
0 (o] EXACT A 
1 1 EXACT 8 
2 (o) FAUX 8 
2 2 EXACT 9 
2 1 FAUX 9 
2 (Q) FAUX 9 
2 2 EXACT 10 
0 1 FAUX 10 


Dix chiffres, s'il vous plait? 1,1,1,2,2,0,0,0,1,1 


JE PENSE VOTRE CHIFFRE RESULTAT 


FAUX 
FAUX 
FAUX 
FAUX 
FAUX 
EXACT 
EXACT 
FAUX 
EXACT 
FAUX 


DNemO0O0000O00O 
HOOONNEH EE 


J'ai devine plus d'1/3 de vos nombres. 
J'ai gagne. 


Encore une fois? Y 


NBRE D'EXACTS 


Dix chiffres, s'il vous plait? 1,1,0,0,0,2,2,1,1,1 


JE PENSE VOTRE CHIFFRE RESULTAT 


EXACT 
FAUX 
FAUX 
FAUX 
FAUX 
FAUX 
EXACT 
FAUX 
FAUX 
FAUX 


DN'ONN NN N 
MN NOOOMmE 


NBRE D'EXACTS 


ND D D N He mis hé es be 


Dix chiffres, s'il vous plait? 1,2,0,1,2,0,1,0,1,0 


JE PENSE VOTRE CHIFFRE RESULTAT 
2 1 FAUX 
0 2 FAUX 
2 0 FAUX 
2 1 FAUX 
0 2 FAUX 
1 0 FAUX 
1 1 EXACT 
2 0 FAUX 
2 1 FAUX 
2 0 FAUX 


NBRE D'EXACTS 


& & & WU N D NN D N 


Dix chiffres, s'il vous plait? 2,1,2,2,2,2,1,1,0,0 


JE PENSE VOTRE CHIFFRE RESULTAT 
2 2 EXACT 
1 1 EXACT 
2 2 EXACT 
1 2 FAUX 
1 2 FAUX 
1 2 FAUX 
1 1 EXACT 
2 1 FAUX 
2 Le) FAUX 
2 0 FAUX 


J'ai devine moins d'1/3 de vos nombres. 


Felicitationsi Vous m'avez battu. 
Encore une fois? N 


Merci d'etre venu jouer avec moi. 


NBRE D'EXACTS 


JsJssonnaues 


10 PRINT TAB(33);"DIGITS" 

20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

30 PRINT:PRINT:PRINT 

210 PRINT "Il s'agit dans ce jeu de deviner." 

215 PRINT 

220 INPUT "Desirez vous lire les regles";ES$S 

230 IF LEFTS(ES$,1)="N" OR LEFTS(E$,1)="n" THEN 360 

250 PRINT 

260 PRINT “ Prenez, je vous prie, une feuille de papier pour y ecrire” 
270 PRINT "les chiffres 'O', ‘l', ou ‘2' trente fois et ceci au hasard." 
280 PRINT "Disposez les en 3 lignes de 10 chiffres chacune.":PRINT 

290 PRINT “ Je vous les demanderai par 10 a la fois. Separez les chiffres" 
295 PRINT "par des virgules.":PRINT 


300 PRINT " J'essaierai de deviner d'abord puis regarderai ensuite quel est" 


310 PRINT "le nombre suivant pour verifier. La seule chance voudrait que” 
320 PRINT "j'ai raison dix fois. Mais j'espere faire bien mieux" 
330 PRINT “que cela....." 

340 PRINT:PRINT 

360 READ A,B,C 

370 DATA O,1,3 

380 DIM M(26,2),K(2,2),L(8,2) 

400 FOR I=0 TO 26: FOR J=0 TO 2: M(I1,J)=1: NEXT J: NEXT 1 

410 FOR 1=0 TO 2: FOR J=0 TO 2: K(I,J)=9: NEXT J: NEXT I 

420 FOR I=0 TO 8: FOR J=0 TO 2: L(1,J)=3: NEXT J: NEXT 1 

450 L(0,0)=2: L(4,1)=2: L(8,2)=2 

480 2=26: 21=8: 22=2 

510 X=0 

520 FOR T=1 TO 3 

530 PRINT 

540 PRINT "Dix chiffres, s'il vous plait"; 

550 INPUT N(1),N(2),N(3),N(4),N(5),N(6),N(7),N(8),N(9),N(10) 

560 FOR I=1 TO 10 

570 W=N(1)-1 

580 IF W=SGN(W) THEN 620 






590 PRINT "Utilisez seulement les chiffres ‘O', ‘l', or ‘2'." 
600 PRINT “Recommençons .":GOTO 530 
620 NEXT 1 


630 PRINT: PRINT "JE PENSE "NBRE D'EXACTS" 
640 PRINT "-------- CARRE PAL SE RE don eme ": PRINT 
660 FOR U=1 TO 10 

670 N=N(U): S=0 

690 FOR J=0 TO 2 

700 S1=A*K(Z2,J)+B*L(Z1,J)4+C*M(Z,J) 
710 IF S>Sl THEN 760 

720 IF S<Sl THEN 740 

730 IF RND(1)<.5 THEN 760 

740 S=Sl: G=J 





760 NEXT J 

770 PRINT “ ":G," "?N(U), 

780 IF G=N(U) THEN 810 

790 PRINT “ FAUX",:PRINT USING “  ##":;Xx 
800 GOTO 880 

810 X=X+1 

R20 PRINT “ FXACT",:PRINT USING "  ##":X 


B30 M(Z,N)=M(Z,N)+1 

840 L(Z1,N)=L(Z1,N)+1 

850 K(Z2,N)=K(2Z2,N)+1 

860 Z=Z-INT(Z/9)*9 

870 Z=3*Z+N(U) 

880 Z1=Z-INT(Z/9)*9 

890 Z2=N(U) 

900 NEXT U 

910 NEXT T 

920 PRINT 

930 IF X>10 THEN 980 

940 IF X<10 THEN 1010 

950 PRINT “J'ai devine 1/3 de vos rombres." 

960 PRINT "La partie est nulle." 

970 GOTO 1030 

980 PRINT “J'ai devine plus d'1/3 de vos nombres." 
990 PRINT "J'ai gagne." 

1000 GOTO 1030 

1010 PRINT “J'ai devine moins d'1/3 de vos nombres." 
1020 PRINT "Felicitations! Vous m'avez battu." 

1030 PRINT 

1040 INPUT "Encore une fois";XS 

1060 1F LFFTS(XS,1)="Y" OR LEFTS(X$S,1)="y" THEN 400 THEN 400 
1080 PRINT:PRINT "Merci d'etre venu jouer avec moi.":PRINT 
1090 END 
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Even Wins 





C'est un jeu entre vous et l'ordinateur. 
Pour jouer, un nombre impair d'objets 
(billes, jetons, allumettes) sont placés 
dans une rangée. Vous et l'ordinateur pre- 
nez chacun votre tour de un à quatre ob- 
jets à chaque fois. Le jeu est terminé lors- 
qu'il ne reste plus d'objets et le gagnant 
est celui qui termine avec un nombre pair 
d'objets. 

Il y a deux versions de ce jeu. Bien 
qu'elles apparaissent semblables au 
joueur, l'approche de programmation est 
assez différente. La première version 
d'EVEN WINS est déterministe, c'est-à- 
dire que l'ordinateur joue d'après de 
bonnes règles établies et il vous est im- 
possible de le battre si vous ne savez pas 
comment jouer. || y a toujours 27 objets au 
départ bien que vous puissiez changer ce- 
la aux instructions 250 et 1060. 

La seconde version du jeu EVEN WINS 
est beaucoup plus intéressante parce que 
l'ordinateur commence en ne connaissant 
que les règles du jeu. En utilisant de 
simples techniques d'intelligence  artifi- 
cielle (cybernétique) l'ordinateur — de par 
les fautes qu'il fait — apprend progressi- 
vement jusqu'à ce qu'il ait un très bon jeu. 
Après 20 parties, l'ordinateur devient diffi- 
cile à battre. La variété dans la manière de 
jouer de l’homme semble faire apprendre 
plus vite à l'ordinateur. Si vous tracez la 
courbe d'apprentissage de ce pro- 
gramme, vous verrez qu'elle ressemble 
beaucoup aux courbes classiques d'ap- 
prentissage humain faites d'après des ex- 
périences psychologiques. 

Eric Peters a écrit le jeu d'EVEN WINS 
à DEC. L'auteur original d'EVEN WINS 
est inconnu. 


GAME OF EVEN WINS 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DESIREZ VOUS LIRE LES REGLES? Y 


LE JEU SE JOUE COMME SUIT: 


AU DEBUT DE LA PARTIE UN NOMBRE QUELCONQUE DE JETONS EST 
PLACE SUR LE TAPIS. ON COMMENCE TOUJOURS AVEC UN NOMBRE 
DE JETONS. LORSQUE VIENT SON TOUR, LE JOUEUR DOIT PRENDRE UN, 
TROIS, OU QUATRE JETONS. LE GAGNANT EST CELUI QUI TERMINE 


AVEC UN NOMBRE PAIR DE JETONS. 


AU DEBUT DE LA PARTIE L'ORDINATEUR NE CONNAIT QUE LES REGLES DU JEU. 
PROGRESSIVEMENT IL JOUE DE MIEUX EN MIEUX. APRES 20 PARTIES 


D'AFFILEE, IL DEVRAIT DEVENIR DIFFICILE À BATTRE. 
ESSAYEZ DONCIIII 


SI VOUS VOULEZ QUITTER LA PARTIE , JOUEZ ‘O' À VOTRE PROCHAIN COUP. 


IL Y A 13 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 4 JETONS EN LAISSANT 9 ... 


IL Y À 6 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 4 JETONS EN LAISSANT 2 ... 


IL RESTE 1 JETON SUR LE TAPIS. 
L'ORDINATEUR PREND 1 JETON. 


PARTIE RERMINEE ... VOUS GAGNEZI1I1 
SCORE: 
=== 


HOMME - 1 
ORDINATEUR - O 


IL Y À 13 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 1 JETON ET EN LAISSE 12 ... 


IL Y À 8 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 4 JETONS EN LAISSANT 4 ... 


PARTIF RERMINEE ... VOUS GAGNEZIII 


SCORE: 


=== 
HOMME - 2 
ORDINATEUR - O 


IL Y À 13 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 1 JETON ET EN LAISSE 12 ... 


IL Y À 8 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 3 JETONS EN LAISSANT 5 ... 


IL Y À 3 JETONS SUR LE TAPIS. 
L'ORDINATEUR PREND 3 JETONS. 


PARTIE RERMINEE ... VOUS GAGNEZI11 
SCORE: 
= 
HOMME - 3 
ORDINATEUR - O 


IL Y À 15 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 2 JETONS EN LAISSANT 13 


IL Y À 9 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 2 JETONS EN LAISSANT 7 ... 


IL Y À 5 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 4 JETONS EN LAISSANT 1 ... 


PARTIE TERMINEE ... JE GAGNEIII 


SCORE: 


HOMME - 3 
ORDINATEUR - 1 


IL Y À 9 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 2 JETONS EN LAISSANT 7 ... 


IL Y À 5 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 4 JETONS EN LAISSANT 1 ... 


PARTIE TERMINFE ... JE GAGNEIII 


SCORE: 


2222 
HOMME - 3 
ORDINATEUR - 2 


IL Y À 19 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 1 JETON ET EN LAISSE 18 


IL Y À 14 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 3 JETONS EN LAISSANT 11 ... 


IL Y À 7 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 1 JETON ET EN LAISSE 6 ... 


IL Y À S JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 4 JETONS EN LAISSANT 1 ... 


PARTIE RERMINEE ... VOUS GAGNEZIII 


SCORE: 


=== 
HOMME - 4 
ORDINATEUR - 2 


IL Y À 15 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 2 JETONS EN LAISSANT 13 ... 
6 N'EST PAS AUTORISE ... QUE JOUEZ VOUS? 4 


1L Y À 9 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 2 JETONS EN LAISSANT 7 ... 


IL Y À 3 JETONS SUR LE TAPIS. 


L'ORDINATEUR PREND 2 JETONS EN LAISSANT 1 ... 


PARTIE TERMINEE ... JE GAGNEIII 


A VOTRE TOUR? 3 


À VOTRE TOUR? 1 


QUE JOUEZ VOUS? 4 


A VOTRE TOUR? 4 


QUE JOUEZ VOUS? 4 


A VOTRE TOUR? 2 


+++ À VOTRE TOUR? 4 
À VOTRE TOUR? 2 


A VOTRE TOUR? 1 


À VOTRE TOUR? 2 


A VOTRE TOUR? 1 


+++ QUE JOUEZ VOUS? 4 
A VOTRE TOUR? 4 
QUE JOUEZ VOUS? 1 


A VOTRE TOUR? 1 


A VOTRE TOUR? 6 


A VOTRE TOUR? 4 


À VOTRE TOUR? 1 


1 P 
2 P 
3 P 
4 Y 
10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
225 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
5A0 
590 


RINT CHRS(26):TAR(31):"FEVEN WINS" 
RINT TAB(15):"CREATIVE COMPUTING MORRISTOWN, 
RINT:PRINT 
1=0 
M1=0 
DIM M(20),Y{ 
PRINT " 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
IF C=0 THEN 
GOTO 1060 
T=27 
M=2 
PRINT:PRINT 
M1=M1+M 
T=T-M 
IF M=] THEN 
IF T=0 THEN 
PRINT: PRINT 
PRINT 
PRINT “OUFL 
INPUT Y 
PRINT 
IF Y<l THEN 1160 
IF Y>4 THEN 1160 
IF Y<=T THEN 430 


NEW JERSEY" 


20) 
CE JEU À 2 JOUEURS S'APPELLE ‘EVEN WINS' 
“POUR Y JOUER, ON DOIT AVOIR 27 BILLES OÙ OBJFTS SJMI 
“SUR UNE TABLE." 


LES 2 JOUFURS JOUFNT TOUR A TOUR, 
“A CHAQUE FOIS. 
"ET LE VAINQUEUR 


LES SEULFS REGLES SONT: 
“(2) VOUS DEVEZ PRENDRE NE UNE À 4 RILLES PAR COUP, 
"ET (3) VOUS NE POUVEZ PAS SAUTER VOTRE TOUR." 


“0! 
C 


TAPEZ ‘l' SI VOUS DESIRFEZ COMMENCER, 
S1 VOUS DESIREZ QUE CE SOIT MOI." 


250 


“TOTAL=";T:PRINT 


PRINT 
880 
“RESTE=";T: PRINT 


“JF PRENDS UNE BILLF." ELSF PRINT 


PRINT " VOUS AVEZ ESSAYE DE PRENDRE PLUS DFE BILLFS QU 
PRINT _“RECOMMENCFZ . " 

GOTO 350 

Y1=Y14Y 

T=T-Y 


IF T=0 THEN 880 
PRINT "RFSTE=";T 


PRINT 


PRINT "VOTRE TOTAL FST";Y1l;CHRS(B);"." pes 
IF T<,S THEN 8B8OQ 220 


R=T-6*INT(T/6) 

IF INT(Y1/2)=Y1/2 THEN 700 
IF T<4.2 THEN 580 

IF R>3.4 THEN 620 

M=R+1 

M1 =MI 4M 

T=T-M 

GOTO 300 

M=T 

T=T-M 


630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
R1Q 
820 
830 
R40Q 
850 
860 
870 
880 
a90 
300 
919 
920 
930 
940 
950 
960 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


"JE PRENDS";M 


EST VOTRF PROCHAIN COUP (MON TOTAL FST";M1;CHRS$S(R);")"; 


(LES PAIRS GAGNENT)"* 


LAIRES" 


EN PRENANT DE UNE À 4 RILLFS" 
LA PARTIE SETERMINF QUAND IL N'Y A PLUS DE RILLES," 
EST CELUI QUI A UN NOMBRE PAIR DF BILLES." 


(1) VOUS DEVEZ JOUER À VOTRE TOUR," 


OU TAPEZ" 


: "BILLES." 


IL N'FN RESTF" 


GOTO 830 

REM 250 FST LA OU JE GAGNF. 
IF R<4.7 THEN 660 

IF R>3.5 THEN 660 

M=1 

GOTO 670 

M=4 

T=T-M 

M1=M1+M 

GOTO 300 

REM JR SUIS PRET À FNCODER 
IF R<1.5 THEN 1020 

IF R>5.3 THEN 1020 

M=R-1 

M1=M]14M 

T=T-M 

IF T<.2 THEN 790 

REM ICI NIFF DE ZRFO 

GOTO 300 

REM 

IF M=] 
PRINT 
GOTO 880 

REM C'EST ICI OUF JF GAGNF 

IF M=1l THEN PRINT "JE PRFENDS UNE BILLF." 
PRINT 

PRINT "RESTE = 0" 

MI =M] +M 

PRINT “IL N'Y A PLUS DF BILLES." 

PRINT 
PRINT " 
PRINT 


LA STRAT. POUR LF MOMENT OÙ LE TOTAL ADVERSE SERA 


ICI 7.ERO 


THEN PRINT “JF PRENDS UNF BILLE." FLSF PRINT "JE PRENDS";M; "BILLES." 


ELSE PRINT "JE PRENDS";M;"RILLES." 


MON TOTAL FST";Ml;CHRS(R);:", VOTRE TOTAL FST";Yl;CHRS(8);:"." 


‘IF INT(MI/2)=M1/2 THEN 950 


PRINT VOUS AVEZ GAGNE. DESIREZ VOUS JOUER"; 
GoTro 960 
PRINT “ J'AI GAGNE. PNESIREZ VOUS JOUFR":; 
INPUT “ ENCORE"; A1S$:PRINT:PRINT 
IF LEFTS(AIS,1)="N" THEN 1030 
M1=0 
Y1=0 
GOTO 200 
GOTO 640 
PRINT 
PRINT “OK. 
GOTO 1230 
T=27 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT "QUEL EST VOTRE 1ER COUP"; 
INPUT Y 
GOTO 360 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO 350 
END 


A BIENTOT." 


“TOTAL=":;T 


“LE NOMBRE DE RILLES PRISES DOIT FTRE UN ENTIER POSITIF" 
“COMPRIS ENTRE 1 ET 4." 


QUE JOUEZ VOUS ?* 


61 


PAIR 


EVEN WINS 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


CE JEU À 2 JOUEURS S'APPELLE ‘"EVEN WINS' (LES PAIRS GAGNENT) 
POUR Y JOUER, ON DOIT AVOIR 27 BILLES OU OBJETS SIMILAIRES 
SUR UNE TABLE. 


LES 2 JOUEURS JOUENT TOUR À TOUR, EN PRENANT DE UNE À 4 BILLES 
À CHAQUE FOIS. LA PARTIE SETERMINE QUAND IL N'Y A PLUS DE BILLES, 
ET LE VAINQUEUR EST CELUI QUI A UN NOMBRE PAIR DE BILLES. 


LES SEULES REGLES SONT: (1) VOUS DEVEZ JOUER À VOTRE TOUR, 
(2) VOUS DEVEZ PRENDRE DE UNE À 4 BILLES PAR COUP, 
ET (3) VOUS NE POUVEZ PAS SAUTER VOTRE TOUR. 


TAPEZ ‘l' SI VOUS DESIREZ COMMENCER, OU TAPEZ 
"O' SI VOUS DESIREZ QUE CE SOIT MOI. 
? 0 
TOTAL= 27 


JE PRENDS 2 BILLES. 


RESTE= 25 


QUEL EST VOTRE PROCHAIN COUP (MON TOTAL EST 2)? 2 

RESTE= 23 

VOTRE TOTAL EST 2. 

JE PRENDS 4 BILLES. 

RESTE= 19 

QUEL EST VOTRE PROCHAIN COUP (MON TOTAL EST 6)? 4 
RESTE= 15 

VOTRE TOTAL EST 6. 

JE PRENDS 2 BILLES. 

RESTE= 13 

QUEL EST VOTRE PROCHAIN COUP (MON TOTAL EST 8)? 1 

RESTE= 12 

VOTRE TOTAL EST 7. 

JE PRENDS UNE BILLE. 

RESTE= 11 

QUEL EST VOTRE PROCHAIN COUP (MON TOTAL EST 9)? 3 

RESTE= 8 

VOTRE TOTAL EST 10. 

JE PRENDS UNE BILLE. 

RESTE= 7 

QUEL EST VOTRE PROCHAIN COUP (MON TOTAL EST 10)? 1 
RESTE= 6 

VOTRE TOTAL EST 11. 

JE PRENDS UNE BILLE. 

RESTE= 5 

QUEL EST VOTRE PROCHAIN COUP (MON TOTAL EST 11)? 1 


RESTE= 4 


VOTRE TOTAL EST 12. 
JE PRENDS 3 BILLES. 


RESTE= 1 


QUEL EST VOTRE PROCHAIN COUP (MON TOTAL EST 14)? 1 
IL N'Y À PLUS DE BILLES. 

MON TOTAL EST 14, VOTRE TOTAL EST 13. 
J'AI GAGNE. DESIREZ VOUS JOUER ENCORE? N 


OK. À BIENTOT. 


1 PRINT CHR$(26);TAB(2R);"GAME OF FVEN WINS":PRINT 

2 PRINT TAB(15);"CRFATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

3 PRINT:PRINT 

4 INPUT "DESIREZ VOUS LIRE LES REGLES" ;A$:PRINT 

5 1F LEFTS(AS,1)="N" THEN 20 

6 PRINT "LE JEU SE JOUE COMME SUIT:":PRINT 

7 PRINT “AU DEBUT DE LA PARTIE UN NOMBRE QUELCONQUE DE JETONS EST" 

B PRINT “PLACF SUR LE TAPIS. ON COMMENCE TOUJOURS AVEC UN NOMBRE IMPAIR" 

9 PRINT “DE JETONS. LORSQUE VIENT SON TOUR, LE JOUEUR DOIT PRENDRE UN, DEUX," 
10 PRINT “TROIS, OU QUATRE JETONS. LE GAGNANT EST CELUI QUI TERMINE" 

11 PRINT “AVEC UN NOMBRE PAIR DE JETONS." 

12 PRINT “AU DEBUT DE LA PARTIE L'ORDINATEUR NE CONNAIT QUE LES REGLES DU JEU." 
13 PRINT “PROGRESSIVEMENT IL JOUE DE MIEUX EN MIEUX. APRES 20 PARTIES" 

14 PRINT “D'AFFILFE, IL DEVRAIT DEVENIR DIFFICILE À BATTRE." 

15 PRINT “ESSAYEZ DONCIIII": PRINT 

16 PRINT “SI VOUS VOULEZ QUITTER LA PARTIE , JOUEZ ‘O' A VOTRE PROCHAIN COUP." 
17 PRINT 

20 DIM R(1,5) 

25 L=0: B=0 

30 FOR I=0 TO 5 

40 R(1,1)=4 

50 R(0,1)=4 

60 NEXT I 

70 A=0: B=0 

90 P=INT((13*RND(1)+9)/2)*2+1 


IF P=]1 THEN 530 

PRINT “IL Y A";P;"JFTONS SUR LE TAPIS." 
El=E 

LI=L 

E=(A/2-INT(A/2))*2 





150 L=INT((P/6-INT(P/6))*6+.5) 
160 1F P(F,L)>=P THEN 320 

170 M=R(E,L) 

180 IF M<=0 THEN 370 

190 P=P-M 

200 IF M=1 THEN 510 

210 PRINT "L'ORDINATEUR PREND";M;"JETONS EN LAISSANT" +. À VOTRE TOUR"; 
220 B=B+M 

230 INPUT M 

240 M=INT(M) 

250 IF M<l THEN 450 

260 IF M>4 THEN 460 

270 IF M>P THEN 460 

280 IF M=P THEN 360 

290 P=P-M 

300 A=A+M 

310 GOTO 100 

320 IF P=] THEN 550 


330 PRINT “L'ORDINATEUR PREND";P;"JETONS." 
340 R(E,L)=P 

350 B=B+P 

360 IF B/2=INT(B/2) THEN 420 


370 
373 
380 
390 
400 
410 
420 
421 
425 
430 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


PRINT:PRINT CHR$(22);" PARTIE RERMINEE ... VOUS GAGNEZIII “ 
PRINT CHRS (22):PRINT 
SC(1)=SC(1)+1:GOSUB 1000 
IF R(E,L)=1 THEN 480 
R(E,L)=R(E,L)-1 

GOTO 70 

PRINT:PRINT CHR$(22);" 
PRINT CHRS(22):PRINT 
sc(2)=SC(2)+1:GOSUB 1000 
GOTO 70 

1F M=0 THEN 570 

PRINT M;"N'EST PAS AUTORISE 
GOTO 230 

IF R(El,L1)=1 THEN 70 
R(E1,L1)=R(E1,L1)-1 

GOTO 70 

PRINT “L'ORDINATEUR PREND 1 JETON ET EN LAISSE";P;"... 
GOTO 220 

PRINT “IL RESTE l JETON SUR LE TAPIS." 

GOTO 120 

PRINT “L'ORDINATEUR PREND 1 JETON." 

560 GOTO 340 

570 END 

1000 PRINT “SCORE: ":PRINT 
1010 PRINT "HOMME -";SC(1) 
1020 PRINT “ORDINATEUR -";SC(2) 
1030 PRINT :RETURN 
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PARTIE TERMINEE ... JE GAGNEIII 


+++ QUE JOUEZ VOUS"; 


QUE JOUEZ VOUS"; 


Flip Flop 





Le but du jeu est de changer une rangée 

de dix X 

XX X X X X X X X X 
en une rangée de dix O 

0000000000 

en tapant un nombre correspondant à la 
position d'un X dans la ligne. Pour cer- 
tains nombres, une position changera, 
alors qu'avec d’autres, deux changeront. 
Par exemple, entrer un 3 peut inverser le 
X et le O en position 3, mais cela peut aus- 
si inverser d’autres positions ! Vous devez 
être capable de changer tous les 10 en 
12 essais ou moins. Pouvez-vous mettre 
au point une bonne stratégie pour ga- 
gner ? 

Pour remettre la ligne à « X » (même 
jeu), tapez « 0 » (zéro). Pour recommen- 
cer une partie engagée, tapez 11. 

Michael Kass de New Hyde Park, New 
York, était l’auteur original de ce jeu. 


FLIPFLOP 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
LE PROBLEME CONSISTE À CHANGER CECI: 
XXXXXXX XX X 
EN CECI: 


0000000000 


VOUS TAPEREZ LE NOMBRE CORRESPONDANT À LA POSITION D'UNE LETTRE. 


POUR CERTAINS NOMBRES, UNE SEULE POSITION CHANGERA; POUR 
D'AUTRES, DEUX CHANGERONT. POUR REMETTRE LA LIGNE À 'X', 
(ZERO) ET POUR RECOMMENCER UNE PARTIE ENGAGEE, TAPEZ 

11 (ONZE). 


VOICI LA LIGNE DE ‘X' DU DEBUT. 


12345678 910 
XX XX XX X X X X 
ENTREZ LE NOMBRE? 2 
12345678 9 10 
XOXXXXX XX X 
ENTREZ LE NOMBRE? 8 
12345678 9 10 
XOXXXXXOX X 
ENTREZ LE NOMBRE? 6 
12345678 9 10 
XOXXXOXOX x 
ENTREZ LE NOMBRE? 9 
12345678 9 10 
XOXXXOXOOX 
ENTREZ LF NOMBRE? 3 
12345678 9 10 
X0O0OXXO0000Xx 
ENTREZ LE NOMBRE? 10 
12345678 9 10 
X0OXXXO00O0O 
ENTREZ LE NOMBRE? 4 
12345678 9 10 
XX00OXXO000O0 
ENTREZ LE NOMBRE? 1 
12345678 9 10 
0XX0XX0000 
ENTREZ LE NOMBRE? 3 
12345678 910 
0X00XXXO0O0 
ENTREZ LE NOMBRE? 5 
12345678 910 
00000XXO000O 
ENTREZ LE NOMBRE? 7 
12345678 9 10 
0000XX0O0000 
ENTREZ LE NOMBRE? 6 
12345678 910 
0000X00000 
ENTREZ LE NOMBRE? 5 
123456789110 
0X00000000 
ENTREZ LE NOMBRE? 2 
12345678 910 
0000000000 
APPLIQUEZ VOUS LA PROCHAINE FOIS. CELA VOUS À PRIS 14 ESSAIS. 


DESIREZ VOUS FAIRE UNE AUTRE PARTIE? N 


TAPEZ O 


2P 
4pP 
6 P 
10 

15 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
760 
770 
780 


RINT TAB(32);"FLIPFLOP" 


RINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
RINT 
REM *** CREATED BY MICHAEL CASS 
DIM AS(20) 
PRINT "LE PROBLEME CONSISTE À CHANGER CECI:" 
PRINT 
PRINT "X X X X X X X X X x" 
PRINT 
PRINT “EN CFCI:" 
PRINT 
PRINT “O O O O O O O O O O0" 
PRINT 
PRINT “VOUS TAPEREZ LE NOMBRE CORRESPONDANT À LA POSITION D'UNE LETTRE." 


PRINT "POUR CERTAINS NOMBRES, UNE SEULE POSITION CHANGERA; 
PRINT “D'AUTRES, DEUX CHANGERONT. 
PRINT "(ZERO) ET POUR RECOMMENCER UNE PARTIE ENGAGFE, TAPEZ " 
PRINT “11 (ONZE).* 

PRINT 

REM 

Q=RND(1) 

PRINT “VOICI LA LIGNE DE ‘X' 
PRINT 

c=0 

PRINT “1 2 
PRINT “X X 
PRINT 

REM 

FOR X=] TO 10 

AS(X)="X" 

NEXT X 

GOTO 320 

PRINT "ENTREE INTERDITF--RECOMMENCEZ .* 
PRINT “ENTREZ LE NOMBRF"; 

INPUT N 

IF N<>INT(N) THEN 310 

1F N=11 THEN 180 

IF N>11 THEN 310 

IF N=0 THEN 230 

IF M=N THEN 510 

M=N 

IF AS(N)="O" THEN 480 

AS(N)="O0" 
R=TAN(Q4N/Q-N)-SIN(Q/N)+336*SIN(8*N) 
N=R-INT(R) 

N=INT(1O#N) 

IF AS(N)="O" THEN 480 

AS(N)="O" 

GOTO 610 

AS(N)="X" 

IF M=N THEN 420 

GOTO 610 

IF AS(N)="O" THEN 590 

AS(N)="Oo" 
R=.592*(1/TAN(Q/N+Q))/SIN(N*240)-COS(N) 
N=R-INT(R) 

N=INT(10#N) 

IF AS(tI}="O" THEN 590 

AS(N)="O" 

GOTO 610 

AS(N)="X" 

IF M=N THEN 530 

PRINT “1 2 34 5 6 7 8 9 10" 

FOR Z=1 TO 10: PRINT AS(Z);" ";: 
C=C+] 

PRINT 

FOR Z=1 TO 10 

IF AS(Z)<>"O" THEN 320 

NEXT Z 

IF C>12 THEN 710 
PRINT “EXCELLENT. 
GOTO 720 

PRINT "“APPLIQUEZ VOUS LA PROCHAINE FOIS. CELA VOUS À PRIS";C 
PRINT “DESIREZ VOUS FAIRE UNE AUTRE PARTIE"; 

INPUT XS 

IF LEFTS(XS,1)="N" THEN 780 

PRINT 

GOTO 180 

END 


DU DEBUT." 


NEXT Z 


VOUS AVFZ TROUVE EN";C;"FSSAIS SEULEMENT." 
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POUR" 
POUR REMETTRE LA LIGNE À 'X', 


TAPEZ O0" 


: "ESSAIS." 


Fur Trader 





(Le marchand de peaux) 


Vous êtes le chef d’une expédition fran- 
çaise de commerce de peaux quittant en 
1776 la région d'Ontario pour aller vendre 
des fourrures et vous réapprovisionner 
pour l'année suivante. Vous avez, pour 
faire votre commerce, le choix entre trois 
forts. Le coût de vos achats et la somme 
d'argent que vous obtiendrez de vos four- 
rures dépendront du fort choisi. Vous spé- 
cifiez aussi le type de fourrure dont vous 
faites le commerce. 

Le jeu continue jusqu'à ce que vous dé- 
cidiez de ne plus faire de commerce. 

Dan Bachor de l'université de Calgary, 
Alberta, au Canada est l'auteur de ce pro- 
gramme. 


FUR TRADER 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DESIREZ VOUS FAIRE LE COMMERCE DES FOURRURES? Y 


VOUS AVFZ 600.00 DOLLARS D'ECONOMIES 
ET 190 FOURRURES AU DEBUT DE VOTRE EXPEDITION. 


VOS 190 FOURRURES SE REPARTISSENT DANS LES CATEGORIES DE PEAUX 
SUIVANTES: VISON, CASTOR, HERMINE ET RENARD. 


COMBIEN DE PEAUX DE VISON AVEZ VOUS? 50 

COMBIEN DF PEAUX DE CASTOR AVEZ VOUS? 40 
COMBIEN DE PEAUX DE HERMINE AVEZ VOUS? 60 
COMBIEN DF PEAUX DE RENARD AVEZ VOUS? 40 


VOUS POUVEZ VENDRE VOS PEAUX AUX FORTS No 1, 2 OÙ 3 

LE FORT 1 EST LE FORT HOCHELAGA (MONTREAL) 

ET SF TROUVE SOUS LA PROTECTION DF L'ARMEE FRANCAISE. 

LE FORT 2 EST LE FORT STADACONA (QUEBEC) ET SE TROUVE SOUS LA 
PROTECTION DE L'ARMEE FRANCAISE. CEPENDANT, IL VOUS FAUDRA 
EFFECTUER UN PORTAGE ET FRANCHIR LES RAPIDES DE LACHINE. 

LE FORT 3 EST LE FORT NEW YORK ET SOUS CONTROLE DES HOLLANDAIS. 
VOUS DEVREZ TRAVERSER LE TERRITOIRE DES IROQUOIS. 


À QUEL FORT VOULEZ VOUS ALLER? 1 


VOUS AVEZ CHOISI LA ROUTE LA PUS FACILE. CEPENDANT, LE FORT EST 
ELOIGNE DES PORTS. LE PRIX PAYE POUR VOS PEAUX SERA 

BAS ET LE COUT DES MARCHANDISES PLUS ELEVE 

QU'AUX FORTS STADACONA OU NEW YORK. 


VOULEZ VOUS COMMERCER AVEC UN AUTRE FORT? N 


VOUS ETES LE CHFF D'UNE EXPEDITION FRANCAISE DFE COMMERCE DE PEAUX 

QUITTANT EN 1776 LE LAC ONTARIO POUR VENDRE DES FOURRURES ET . 

FAIRE SES ACHATS POUR L'ANNEE SUIVANTE. POUR COMMERCER VOUS POUVEZ & Se je à 
CHOISIR ENTRE 3 FORTS. LE COUT DE VOS ACHATS ET LE PRIX QUE tt. CS 
QUE VOUS OBTIENDREZ DE VOS FOURRURES, DEPENDRA 

DU FORT CHOISI. 





L'APPROVISIONNEMENT AU FORT HOCHELAGA À COUTE $150.00. 
VOS DEPENSES POUR ARRIVER À HOCHELAGA ONT ETE DE $10.00. 


VOS PEAUX DE CASTOR ONT RAPPORTE 


VENTE DES PEAUX D'HERMINE $45.00, LES VISONS ONT FAIT $38.00. 


VOUS POSSEDEZ MAINTENANT $591.80 Y COMPRIS VOS ECONOMIES ANTERIEURES. 


VOULEZ VOUS VENDRE DES FOURRURES L'ANNEE PROCHAINE? Y 


VOUS AVEZ 591.80 DOLLARS D'ECONOMIES 
ET 190 FOURRURES AU DEBUT DE VOTRE EXPEDITION. 


VOS 190 FOURRURES SE REPARTISSENT DANS LES CATEGORIES DE PEAUX 
SUIVANTES: VISON, CASTOR, HERMINE ET RENARD. 


COMBIEN DE PEAUX DE VISON AVEZ VOUS? 100 


COMBIEN DE PEAUX DE CASTOR AVEZ VOUS? 89 


COMBIEN DE PEAUX DE HERMINE AVEZ VOUS? 1 
VOUS POUVEZ VENDRE VOS PEAUX AUX FORTS No 1, 2 OU 3 

LE FORT 1 EST LE FORT HOCHELAGA (MONTREAL) 

ET SE TROUVE SOUS LA PROTECTION DE L'ARMEE FRANCAISE. 

LE FORT 2 EST LE FORT STADACONA (QUEBEC) ET SF TROUVE SOUS LA 
PROTECTION DE L'ARMEFE FRANCAISE. CEPENDANT, IL VOUS FAUDRA 
EFFECTUER UN PORTAGE ET FRANCHIR LES RAPIDES DE LACHINE. 

LE FORT 3 EST LE FORT NEW YORK ET SOUS CONTROLE DES HOLLANDAIS. 
VOUS DEVREZ TRAVERSER LE TERRITOIRE DES IROQUOIS. 


À QUEL FORT VOULEZ VOUS ALLER? 2 


VOUS AVEZ CHOISI UNE ROUTE ARDUE. ELLE EST PLUS DURE QUE 
CELLE MENANT À HOCHELAGA MAIS PLUS FACILE QUE CELLE 

DE FORT NEW YORK. VOUS OBTIENDREZ UN PRIX MOYEN POUR VOS 
FOURRURES ET LE COUT DES MARCHANDISES SERA NORMAL. 


VOULEZ VOUS COMMERCER AVEC UN AUTRE FORT? N 


VOS PEAUX DE CASTOR ETAIENT D'UN POIDS TROP GRAND PENDANT 
LE PORTAGE. VOUS AVEZ DU LES DEPOSER, MAIS QUAND VOUS ETES 
REVENU, ON LES AVAIT VOLEES. 

LES APPROVISIONNEMENTS A STADACONA VOUS COUTENT $125.00. 
VOS DEPENSES POUR ARRIVER À STADACONA ONT ETE DE $15.00. 
VENTE DES PEAUX DE RENARD $0.00, 
VENTE DES PEAUX D'HERMINE $0.94, LES VISONS ONT FAIT $115.00. 

VOUS POSSEDEZ MAINTENANT $567.74 Y COMPRIS VOS ECONOMIES ANTERIEURES. 


VOULEZ VOUS VENDRE DES FOURRURES L'ANNEE PROCHAINE? Y 


VOUS AVEZ 567.74 DOLLARS D'ECONOMIES 
ET 190 FOURRURES AU DEBUT DE VOTRE EXPEDITION. 


VOS 190 FOURRURES SE REPARTISSENT DANS LES CATEGORIES DE PEAUX 
SUIVANTES: VISON, CASTOR, HERMINE ET RENARD. 


COMBIEN DE PEAUX DE VISON AVEZ VOUS? 190 


VOUS POUVEZ VENDRE VOS PEAUX AUX FORTS No 1, 2 OU 3 

LE FORT 1 EST LE FORT HOCHELAGA (MONTREAL) 

ET SE TROUVE SOUS LA PROTECTION DE L'ARMEE FRANCAISE. 

LE FORT 2 EST LE FORT STADACONA (QUEBEC) ET SE TROUVE SOUS LA 
PROTECTION DE L'ARMEE FRANCAISE. CEPENDANT, IL VOUS FAUDRA 
EFFECTUER UN PORTAGE ET FRANCHIR LES RAPIDES DE LACHINE. 

LE FORT 3 EST LE FORT NEW YORK ET SOUS CONTROLE DES HOLLANDAIS. 


VOUS DEVREZ TRAVERSER LE TERRITOIRE DES IROQUOIS. 

À QUEL FORT VOULEZ VOUS ALLER? 3 

VOUS PRENEZ LA ROUTE LA PLUS DIFFICILE. A 

FORT NEW YORK VOUS OBTIENDREZ DE VOS FOURRURES, LE PRIX 
LE PLUS ELEVE. VOS APPROVISIONNEMENTS SE FERONT 

A DES PRIX PLUS BAS QUE CEUX DES AUTRES FORTS. 

VOULEZ VOUS COMMERCER AVEC UN AUTRE FORT? N 

LES PEAUX DE VISON ET DE CASTOR ONT SOUFFERT DU VOYAGE. 
CES FOURRURES NE RAPPORTENT QUE LA LA MOITIE DU PRIX NORMAL. 
COUT DES APPROVISIONNEMENTS À NEW YORK $80.00. 

DEPENSES POUR VENIR À NEW YORK $25.00. 


VOS PEAUX DE CASTOR ONT RAPPORTE $0.00, VENTE DES PEAUX DE RENARD 
VENTE DES PEAUX D'HERMINE $0.00, LES VISONS ONT FAIT $113.05. 


VOUS POSSEDFZ MAINTENANT $575.79 Y COMPRIS VOS ECONOMIES ANTERIEURES. 
VOULEZ VOUS VENDRE DES FOURRURES L'ANNEE PROCHAINE? N 

VOUS AVEZ 575.79 DOLLARS D'ECONOMIES 

ET 190 FOURRURES AU DEBUT DE VOTRE EXPEDITION. 


VOS 190 FOURRURES SE REPARTISSENT DANS LES CATEGORIES DE PEAUX 
SUIVANTES: VISON, CASTOR, HERMINE ET RENARD. 


COMBIEN DE PEAUX DE VISON AVEZ VOUS? O 
COMBIEN DE PEAUX DE CASTOR AVEZ VOUS? O0 
COMBIEN DE PEAUX DE HERMINE AVEZ VOUS? 190 
VOUS POUVEZ VENDRE VOS PEAUX AUX FORTS No 1, 
LE FORT 1 EST LE FORT HOCHELAGA (MONTREAL) 


ET SE TROUVE SOUS LA PROTECTION DE L'ARMEE FRANCAISE. 
LE FORT 2 EST LE FORT STADACONA (QUEBEC) ET SE TROUVE SOUS LA 


2 OU 3 


$30.40, VENTE DES PEAUX DE RENARD $38.40, 


$o.00, 


PROTECTION DE L'ARMEE FRANCAISE. CEPENDANT, IL VOUS FAUDRA 
EFFECTUER UN PORTAGE ET FRANCHIR LES RAPIDES DE LACHINE. 

LE FORT 3 EST LE FORT NEW YORK ET SOUS CONTROLE DES HOLLANDAIS. 
VOUS DEVREZ TRAVERSER LE TERRITOIRE DES IROQUOIS. 


À QUEL FORT VOULEZ VOUS ALLER? 2 


VOUS AVEZ CHOISI UNE ROUTE ARDUE. ELLE EST PLUS DURE QUE 
CELLE MENANT À HOCHELAGA MAIS PLUS FACILE QUE CELLE 

DE FORT NEW YORK. VOUS OBTIENDREZ UN PRIX MOYEN POU VOS 
FOURRURES ET LE COUT DES MARCHANDISES SERA NORMAL. 


VOULEZ VOUS COMMERCER AVEC UN AUTRE FORT? N 


PERSONNE N'A VOULU ACHETER VOS PEAUX DE RENARD DONT LE TRAITEMENT. 
AVAIT ETE MAL FAIT. 

LES APPROVISIONNEMENTS A STADACONA VOUS COUTENT $125.00. 

VOS DEPENSES POUR ARRIVER À STADACONA ONT ETE DE $15.00. 


VOS PEAUX DE CASTOR ONT RAPPORTE 
VENTE DES PEAUX D'HERMINE $178.60, 


$o.00, 
LES VISONS ONT FAIT 


VENTE DES PEAUX DE RENARD 
$0.00. 


VOUS POSSEDEZ MAINTENANT $614.39 Y COMPRIS VOS ECONOMIES ANTERIEURES. 
VOULEZ VOUS VENDRE DES FOURRURES L'ANNEE PROCHAINE? 


File not found in 21 
Ok 


1 DIM F(4) 
2 PRINT CHR$S(26):TAB(31):"FUR TRADER": PRINT 
4 PRINT TAB(15);"CREATIVF COMPUTING MORRISTOWN, NEW JERSEY" 


6 PRINT: PRINT: PRINT 
15 GOSUB 1091 

16 LET 1=600 

17 PRINT:PRINT:PRINT “DESIREZ VOUS FAIRF LE COMMERCE DES FOURRURES"; 

18 GOSUB 1402 

19 IF LEFTS(B$,1)="Y" THEN 100 

20 1F LEFT$(B$,1)="Y" THEN 100 

21 STOP 

100 PRINT 

101 PRINT “VOUS AVEZ “;:PRINT USING “####.##":1::PRINT “ DOLLARS D'ECONOMIES" 
102 PRINT “ET 190 FOURRURES AU DEBUT DE VOTRE EXPEDITION." 

261 LET El=INT((.15*RND(1)+.95)#*10"2+.5)/1092 

262 LET B1=INT((.25*RND(1)+11)#*10"2+.5)/10"2 

300 PRINT 

301 PRINT “VOS 190 FOURRURES SE REPARTISSENT DANS LES CATEGORIES DE PEAUX" 
302 PRINT "SUIVANTES: VISON, CASTOR, HERMINE ET RENARD." 

310 GOSUB 1430 

315 RESTORE 

330 FOR J=1 TO 4 

332 READ B$ 

333 PRINT 

335 PRINT “COMBIEN DE PEAUX DE “:B$;" AVEZ VOUS"; 

338 INPUT F(J) 

340 LET F(O)=F(1)+F(2)+F(3)+F(4) 

342 IF F(0)=190 THEN 1100 

344 1F F(0)>190 THEN 500 

348 NEXT J 

350 GOTO 1100 

500 PRINT 

501 PRINT:PRINT “VOUS NE POUVEZ AVOIR AUTANT DE FOURRURES." 

502 PRINT "N'ESSAYER PAS DE TRICHER. JE SAIS COMPTER." 

503 PRINT “RECOMMENCEZ." 

504 GOTO 15 

508 PRINT 

511 PRINT "VOULEZ VOUS VENDRE DES FOURRURES L'ANNEE PROCHAINE"; 

513 GOTO 18 

1091 PRINT 

1092 PRINT "VOUS ETES LE CHEF D'UNE EXPEDITION FRANCAISE DE COMMERCE DE PEAUX " 
1093 PRINT "QUITTANT EN 1776 LE LAC ONTARIO POUR VENDRE DES FOURRURES ET “ 
1094 PRINT "FAIRE SES ACHATS POUR L'ANNEE SUIVANTE. POUR COMMERCER VOUS POUVEZ" 
1095 PRINT "CHOISIR ENTRE 3 FORTS. LE COUT DE VOS ACHATS ET LE PRIX QUE" 
1096 PRINT "QUE VOUS OBTIENDREZ DE VOS FOURRURES, DEPENDRA" 

1097 PRINT “DU FORT CHOISI." 

1099 RETURN 

1100 PRINT:PRINT “VOUS POUVEZ VENDRE VOS PEAUX AUX FORTS No 1, 2 OU 3" 
1102 PRINT "LE FORT 1 EST LE FORT HOCHELAGA (MONTREAL) " 

1103 PRINT "ET SE TROUVE SOUS LA PROTECTION DE L'ARMEE FRANCAISE." 

1104 PRINT "LF FORT 2 EST LE FORT STADACONA (QUEBEC) ET SE TROUVE SOUS LA" 
1105 PRINT "PROTECTION DE L'ARMEE FRANCAISE. CEPENDANT, IL VOUS FAUDRA" 
1106 PRINT "EFFECTUFR UN PORTAGE ET FRANCHIR LES RAPIDES DE LACHINE." 

1108 PRINT “LE FORT 3 EST LE FORT NEW YORK ET SOUS CONTROLE DES HOLLANDAIS." 
1109 PRINT "VOUS DEVREZ TRAVERSER LE TERRITOIRE DES IROQUOIS." 

1110 PRINT:PRINT “A QUEL FORT VOULEZ VOUS ALLER"; 

1111 INPUT B:PRINT 

1112 IF B=l THEN 1120 

1113 IF B=2 THEN 1135 

1115 IF B=3 THEN 1147 

1116 GOTO 1110 

1120 PRINT “VOUS AVEZ CHOISI LA ROUTE LA PUS FACILE. CEPENDANT, LE FORT EST" 
1121 PRINT "ELOIGNE DES PORTS. LE PRIX PAYE POUR VOS PEAUX SERA" 

1122 PRINT "BAS ET LE COUT DES MARCHANDISES PLUS ELEVE" 

1123 PRINT “QU'AUX FORTS STADACONA OU NEW YORK." 

1125 GOSUB 1400 

1129 IF LEFTS(B$,1)="Y" THEN 1110 

1130 GOTO 1160 
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$0.00, 


1135 
1136 
1137 
1138 
1141 

1144 
1145 
1147 
1148 
1149 
1150 
1152 
1155 
1156 
1160 
1169 
1174 
1175 

1176 
1177 
1180 
1181 
1190 
1198 
1201 
1205 
1206 
1207 
1209 
1210 
1212 
1213 
1215 
1216 
1218 


1219 


1220 
1221 
1222 
1224 
1225 
1226 
1230 


1231 
1232 
1233 
1235 
1237 


1238 
1239 
1240 
1244 
1246 


PRINT "VOUS AVEZ CHOISI UNE ROUTE ARDUE. ELLE EST PLUS DURE QUE" 
PRINT "CELLE MENANT À HOCHELAGA MAIS PLUS FACILE QUE CELLE" 
PRINT "DE FORT NEW YORK. VOUS OBTIENDREZ UN PRIX MOYEN POURVOS" 
PRINT “FOURRURES ET LE COUT DES MARCHANDISES SERA NORMAL." 

GOSUB 1400 

IF LEFT$(B$,1)="Y" THEN 1110 

GOTO 1198 

PRINT "VOUS PRENEZ LA ROUTE LA PLUS DIFFICILE. A" 

PRINT "FORT NEW YORK VOUS OBTIENDRFZ DE VOS FOURRURES, LE PRIX" 
PRINT "LE PLUS ELEVE. VOS APPROVISIONNEMENTS SE FERONT" 

PRINT “A DES PRIX PLUS BAS QUE CEUX DES AUTRES FORTS." 

GOSUR 1400 

IF LEFTS(B$S,1)="Y" THEN 1110 

GOTO 1250 

LET I=1-160 

PRINT 


LET MI=INT((.2#*RND(1)+.7)#10"2+.5)/10"2 

LET El=INT((.2#RND(1)+.65)#*1012+.5)/1072 

LET RI=INT((.2#*RND(1)+.75)#*10%2+.5)/10 2 

LET DI=INT((.2*RND(1)+.8)#*10"2+.5)/10"2 

PRINT “L'APPROVISIONNEMENT AU FORT HOCHELAGA À COUTE $150.00." 
PRINT "VOS DEPENSES POUR ARRIVER À HOCHELAGA ONT ETE DE $10.00." 
GOTO 1410 

LET 1=1-140 

PRINT 

LET MI=INT((.3#*RND(1)+.85)*10"2+.5)/10"2 

LET El=INT((.15#RND(1)+.8)*10"2+.5)/1012 

LET B1=INT((.2*RND(1)+.9)*102+.5)/10"2 

LET P=INT(1O*RND(1))+1 

IF P<=2 THEN 1216 

IF P<=6 THEN 1224 


IF P<=8 THEN 1226 

IF P<=10 THEN 1235 

LET F(2)=0 

PRINT "VOS PEAUX DE CASTOR ETAIENT D'UN POIDS TROP GRAND 
PENDANT" 

PRINT "LE PORTAGE. VOUS AVEZ DU LES DEPOSER, MAIS QUAND 
VOUS ETES" 

PRINT "REVENU, ON LES AVAIT VOLEES." 

GOSUB 1244 

GOTO 1414 

PRINT “VOUS ETES ARRIVE SANS ENCOMBRES À FORT STADACONA ." 
GOTO 1239 


GOSUB 1430 

PRINT “VOTRE CANOE S'EST RETOURNE DANS LES RAPIDES DE LACHINE. 
PRINT "AVEZ PERDU TOUTES VOS FOURRURES ." 

GOSUB 1244 

GOTO 1418 

LET F(4)=0 

PRINT "PERSONNE N'A VOULU ACHETER VOS PEAUX DE 
TRAITEMENT." 

PRINT “AVAIT ETE MAL FAIT." 

GOSUB 1244 

GOTO 1410 

PRINT "LES APPROVISIONNEMENTS À STADACONA VOUS COUTENT $125.00." 
PRINT “VOS DEPENSES POUR ARRIVER À STADACONA ONT ETE DE $15.00." 


RENARD DONT LE 
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1248 
1250 
1254 
1260 
1263 
1270 
1271 
1272 
1273 
1274 
1281 
1282 


1283 


1284 
1291 
1292 
1293 
1295 
1300 
1301 
1303 
1304 
1306 
1307 
1308 
1309 
1311 

1312 
1320 
1321 

1322 
1400 
1402 
1404 
1410 
1412 


1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 


1425 
1430 
1432 
1434 
1436 
2000 
2046 








RETURN 
LET 1=1-105 

PRINT 

LET MI=INT((.15#*RND(1)+1.05)#*1012+.5)/1012 

LET DI=INT((.25#*RND(1)+1.1)#1012+.5)/10"2 

LET P=INT(1O#*RND(1))+1 

IF P<=2 THEN 1281 

IF P<=6 THEN 1291 

IF P<=8 THEN 1295 

IF P<=10 THEN 1306 

PRINT “VOUS AVEZ ETE ATTAQUE PAR UNE TRIBU IROQUOIS." 

PRINT “TOUS LES MEMBRES DE VOTRF GROUPE DE MARCHANDS SONT 
PASSES DE" 

PRINT “VIE À TREPAS. JE CRAINS QUE CELA NE METTE FIN À LA 
PARTIE." 

STOP 

PRINT “VOUS ETES UN VEINARD. VOUS ETES ARRIVE SAIN ET SAUF" 
PRINT “A FORT NEW YORK." 

GOTO 1311 

GOSUB 1430 

PRINT “VOUS AVEZ ECHAPPE DE JUSTESSE À UN RAID IROQUOIS." 

PRINT “MAIS VOUS AVEZ DU ABANDONNER TOUTES VOS FOURRURES." 
GOSUB 1320 

GOTO 1418 

LET Bl=B1/2 

LET M1=MI/2 

PRINT "LES PFAUX DE VISON ET DE CASTOR ONT SOUFFERT DU VOYAGE." 
PRINT “CES FOURRURFS NE RAPPORTENT QUE LA MOITIE DU PRIX NORMAL." 
GOSUB 1320 

GOTO 1410 

PRINT "COUT DES APPROVISIONNEMENTS À NEW YORK $80.00." 

PRINT “DEPENSES POUR VENIR À NEW YORK $25.00." 

RETURN 

PRINT:PRINT "VOULEZ VOUS COMMERCER AVEC UN AUTRE FORT"; 

INPUT BS$:PRINT 

RETURN 

PRINT 

PRINT “VOS PEAUX DE CASTOR ONT RAPPORTE “;:PRINT USING "SS##.##"; 
Bl*F(2); 

PRINT ", ‘; 

PRINT "VENTE DES PEAUX DE RENARD ";:PRINT USING "SS##.##";D1*F(4); 
PRINT “," 

PRINT "VENTE DES PFAUX D'HERMINE "::PRINT USING "SS##.##";E1l*F(3); 
PRINT "“, “; 

PRINT "LES VISONS ONT FAIT ";:PRINT USING "S$##.##";Ml*F(1); 
PRINT "“." 

LET I=Ml*F(1)+B1*F(2)+E1*F(3)+D1*F(4)+1 

PRINT 

PRINT "VOUS POSSEDEZ MAINTENANT ";:PRINT USING "S$SS##.##";1l;: 
PRINT " Y COMPRIS VOS ECONOMIES ANTFRIFEURES." 

GOTO 508 

FOR J=] TO 4 

LET F(J)=0 

NEXT J 

RETURN 

DATA “VISON","CASTOR" , “HERMINE", "RENARD" 

END 


Golf 





Voici un jeu de golf à un joueur. En 
d'autres termes, vous êtes le joueur et 
l'ordinateur est le terrain de golf. Le pro- 
gramme vous demande quel est votre 
handicap (maximum de 30) et votre point 
faible. Vous avez un caddy avec 29 clubs 
plus un porteur. Sur le terrain, vous serez 
aux prises avec de l'herbe longue, des 
arbres, le « green », des bunkers et des 
étangs. En plus, vous pouvez faire un 
coup tiré, faire dévier la balle à droite, sor- 
tir des limites ou envoyer la balle trop loin. 
En faisant le putting, vous déterminez le 
coefficient de force (ou le pourcentage de 
swing). Tant que vous n'aurez pas l'élan 
du jeu (sans vouloir faire de jeu de mots), 
vous voudrez probablement utiliser un as- 
sez grand handicap. 

Steve North de Creative Computing a 
modifié la version originale de ce jeu dont 
l'auteur est inconnu. 


GOLF 


CREATIVE COMPUTING MORRISTOWN, NFW JERSEY 


BIENVENUE AU COUNTRY CLUB DE CREATIVE COMPUTING, 


AVEC UN PARCOURS DE CHAMPIONNAT DE 18 TROUS, SITUE À PROXIMITE 


DE SCENIC DANS LA BANLIEUE DE MORRISTOWN. LE 


COMMENTATEUR DONNERA DES EXPLICATIONS PENDANT QUE VOUS JOUEZ. 


PRENEZ DU BON TEMPS; ON SE VERRA AU 19EME TROU... 


QUEL EST VOTRE HANDICAP? 10 


LES DIFFICULTES DU GOLF SONT: 

O=LA DIRECTION, 1=LA FRAPPE, 2=LA PUISSANCE, 

4=LES COUPS DANS LES TROUS, 5=LE PUTTING 

QUEL EST VOTRE POINT FAIBLE (UNE SEULE REPONSE)? 5 


VOUS ETES AU DEPART DU TROU NUMERO 1 -- PAR 4, 361 YARDS. 
SUR LA DROITE, FAIRWAY VOISIN. 
SUR LA GAUCHE, ROUGH. 


SELECTION DE CLUBS 


PORTEE(YARDS) DESIREE CLUBS SUGGERES 





200 À 280 YARDS 1 TO 4 
100 À 200 YARDS 19 TO 13 
O À 100 YARDS 29 TO 23 


QUEL CLUB VOULEZ VOUS? 1 


LE COUP EST ALLE À 233 YARDS. IL EST A 128 YARDS DU TROU. 
LA BALLE EST DECENTREE DE 14 YARDS... DANS LE(S) FAIRWAY. 
QUEL CLUB VOULEZ VOUS? 16 


TROP FORT. VOUS AVEZ DEPASSE LE TROU. 

SUR LE GREEN À, 60 PIEDS DU DRAPEAU. 

CHOISISSEZ VOTRE FORCE DE PUTTING (1 TO 13):? 10 
TROP COURT. 

SUR LE GREEN A, 20 PIEDS DU DRAPEAU. 

CHOISISSEZ VOTRE FORCE DE PUTTING (1 TO 13):? 5 
PASSE A COTE. 

SUR LE GREEN À, 6 PIEDS DU DRAPEAU. 

CHOISISSEZ VOTRE FORCE DE PUTTING (1 TO 13):? 3 
PASSE A COTE. 

SUR LE GREFN À, 7 PIEDS DU DRAPEAU. 

CHOISISSEZ VOTRE FORCE DE PUTTING (1 TO 13):? 2 
VOUS AVEZ MIS LA BALLE DANS LE TROU. 


VOTRE SCORE AU TROU 1 EST DE 6. 
LE PAR TOTAL POUR 1 TROUS EST DE 4. VOTRE TOTAL EST DE 6 


( 2 AU DSSUS DU PAR ). 


VOUS ETES AU DEPART DU TROU NUMERO 2 -- PAR 4, 389 YARDS. 
SUR LA DROITE, ARBRES. 

SUR LA GAUCHE, ARBRES. 

QUEL CLUB VOULEZ VOUS? 1 


VOUS AVEZ MAL FRAPPE(COUPE)- MECHAMMENT. 

LE COUP EST ALLE À 236 YARDS. IL EST A 160 YARDS DU TROU. 
LA BALLE EST DECENTREE DE 48 YARDS... DANS LE(S) ARBRES. 
QUEL CLUB VOULEZ VOUS? 23 


MAINTENANT ESTIMEZ LA DISTANCE EN POURCENTAGE (1 TO 100) 
DE LA PORTEE MAXIMUM? 50 


LE COUP EST ALLE À 94 YARDS. IL EST À 66 YARDS DU TROU. 
LA BALLE EST DECENTREE DE 11 YARDS... DANS LE(S) FAIRWAY. 
QUEL CLUB VOULEZ VOUS? 27 


MAINTENANT ESTIMEZ LA DISTANCE EN POURCENTAGE (1 TO 100) 
DE LA PORTEE MAXIMUM? 100 


TROP FORT. VOUS AVEZ DEPASSE LE TROU. 

LE COUP EST ALLE À 127 YARDS. IL EST À 64 YARDS DU TROU. 
LA BALLE EST DECENTREE DE 20 YARDS... DANS LE(S) FAIRWAY. 
QUEL CLUR VOULEZ VOUS? 29 


MAINTENANT ESTIMEZ LA DISTANCE EN POURCENTAGE (1 TO 100) 
DE LA PORTEE MAXIMUM? 50 


SUR LE GREEN À, 39 PIEDS DU DRAPEAU. 

CHOISISSEZ VOTRE FORCE DE PUTTING (1 TO 13):?7 8 
TROP COURT. 

SUR LE GREEN À, 7 PIEDS DU DRAPEAU. 

CHOISISSEZ VOTRE FORCE DE PUTTING (1 TO 13):? 3 
VOUS AVEZ MIS LA BALLE DANS LE TROU. 


VOTRE SCORE AU TROU 2 EST DE 6. 


LE PAR TOTAL POUR 2 TROUS EST DE 8. VOTRE TOTAL EST DE 12 ( 4 AU DSSUS DU PAR 


VOUS ETES AU DEPART DU TROU NUMERO 3 -- PAR 3, 206 YARDS. 
SUR LA DROITE, FAIRWAY VOISIN. 

SUR LA GAUCHE, ROUGH. 

QUEL CLUB VOULEZ VOUS? 3 


LA BALLE À HEURTE UN ARBRE - ET REBONDI 
DANS LE ‘ROUGH' À 131 YARDS DU TROU. 
QUEL CLUB VOULEZ VOUS? 19 


VOUS AVEZ MANQUE LE COUP. 
LE COUP EST ALLE À 35 YARDS. IL EST À 96 YARDS DU TROU. 
LA BALLE EST DECENTREE DE 4 YARDS... DANS LE(S) FAIRWAY. 
QUEL CLUB VOULEZ VOUS? 24 


MAINTENANT ESTIMEZ LA DISTANCE EN POURCENTAGE (1 TO 100) 
DE LA PORTEE MAXIMUM? 60 


SUR LE GREEN À, 33 PIEDS DU DRAPEAU. 

CHOISISSEZ VOTRE FORCE DE PUTTING (1 TO 13):?7 8 
PASSE A COTE. 

SUR LE GREEN A, 10 PIEDS DU DRAPEAU. 

CHOISISSEZ VOTRE FORCE DE PUTTING (1 TO 13):? 3 
VOUS AVEZ MIS LA BALLE DANS LE TROU. 


VOTRE SCORE AU TROU 3 EST DE 5. 


LE PAR TOTAL POUR 3 TROUS EST DE 11. VOTRE TOTAL EST DE 17 ( 6 


AU DSSUS DU PAR ). 


VOUS ETES AU DEPART DU TROU NUMERO 4 -- PAR 5, 500 YARDS. 
SUR LA DROITE, HORS LIMITES. 

SUR LA GAUCHE, ROUGH. 

QUEL CLUB VOULEZ VOUS? 1] 


VOUS AVEZ MAL FRAPPE(COUPE)- MECHAMMENT. 
VOTRE COUP EST SORTI DES LIMITES. 


ESTIME À l COUP DE PENALITE. REPARTEZ DE LA POSITION PRECEDENTE. 


QUEL CLUB VOULEZ VOUS? 1 


LE COUP EST ALLE À 248 YARDS. IL EST À 253 YARDS DU TROU. 
LA BALLE EST DECENTREE DE 26 YARDS... DANS LE(S) FAIRWAY. 
QUEL CLUB VOULEZ VOUS? 1 


LE COUP EST ALLE À 241 YARDS. IL EST À 25 YARDS DU TROU. 
LA BALLE EST DECENTREE DE 22 YARDS... DANS LE(S) FOSSE. 
QUEL CLUB VOULEZ VOUS? 27 


MAINTENANT ESTIMEZ LA DISTANCE EN POURCENTAGE (1 TO 100) 
DE LA PORTEE MAXIMUM? 60 


SUR LE GREEN A, 7 PIEDS DU DRAPEAU. 

CHOISISSEZ VOTRE FORCE DE PUTTING (1 TO 13):?7 3 
PASSE A COTE. 

SUR LE GREEN À, 3 PIEDS DU DRAPEAU. 

CHOISISSEZ VOTRE FORCE DE PUTTING (1 TO 13):? 2 
VOUS AVEZ MIS LA BALLE DANS LE TROU. 


VOTRE SCORE AU TROU 4 EST DE 7. 


LE PAR TOTAL POUR 4 TROUS EST DE 16. VOTRE TOTAL EST DE 24 ( 8 


AU DSSUS DU PAR ). 


VOUS ETES AU DEPART DU TROU NUMERO 5 -- PAR 4, 408 YARDS. 
SUR LA DROITE, ROUGH. 

SUR LA GAUCHE, FAIRWAY VOISIN. 

QUEL CLUB VOULEZ VOUS? ©C 

Break in 630 

Ok 
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). 


1 PRINT CHRS(26);TAB(34);"GOLF" : PRINT 150 INPUT T:PRINT 

2 PRINT TAB(15):"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 160 1F T>5 THEN 120 

3 PRINT:PRINT:PRINT 170 S1=0 

4 PRINT "BIENVENUE AU COUNTRY CLUB DE CREATIVE COMPUTING, * 210 REM 

5 PRINT "AVEC UN PARCOURS DE CHAMPIONNAT DE 18 TROUS, SITUE À PROXIMITE* 230 L(0)=0 

6 PRINT “DE SCENIC DANS LA BANLIEUE DE MORRISTOWN. LE" 240 J=0 

7 PRINT "COMMENTATEUR DONNERA DES EXPLICATIONS PENDANT QUE VOUS JOUEZ.":PRINT 245 Q=0 

8 PRINT “PRENEZ DU BON TEMPS; ON SE VERRA AU l9EME TROU..." 250 S2=S2+1 

9 PRINT:PRINT: DIM L(10) 260 K=0 

10 G1=18 270 IF F=l THEN 310 

20 G2=0 290 PRINT "VOTRE SCORF AU TROU";F-1;"EST DE":S1;CHR$(8);"." 
30 G3=0 291 GOTO 1750 

40 A=0 292 IF S1>P+2 THEN 297 

50 N=.8 293 IF Sl=P THEN 299 

60 S2=0 294 IF Sl=P-1 THEN 301 

70 F=] 295 IF Sl=P-2 THEN 303 

80 PRINT "QUEL EST VOTRE HANDICAP"; 296 GOTO 310 

90 INPUT H:PRINT 297 PRINT “GARDEZ LA TETE BASSE." 
100 IF H>30 THEN 470 298 GOTO 310 

110 1F H<O THEN 470 299 PRINT"C'EST UN PAR. CA MARCHE BIEN." 
120 PRINT “LES DIFFICULTES DU GOLF SONT:" 300 GOTO 310 

130 PRINT "O=LA DIRECTION, l=LA FRAPPE, 2=LA PUISSANCE, " 301 PRINT "UN BIRDIE." 

133 PRINT “4=LES COUPS DANS LES TROUS, 5=LE PUTTING* 302 GOTO 310 

140 PRINT "QUEL EST VOTRE POINT FAIBLE (UNE SEULE REPONSE) “; 303 IF P=3 THEN 306 





304 
305 
306 
310 
315 
316 
320 
330 
340 
350 
360 
362 
380 
390 
400 
410 
420 
430 
440 
450 
460 
465 
470 
472 
480 
490 


510 
520 


560 
570 


623 
624 
625 
626 
629 
630 
632 
635 
637 
640 
650 
660 
665 
670 
680 
690 
693 
700 
710 
720 
730 
740 
741 
742 
746 
752 
754 
756 
760 
770 
780 
800 
830 
840 
850 
860 
862 
864 
866 
867 
868 
870 
880 
890 
900 
910 
920 
930 
940 
950 
952 
954 
956 
957 
958 
960 
961 
970 
972 
980 
985 
990 


PRINT "A MAGNIFIQUE BIG EAGLE." 
GOTO 310 

PRINT "UN TROU EN UN COUP." 

IF F=19 THEN 1710 

51=0 

PRINT 

IF S1=0 THEN 1590 

IF L(O)<1 THEN 1150 

X=0 

IF L(0)>5 THEN 1190 


IL EST A";D2;"YARDS DU T 


PRINT “LE COUP EST ALLF A";D1;"YARDS. 

PRINT "LA BALLE EST DECENTREE DE";INT(O);"YARDS... DANS LE(S) * 
GOSUB 400 

GOTO 620 


IF L(X)=1 THEN 480 

IF L(X)=2 THEN 500 

IF L(X)=3 THEN 520 

IF L(X)=4 THEN 540 

IF L(X)=5 THEN 560 

IF L(X)=6 THEN 580 
PRINT “HORS LIMITES." 
GOTO 1690 

PRINT "LES HANDICAPS PGA VONT DF O À 30." 
GoTo 80 

PRINT "FAIRWAY." 

GOTO 1690 

PRINT "ROUGH." 

GOTO 1690 

PRINT "ARBRES." 

GOTO 1690 

PRINT “FAIRWAY VOISIN." 
GOTO 1690 

PRINT “FOSSE." 

GOTO 1690 

PRINT "LAC." 

GOTO 1690 

IF A=l THEN 629 


PRINT:PRINT "SELECTION DE CLUBS":PRINT "=============2=" 


? PRINT “PORTEE(YARDS) DESIREE 


PRINT “= 
PRINT "200 À 280 YARDS 


PRINT “100 À 200 YARDS 

PRINT “ O A 100 YARDS 

A=l 

PRINT “QUEL CLUB VOULEZ VOUS"; 
INPUT C 

PRINT 


IF C<l THEN 690 
IF C>29 THEN 690 

IF C>4 THEN 710 

IF L(O)<=5 THEN 740 

1F C=14 THEN 740 

IF C=23 THEN 740 

GOTO 690 

S1=S1-1 

PRINT "CE CLUB N'EXISTE PAS DANS LE SAC." 
PRINT 

GOTO 620 

IF C<12 THEN 690 

c=c-6 

GOTO 650 

S1=S1+1 

W=1 

IF C>13 THEN 960 

IF INT(F/3)=F/3 THEN 952 

IF C<4 THEN 756 

GOTO 760 

IF L(0)=2 THEN 862 

IF S1>7 THEN 867 
DI=INT(((30-H)*2.5+187-((30-H)*.25+15)#*C/2)+2 
D1=INT(DI*W) 

IF T=2 THEN 1170 
O=(RND(1)/.8)*(2*H+16)*ABS(TAN(D1*.0035)) 
D2=INT(SQR(O 2+ABS(D-D1)12)) 

IF D-D1<0 THEN 870 

GOTO 890 

PRINT “VOUS AVEZ MANQUE LE COUP." 

D1=35 

GOTO 830 

IF D<200 THEN 1300 

GOTO 770 

IF D2<20 THEN 890 

PRINT “TROP FORT. VOUS AVFZ DEPASSE LE TROU." 
B=D 

D=D2 

IF D2>27 THEN 1020 

IF D2»20 THEN 1100 

IF D2>.5 THEN 1120 

L(0)=9 

GOTO 1470 


CLUBS SUGGERES" : 


19 TO 13" 
29 TO 23":PRINT 


S*RND(1)) 


IF S2+Q+(10*(F-1)/18)<(F-1)*(72+((H+1)/.85))/18 THEN 956 


GOTO 752 

Q=0+1 

IF S1/2<>INT(S1/2) THEN 1011 
GOTO 862 


PRINT “MAINTENANT ESTIMEZ LA DISTANCE EN POURCENTAGE (1 TO 100)" 


PRINT "DF LA PORTEE MAXIMUM"; 
INPUT W: W=W/100 

PRINT 

IF W>1 THEN 680 

IF L(Q0)=5 THEN 1280 

IF C=14 THEN 760 


1000 
1010 
1011 

1012 
1013 
1014 
1018 
1020 
1022 
1030 
1035 
1036 
1040 
1050 
1055 
1060 
1070 
1071 
1075 
1080 
1090 
1092 
1094 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1242 
1250 
1260 
1270 
1280 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1381 

1400 
1410 
1420 
1425 
1428 
1430 
1440 
1450 
1460 
1470 
1472 
1480 
1490 
1500 
1505 
1510 
1530 
1550 
1560 
1570 
1580 
1590 
1595 
1600 


1605 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1702 
1704 
1706 
1708 
1710 
1750 
1760 


1761 
1762 
1763 
1768 
1769 
1770 
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c=Cc-10 
GOTO 760 

IF D<95 THEN 862 

PRINT “LA RALLF À HEURTE UN ARBRE - ET REBONDI" 
PRINT “ DANS LE ‘ROUGH' A";D-75;"YARDS DU TROU." 
D=D-75 

GOTO 620 

IF O<30 THEN 1150 

IF J>0 THEN 1150 

IF T>0 THEN 1070 

S9=(S2+1)/15 

IF INT(S9)=S9 THEN 1075 

PRINT “VOUS AVEZ DEVIE- “; 

L(0)=L(2) 

IF O>45 THEN 1092 

GOTO 320 

S9=(S2+1)/15 

IF INT(S9)=S9 THEN 1040 

PRINT "VOUS AVEZ MAL FRAPPE(COUPE)- "; 
L(O)=L(1) 

GOTO 1055 

PRINT “MECHAMMENT." 

GOTO 320 

L(0)=5 

GOTO 320 

L(0)=8 

D2=INT(D2*3) 

GOTO 1380 

L(O)=1 

GOTO 320 

DI=INT(.R5S#D1) 

GOTO 830 

IF L(0)>6 THEN 1260 

PRINT “VOUS FTES ALLE À LA FLOTTE." 
S1=S1+1 

PRINT “ESTIME À l COUP DF PENALITE. 
J=J4+1 

L(Q)=1 

D=B 

GOTO 620 

PRINT “VOTRE COUP EST SORTI DES LIMITES." 

GOTO 1210 

IF T=3 THEN 1320 
D2=1+(3*INT((80/(40-H))*RND(1))) 

GOTO 1380 

IF RND(1)>N THEN 1360 

N=N* .2 

PRINT “COUP FOIREUX, BALLE TOUJOURS DANS LE FOSSE." 
GOTO 620 

N=.8 

GOTO 1300 

PRINT “SUR LF GREEN A,":D2;"PIFDS DU NRAPEAU." 
PRINT “CHOISISSEZ VOTRE FORCE DE PUTTING (1 TO 13):"; 
INPUT I 

S1=S14+1 

IF Sl41-P>(H#.072)42 THEN 1470 

IF K>2 THEN 1470 

K=K41 

IF T=4 THEN 1530 

D2=D2-1*(4+2*RND(1))+1.5 

IF D2<-2 THEN 1560 

IF D2>2 THEN 1500 

PRINT “VOUS AVFZ MIS LA RALLF DANS LF TROU." 
PRINT 

F=F4] 

GOTO 230 

PRINT “TROP COURT." 

D2=INT(D2) 

GOTO 1380 

D2=D2-1*(4+1#*RND(1))+1 

GOTO 1450 

PRINT “PASSE À COTE." 

D2=-D2 

GOTO 1505 

READ D,P,L(1),L(2) 


PRINT 


REPARTEZ DE LA POSITION 


PRECEDFNTE ,. " 


PRINT "VOUS ETES AU DEPART DU TROU NUMERO";F;"-- PAR";P;CHR$S(8); 


",":D;"YARDS." 
G3=G34+P 

PRINT “SUR LA DROITE, “; 

X=1 

GOSUR 400 

PRINT “SUR LA GAUCHE, "; 

X=2 

GOSUR 400 

GOTO 620 

RETURN 

DATA 361,4,4,2,389,4,3,3,206,3,4,2,500,5 
DATA 408,4,2,4,359,4,6,4,424,4,4,2,388,4 
DATA 196,3,7,2,400,4,7,2,560,5,7,2,132,3 
DATA 357,4,4,4,294,4,2,4,475,5,2,3,375,4 
DATA 180,3,6,2,550,5,6,6 

PRINT 

G2=G2+S] 


, 
, 


PRINT “LE PAR TOTAL POUR";F-1;"TROUS EST DE";:G3;CHR$(8); 


“. VOTRE TOTAL EST DE":G2; 

IF G3=G2 THEN PRINT “( EGAL AU PAR )." 

IF G3>G2 THEN PRINT "( (G3-G2);"SOUS LE PAR )." 

IF G3<G2 THEN PRINT “(";:(G2-G3);"AU DSSUS DU PAR )." 
IF Gl=F-] THEN 1770 

GOTO 292 

END 





Gomoko 





GOMOKO ou GOMOKU est un jeu VOTRE COUP (1,J)? 4,6 VOTRE COUP (1,J)? 4,7 
oriental traditionnel qui se joue à deux sur 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
une grille de lignes entrecroisées (19 RSS NS RS RU ST OR SR 
lignes de gauche à droite, 19 de haut en NE NS Det ed Abu 0 
bas, constituant 361 intersections en tout). 0 0 0 0 2 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 

n i à À 0 0 0 0 0 0 0 0 O0 0 0 0 0 O0 
Les joueurs jouent à tour de rôle. A son TR RS UNS D NU RU 
tour, le joueur peut placer une marque sur 9-0 9,010 9 6,9 06 6 0 6 0 0.6 9 00 0 
l'une des intersections (l'un des joueurs HALO Bee 0e OMAN DE QT 00 OU LQ 
utilise des marques blanches, l'autre des VOTRE COUP (1,9)? -1,-1 
marques noires). Le but du jeu est d'ali- 
gner cinq marques adjacentes, horizonta- MERCI POUREUR RARTER LE 
lement, verticalement ou en diagonale. 

Malheureusement, ce programme ne VOUS REJOUEZ ? N 


fait pas de l'ordinateur un très bon joueur. 
Il ne sait pas si vous êtes sur le point de 
gagner ou bien même, qui a gagné. Pour- 
tant, certains de ses coups vous étonne- 
ront. 

L'auteur original de ce programme est 
Peter Sessions de la People's Computer 


Company. 
2 PRINT TAB(33);"GOMOKO": PRINT 
4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
6 PRINT:PRINT: PRINT 
8 DIM A(19,19) 
10 PRINT "SOYEZ LF BIENVENU AU JEU ORIENTAL DE GOMOKO." 
20 PRINT: PRINT "LE JEU SE JOUE SUR UNE GRILLE NxN DONT VOUS FIXEZ LA TAILLE" 
30 PRINT "DIU COTE. DURANT LA PARTIE, VOUS POUVEZ PLACER UNE MARQUE" 
GOMOKO 40 PRINT “SUR L'UNF DES INTERSECTIONS. LE BUT DU JEU EST D'ALIGNER" 
50 PRINT "5 MARQUES ADJACENTES -- HORIZONTALEMENT, VERTICALEMENT, OU" 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 60 PRINT "EN DIAGONALE. SUR LE DIAGRAMME DE JEU, VOS COUPS SONT MARQUES" 
70 PRINT "PAR DES ‘l' ET CEUX DE L'ORDINATEUR PAR DES ‘'2'." 
RO PRINT: PRINT "L'ORDINATEUR NE GARDE PAS TRACE DU GAGNANT." 
90 PRINT “POUR FINIR LA PARTIE, ENTREZ -1,-] COMME COUP À JOUER.": PRINT 
SOYEZ LE BIENVENU AU JEU ORIFNTAL NE GOMOKO. 110 PRINT “DIMENSION DE VOTRE TABLE À JOUER (MIN 7/ MAX 19)";: INPUT N 
115 IF N>6 THEN 117 
LE JEU SE JOUE SUR UNE GRILLE NxN DONT VOUS FIXEZ LA TAILLE 116 GOTO 120 
DU COTE. DURANT LA PARTIE, VOUS POUVEZ PLACER UNE MARQUE 117 IF N<20 THEN 210 
SUR L'UNE DES INTERSECTIONS. LE BUT DU JEU EST D'ALIGNER 120 PRINT "JE REPETE, MINIMUM 7, MAXIMUM 19.": GOTO 110 
5 MARQUES ADJACENTES -- HORIZONTALEMENT, VERTICALEMENT, OU 210 FOR I=]l TO N:FOR J=l TO N: A(1,J)=0: NEXT J: NEXT I 
EN DIAGONALE. SUR LE DIAGRAMME DE JEU, VOS COUPS SONT MARQUES 300 PRINT: PRINT “NOUS JOUONS TOUR À TOUR. COMMENCEZ...": PRINT 
PAR DES ‘l' ET CEUX DE L'ORDINATEUR PAR DFS ‘2'. 310 PRINT "VOTRE COUP (1,J)";: INPUT 1,J 
315 PRINT 
L'ORDINATEUR NF GARDE PAS TRACE DU GAGNANT. 320 IF I=-] THEN 980 
POUR FINIR LA PARTIE, ENTREZ -1,-1 COMMF COUP À JOUER. 330 X=I1: Y=J: GOSUB 910: IF L=l THEN 410 
340 PRINT "COUP INTERDIT. RECOMMENCEZ...": GOTO 310 
DIMENSION DE VOTRE TABLE À JOUER (MIN 7/ MAX 19)? 10 410 IF A(I,J)=0 THEN 440 
420 PRINT "CROISEMENT DEJA OCCUPE .  RECOMMENCEZ...": GOTO 310 
NOUS JOUONS TOUR À TOUR. COMMENCEZ... 440 A(I,J)=1 
500 REM *** L'ORDINATEUR JOUE DE FACON REFLECHIF *** 
VOTRE COUP (1,J)? 4,3 VOTRE COUP (1,J)? 5,4 510 FOR E=-] TO l: FOR F=-l TO l: IF E+#F-E*F=0 THEN 590 
540 X=1+F: Y=J+F: GOSUB 910 
0 O0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 570 IF L=0 THEN 590 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 © 0 580 1F A(X,Y)=1 THEN 710 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 © 0 6 0 0 0 590 NEXT F: NEXT E 
0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 600 REM *** L'ORDINATEUR JOUE AU HASARD #*** 
0 0 2 0 0 0 0 0 0 0 0 0 2 1 0 0 @ 0 0 0 610 X=INT(N*RND(1)+1): Y=INT(N*RND(1)+1): GOSUB 910: IF L=0 THEN 610 
0 O0 O0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 650 IF A(X,Y)<>0O THEN 610 
0 O0 O0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 660 A(X,Y)=2: GOSUB 810: GOTO 310 
0 0 O0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 710 X=1-F: Y=J-F: GOSUR 910 
0 O0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 a 750 IF L=0 THEN 610 
0 O0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 760 GOTO 650 
B0O RFM *** AFFICHAGE DU TABLEAU *#** 
VOTRE COUP (1,J)? 4,4 VOTRE COUP (1,9)? 4,5 810 FOR I=1 TO N: FOR J=1 TO N: PRINT A(1,J); 
840 NEXT J: PRINT: NEXT I: PRINT: RETURN 
0 O0 O0 0 0 0 0 0 0 0 0 0 0 @Q © O0 0 0 © 0 910 L=1: 1F X<l THEN 970 
0 O0 0 0 0 0 0 0 0 © 0 O0 0 0 0 0 O0 0 0 0 920 IF X>N THEN 970 
0 O0 O0 2 0 0 O0 O0 O0 0 0 0 0 2 0 0 © 0 © 0 930 IF Y<l THEN 970 
0 O 1 1 O6 @ 6 O0 0 0O 0 © 1 1 1 O0 0 © 0 0 940 IF Y>N THEN 970 
0 0 2 1 O0 0 0 O0 0 0 0 O0 2 1 2 0 O0 0 0 0 950 RETURN 
0 O0 O0 0 2 0 O0 O0 O0 0 0 0 0 0 2 0 0 0 © 0 970 L=0: RETURN 
0 O0 0 0 0 0 N 0 0 0 0 0 0 0 0 6 0 0 0 0 980 PRINT: PRINT “MERCI POUR LA PARTIFII"* 
O0 O0 O0 O0 0 O0 O0 O0 O0 © O6 O0 0 0 © 6 © 0 0 0 985 INPUT "VOUS REJOUEZ ";:Q$ 
0 O0 0 0 0 0 0 0 0 0 0 0 0 0 6 0 06 0 0 0 990 IF LEFTS(Q$,1)="Y" THEN 110 
0 0 0 0 @ 6 0 0 06 06 @ 6 O0 0 6 06 @ 0 0 0 999 END 
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Guess (Devinez) 





Dans le programme GUESS, l'ordina- 
teur choisit aléatoirement un nombre com- 
pris entre 1 et une limite que vous aurez 
fixée. Vous devez alors essayer de devi- 
ner le nombre choisi par l'ordinateur en 
utilisant les indications qu'il vous donne. 

Vous devriez pouvoir deviner le chiffre 
en un nombre d'essais inférieurs à ceux 
utilisés pour sa représentation en notation 
binaire, c'est-à-dire en base 2. Cela devrait 
vous donner une indication quant à la 
technique optimale de recherche. 

GUESS a été transformé à partir du pro- 
gramme original en FOCAL qui apparais- 
sait dans le livre Computers in the clas- 
sroom de Walt Koetke de Lexington High 
School, Lexington, Massachusetts. 





1 PRINT CHR$(26);TAB(33);"GUESS" : PRINT 
2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
3 PRINT:PRINT:PRINT 
4 PRINT "CE JEU CONSISTF A DEVINER UN NOMBRE. JE PENSERAI À UN NOMBRE COMPRIS" 
5 PRINT "ENTRE 1 ET UNE LIMITE DE VOTRE CHOIX." 
6 PRINT “IL FAUDRA ALORS QUE VOUS LE TROUVIEZ." 
7 PRINT:PRINT "POUR QUITTER LA PARTIE, ENTREZ UN NOMBRE NEGATIF.":PRINT 
8 PRINT "QUELLE LIMITE FIXEZ VOUS"; 
9 INPUT L 
10 PRINT 
11 LI=INT(LOG(L)/LOG(2))+1 JE PENSE À UN NOMBRE COMPRIS ENTRE 1 FT 200. 
12 PRINT "JE PENSE À UN NOMBRE COMPRIS ENTRE 1 ET";L;CHRS(R);"." À VOUS DF LE TROUVER MAINTENANT. 
13 G=1 ? 100 Ë 
14 PRINT “A VOUS DE LE TROUVER MAINTENANT." TROP GRAND. FAITES MOI UNE PROPOSITION PLUS RASSE. 
15 M=INT(L*RND(1)+1) ? 50 
20 INPUT N TROP FAIRLF. PROPOSEZ UN NOMBRE PLUS FORT. 
21 IF N>O THEN 25 2 75 
22 GOSUB 70 TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE. 
23 PRINT:INPUT "MERCI POUR LA PARTIE. VOULEZ VOUS REJOUER" ; ANSS : ? 62 
IF LEFTS(ANSS$,1)="Y" THEN 1 ELSE PRINT:PRINT "AU REVOIR.":PRINT:RUN "MENU" CA Y ESTI VOUS L'AVEZ TROUVE EN 4 ESSAIS. 
25 IF N=M THEN 50 TRES RON. 
30 G=G+1 
31 IF N>M THEN 40 
32 PRINT "TROP FAIBLE. PROPOSEZ UN NOMBRF PLUS FORT." 
33 GOTO 20 
40 PRINT "TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE." 
42 GOTO 20 JE PENSE À UN NOMBRE COMPRIS ENTRE 1 ET 200. 
50 PRINT "CA Y ESTI VOUS L'AVEZ TROUVE EN";G;"ESSAIS." À VOUS DE LE TROUVER MAINTENANT. 
52 1F G<Ll THEN 58 ? 100 
54 IF G=Ll THEN 60 TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE. 
56 PRINT “VUS AURIEZ PU LE TROUVER EN":L1;"COUPS SEULEMENT." ? 50 
57 GOTO 65 TROP FAIBLE. PROPOSEZ UN NOMBRE PLUS FORT. 
58 PRINT “TRES "; ? 75 
60 PRINT "BON." TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE. 
65 GOSUR 70 ? 62 
66 GOTO 12 TROP FAIBLE. PROPOSEZ UN NOMBRE PLUS FORT. 
70 FOR H=1 TO 5 ? 69 
71 PRINT TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE. 
72 NEXT H ? 66 
73 RETURN TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE. 
99 END ? 64 
TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE. 
? 63 
CA Y EST! VOUS L'AVEZ TROUVE EN B ESSAIS. 
BON. 
GUESS 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY JE PENSE À UN NOMBRE COMPRIS ENTRE 1 ET 200. 
À VOUS DE LE TROUVER MAINTENANT. 
? 100 
TROP FAIBLE. PROPOSEZ UN NOMBRE PLUS FORT. 
CE JEU CONSISTE A DEVINER UN NOMBRE. JE PENSERAI À UN NOMBRE COMPRIS ? 150 
ENTRE 1 ET UNE LIMITE DE VOTRE CHOIX. TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE. 


IL FAUDRA ALORS QUE VOUS LE TROUVIEZ. 


? 125 
TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE. 


POUR QUITTER LA PARTIE, ENTREZ UN NOMBRE NEGATIF. ? 112 

TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE. 
QUELLE LIMITE FIXEZ VOUS? 200 ? 106 

TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE. 
JE PENSE À UN NOMBRE COMPRIS ENTRE 1 ET 200. ? 103 
À VOUS DE LE TROUVER MAINTENANT. TROP FAIBLE. PROPOSEZ UN NOMBRE PLUS FORT. 
? 100 ? 105 
TROP GRAND. FAITES MOI UNE PROPOSITION PLUS BASSE. TROP GRAND. FAITES MOI UNF PROPOSITION PLUS BASSE. 
? 50 ? 104 


CA Y EST! VOUS L'AVEZ TROUVE EN 2 ESSAIS. 
TRES BON. 
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CA Y ESTI VOUS L'AVEZ TROUVE EN 8 ESSAIS. 
BON. 





é si re . 
(fe ; 
* Le ) 


FC 


unner (Le tireur d'élite) 





GUNNER vous permet d'ajuster le tir 
d'un canon pour détruire une cible fixe. 
Vous spécifiez le nombre de degrés de 
pointage en hauteur de votre arme; 
45 degrés vous donnent le maximum de 
portée. Au-dessus ou en-dessous, vous 
en avez moins. 

Vous avez jusqu'à cinq tirs pour détruire 
l'ennemi avant qu'il ne vous détruise. La 
portée du canon varie entre 20 000 et 
60 000 yards et le champ d'’explosion est 
de 100 yards. Vous devez fixer le pointage 
en hauteur à environ 0.2 degrés pour at- 
teindre votre cible. 

Tom Kloos du Musée de la Science et 
de l'industrie de l'Oregon à Portland est 
l'auteur original de GUNNER. Des modifi- 
cations considérables ont été ajoutées par 
David Ahl. 


10 PRINT TAR(30);"GUNNER":PRINT 
20 PRINT TAB(15): RFATIVF COMPUTING  MORRISTOWN 
30 PRINT:PRINT:PRINT 





, NEW JFRSFEY" 


130 PRINT "VOUS ETES L'OFFICIER CHARGF DFE DONNER DES ORDRES AUX SFRVANTS" 
140 PRINT "D'UN CANON, FIXANT LA HAUSSE (FN DFGRES) QUI D'APRES VOUS" 
TOUT COUP A LINTFRIEUR" 


150 PRINT “ENVERRA LF PROJFCTILF SUR L'OBJECTIF. 
160 PRINT "DES 100 YARDS DU RUT, DETRUIT CELUI-C 
170 R=INT(40000!#RND(1)+20000) 


180 PRINT “LA PORTFE MAXIMUM DE VOTRE CANON EST DE"; :PRINT USING 


PRINT “ YARDS." 
185 7=0 
190 PRINT 
195 S1=0 
200 T=INT(R*(.1+.B#RND(1))) 
210 S=0 
220 GOTO 370 
230 PRINT “LA HAUSSE MINIMUM FST DE l DEGRF." 
240 GOTO 390 
250 PRINT "LA HAUSSF MAXIMUM EST DE 89 DEGRES." 
260 GOTO 390 
270 PRINT "COUP TROP LONG DE * 
280 GOTO 390 


PRINT USING "##, 





290 PRINT "COUP COURT DE ";:PRINT USING "##,###";ABS(E);:PPINT “ 


300 GOTO 390 

320 PRINT “*#** OBJECTIF ANFANTI *#**  " 
325 S1=S1+S 

330 IF Z=4 THEN 490 

340 Z=27+1 

345 PRINT 





1." : PRINT 


"est #88": R;: 


###";ABS(E);:PRINT “ YARDS." 


“MUNITIONS DEPENSEES ." 


YARDS ." 


350 PRINT "LE GUETTEUR AVANCE À REPERE UNE AUTRF ACTIVITE ENNEMIE..." 


360 ñoTO 200 
370 PRINT "LA DISTANCE DU BUT FST ";:PRINT (SING 
380 PRINT 

390 PRINT 

400 INPUT "HAUSSF";B 

420 IF B>89 THEN 250 

430 IF B<l THEN 230 

440 S=54+1 

442 IF S<6 THEN 450 


“##,###":T;:PRINT “ YARDS." 


444 PRINT:PRINT “BOUM !111! VOUS VENFZ D'ETRE DETRUIT PAR 


446 PRINT "L'ENNEMI." : PRINT : PRINT : PRINT 
450 B2=2*R/57.3 : I=R*SIN(B2) : X=T-I : E=INT(X) 
460 IF ABS(E)<100 THEN 320 

470 IF E>100 THEN 290 

480 GOTO 270 


GOTO 495 


490 PRINT : PRINT : PRINT "TOTAL MUNITIONS DEPENSEES:";S1l 


492 IF S1>18 THEN 495 
493 PRINT "JOLI TRAVAIL 11" : GOTO 500 


495 PRINT “FERIEZ MIEUX DE REGAGNER FORT SILL POUR UN COURS DE MISE À NIVEAUI"* 


500 PRINT : INPUT “ON REMET CA (% OU N)";2S 

510 IF LEFTS(ZS,1)="Y" THEN 170 

520 PRINT:PRINT "OK. RETOUR AU CAMP DE BASE.":P 
999 END 


RINT 
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GUNNER 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


VOUS ETFS L'OFFICIER CHARGE DE DONNER DES ORDRES AUX SERVANTS 
D'UN CANON, FIXANT LA HAUSSE (EN DEGRES) QUI D'APRES VOUS 
ENVERRA LE PROJECTILE SUR L'OBJECTIF. TOUT COUP A LINTERIEUR 
DES 100 YARDS DU BUT, DETRUIT CELUI-CI. 

LA PORTEF MAXIMUM DF VOTRE CANON FST DE 29,804 YARDS. 


LA DISTANCE DU BUT EST 10,252 YARDS. 
HAUSSE? 20 
COUP TROP LONG DFE 8,905 YARDS. 


HAUSSE? 8 
COUP COURT DE 2,037 YARDS. 


HAUSSE? 10 
*** OBJECTIF ANFEANTI *** 3 MUNITIONS DEPENSEES. 


LE GUETTEUR AVANCE À REPERE UNE AUTRE ACTIVITE ENNEMIE... 
LA DISTANCE DU BUT EST 10,416 YARDS. 

HAUSSE? 10.2 

*** OBJECTIF ANEANTI *** 1 MUNITIONS DEPENSEES. 

LE GUETTEUR AVANCE À REPERF UNE AUTRF ACTIVITF ENNEMIE... 
LA DISTANCE DU RUT EST 15,263 YARDS. 

HAUSSE? 14 

COUP COURT DE 1,271 YARDS. 


HAUSSE? 15 
COUP COURT DE 361 YARDS. 


HAUSSE? 15.2 
COUP COURT DE 182 YARDS. 


HAUSSE? 15.3 
*#** OBJECTIF ANFANTI *** 4 MUNITIONS DEPENSEES. 


LE GUETTEUR AVANCE À REPERE UNE AUTRE ACTIVITE ENNEMIE... 
LA DISTANCE DU RUT EST 4,370 YARDS. 

HAUSSE? 3 

COUP COURT DÉ 1,254 YARDS. 


HAUSSF? 3.5 


COUP COURT DE 738 YARDS. 
HAUSSE? 4 
COUP COURT NF 222 YARDS. 


HAUSSF? 4.2 
*** OBJECTIF ANFANTI **#* 4 MUNITIONS DFPENSEFES. 


LF GUFTTEUR AVANCE À REPERE UNE AUTRE ACTIVITE ENNEMIE... 
LA DISTANCE DU RUT EST 21,790 YARDS. 


HAUSSE? 30 
COUP TROP LONG DE 4,020 YARDS. 


HAUSSE? 28 
COUP TROP LONG DE 2,918 YARDS. 
HAUSSF? 25 
COUP TROP LONG DE 1,040 YARDS. 
HAUSSE? 24 
COUP TROP LONG DE 358 YARDS. 


HAUSSE? 23.7 
COUP TROP LONG DE 148 YARDS. 


HAUSSE? 23.5 


ROUM 1!111 VOUS VENEZ D'ETRE DETRUIT PAR L'ENNEMI. 


FERIEZ MIEUX DE REGAGNER FORT SILL POUR UN COURS DE MISE A NIVEAUI 
ON REMET CA (Y OU N)? N 


OK. RETOUR All CAMP NF RASF. 


Hammurabi 





Dans ce jeu, vous donnez les instruc- 
tions à l’administrateur de Sumer, Ham- 
murabi, pour gérer la ville. La ville a au dé- 
part 1 000 acres, 100 habitants et 3 000 
boisseaux de grain en réserve. 

Vous pouvez acheter et vendre des 
terres à vos villes ou états voisins, en 
échange de boisseaux de grain — le prix 
varie entre 17 et 26 boisseaux par acre. 
Vous devez aussi vous servir du grain 
pour nourrir votre population et pour ense- 
mencer la culture de l’année prochaine. 

Vous vous apercevrez rapidement 
qu'un certain nombre de personnes ne 
peuvent entretenir qu'une certaine super- 
ficie de terres et qu'elles meurent de faim 
si elles ne sont pas assez nourries. Vous 
aurez aussi à faire face à l'imprévisible tel 
que la peste, les rats qui détruisent les ré- 
serves de grain et les mauvaises récoltes. 
Vous vous rendez compte dans ce jeu, 
que la gestion de quelques ressources 
n'est pas un travail insignifiant sur une pé- 
riode de disons 10 ans. La crise de den- 
sité de population se fait jour très rapide- 
ment. 

Ce programme a été à l’origine écrit en 
FOCAL à DEC, l’auteur est inconnu. Da- 
vid Ahl l'a transformé en BASIC et cette 
version a bénéficié d'une expérience per- 
formante de 10 années. Si vous désirez 
changer un des facteurs, les commen- 
taires approfondis de ce programme de- 
vraient rendre une modification assez di- 
recte. 

Remarque pour les historiens en herbe : 
quelque part en cours de route un m a été 
oublié dans l'orthographe d'Hammurabi 
dans la version de Ahl du programme ordi- 
nateur. Cette erreur s'est propagée jus- 
qu'à ce qu'une génération d'étudiants qui 
ont utilisé ce programme, pense mainte- 
nant qu'Hammurabi n'est pas orthogra- 
phié correctement. 


HAMURABI 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


TENTEZ DE GOUVERNER L'ANCIENNE SUMER 
POUR UNE DUREE DE FONCTIONS DE 10 ANNEES. 


HAMURABI: J'AI LHONNEUR DE VOUS INFORMER DES FAITS SUIVANTS, 

L'ANNEE l, PERSONNE N'EST MORT DE FAIM ET 5 PERSONNES SONT 
VENUES À LA VILLE. 

DE SORTE QUE LA POPULATION EST MAINTENANT DE 100. 

LA VILLE À MAINTENANT 1,000 ACRES. 

VOUS AVEZ MOISSONNE 3 BOISSEAUX PAR ACRE. 

LES RATS ONT MANGE 200 BOISSEAUX. 

MAINTENANT VOUS AVEZ 2,800 BOISSEAUX EN RESERVE. 


LES VENTES DE TERRE SE FONT À 19 BOISSEAUX L'ACRE. 
COMBIEN D'ACRES DESIREZ VOUS ACQUERIR? 20 


COMBIEN DE BOISSEAUX RESERVEZ VOUS A LA NOURRITURE DE VOTRE PEUPLE? 
1400 


COMBIEN D'ACRES VOULEZ VOUS ENSEMENCER? 500 


HAMURABI: J'AI LHONNEUR DE VOUS INFORMER DES FAITS SUIVANTS, 
L'ANNEE 2, 30 PERSONNES SONT MORTES DFE FAIM FT 7 

PERSONNES SONT VENUES À LA VILLE. 

UNE PESTE HORRIBLE À FRAPPFI LA MOITIE DES GENS SONT MORTS. 
DE SORTE QUE LA POPULATION EST MAINTENANT DE 38. 

LA VILLE À MAINTENANT 1,020 ACRES. 

VOUS AVEZ MOISSONNE 2 BOISSEAUX PAR ACRE. 

LES RATS ONT MANGE 385 BOISSEAUX. 

MAINTENANT VOUS AVEZ 1,385 ROISSFAUX EN RESERVE. 


LES VENTES DE TERRE SE FONT À 24 BOISSEAUX L'ACRE. 
COMBIEN D'ACRES DESIREZ VOUS ACQUERIR? O0 
COMBIEN D'ACRES VOULFZ VOUS VENDRF? 20 


COMBIEN DE BOISSEAUX RESERVEZ VOUS À LA NOURRITURE DE VOTRE PEUPLE? 500 


COMBIEN D'ACRES VOULEZ VOUS ENSEMENCFR? 150 


HAMURABI: J'AI LHONNEUR DF VOUS INFORMER DES FAITS SUIVANTS, 
L'ANNEE 3, 13 PERSONNES SONT MORTES DE FAIM ET 28 

PERSONNES SONT VENUES À LA VILLE. 

DE SORTE QUE LA POPULATION EST MAINTENANT DE 53. 

LA VILLE À MAINTENANT 1,000 ACRES. 

VOUS AVEZ MOISSONNE 3 BOISSFAUX PAR ACRE. 

LES RATS ONT MANGE 645 BOISSFAUX. 

MAINTENANT VOUS AVEZ 1,095 BOISSEAUX EN RESERVE. 


LES VENTES DF TERRE SE FONT À 24 BOISSEAUX L'ACRE. 
COMBIEN D'ACRES DESIREZ VOUS ACQUERIR? O0 
COMBIEN D'ACRES VOULEZ VOUS VENDRE? O 


COMBIEN NE BOISSEAUX RESERVEZ VOUS À IA NOURRITURE DF VOTRE PEUPLE? 500 


COMBIEN D'ACRES VOULEZ VOUS ENSEMENCER? 200 

EN UN AN 28 PERSONNES SONT MORTES DE FAIM GRACE A VOUS!II! 

EN RAISON DE CETTE EXTREME INCOMPETENCE, NON SEULEMENT VOUS AVFZ 
ETF REVOQUE ET JETE DEHORS, MAIS ENCORF VOUS AVEZ ETE 

DECLARE PLAIE NATIONALEII!I 


ET BIEN, ADIEU MAINTENANT. 


10 PRINT TAB(32);"HAMURABI":PRINT 

20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT:PRINT:PRINT 

40 PRINT “TENTEZ DE GOUVERNER L'ANCIFENNF SUMER" 


50 PRINT “POUR UNE DUREE DE FONCTIONS DE 10 ANNEES.":PRINT 

60 D1=0: P1=0 

70 Z=0: P=95:S=2800: H=3000: E=H-S 

80 Y=3: A=H/Y: 1=5: Q=1 

90 N=0 

100 PRINT:PRINT 

103 PRINT “HAMURABI: J'AI LHONNEUR DE VOUS INFORMER DES FAITS SUIVANTS," :2Z=24] 
110 PRINT “L'ANNEE";Z;CHR$S(8):","; 


111 IF D=0 THEN PRINT “ PERSONNE N'EST MORT DE FAIM ET"; ELSE 

IF D=]l THEN PRINT “l PERSONNE EST MORTE DE FAIM ET"; ELSE 

PRINT D; "PERSONNES SONT MORTES DE FAIM ET"; 

IF 1=0 THEN PRINT “PERSONNE NE S'EST INSTALLE DANS LA VILLE." ELSE 
IF I=1 THEN PRINT “1 PERSONNE EST VENUE À LA VILLE." ELSE 

PRINT 1;"PERSONNES SONT VENUES À LA VILLE." 


112 


120 P=P41 

130 IF Q>0 THEN 160 

140 P=INT(P/2) 

150 PRINT "UNF PESTE HORRIBLE À FRAPPEI LA MOITIE DES GENS SONT MORTS." 
160 PRINT "DE SORTE QUE LA POPULATION EST MAINTENANT DE";P;CHR$(8);"." 


170 PRINT “LA VILLF À MAINTENANT "::1F A<1000 THEN PRINT USING 
IF A>=1000 AND A<10000 THEN PRINT USING "#,###";A; ELSE IF A>=10000 
THEN PRINT USING "“##,###";A; 

PRINT “ ACRES." 

IF Y=0O THEN PRINT “LA MOISSON N'A PRODUIT AUCUN GRAIN." ELSE 

IF Y=] THEN PRINT “VOUS AVEZ MOISSONNE 1 BOISSEAU PAR ACRE." ELSE 
PRINT “VOUS AVEZ MOISSONNE";Y;"BOISSEAUX PAR ACRE." 

IF F=0 THEN PRINT “LES RATS N'ONT PAS MANGE DE GRAIN." FLSE 

PRINT "LES RATS ONT MANGE";E;"BOISSEAUX." 

PRINT “MAINTENANT VOUS AVEZ “;:1F S<1000 THEN PRINT USING 
IF S>=1000 AND S<10000 THEN PRINT USING "#,###";S; ELSE IF S>=10000 
THEN PRINT USING “##,###":S; 

PRINT “ BOISSEAUX EN RESFERVE.":PRINT 

IF Z=11 THEN 970 

220 C=INT(1O*RND(1)): Y=C+17 

230 PRINT "LES VENTES DE TERRE SE FONT A";Y;"BOISSEAUX L'ACRE." 

240 PRINT “COMRIEN D'ACRES DESIREZ VOUS ACQUERIR": 

250 INPUT Q: IF Q<O THEN 940 

260 IF Y*Q<=S THEN 290 

270 GOSUB 870 

280 GOTO 240 

290 IF Q=0 THEN 320 
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171 
180 


190 


200 


201 
210 


"###":A; ELSE 


"###":S;: ELSE 


300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
603 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


A=A+4Q: S=S-Y#*Q: C=0 

GOTO 380 

PRINT "COMBIFEN D'ACRES VOULEZ VOUS VENDRE"; 

INPUT Q: IF Q<0 THEN 940 

IF Q<A THEN 370 

GOSUB 900 

GoTo 320 

A=A-0: S=S+Y*O: C=0 

PRINT 

PRINT “COMBIFN DE ROISSEAUX RESERVEZ VOUS À LA NOURRITURE DE 
INPUT Q VOTRE PEUPLE"; 
IF O<0 THEN 940 

REM *** ESSAI D'UTILISER PLUS DE GRAIN QU'IL Y EN À DS LES SILOS? 
IF Q<=S THEN 460 

goste a7n 

GoTo 390 

S=S-0: C=l: PRINT 

PRINT "COMBIEN D'ACRES VOULEZ VOUS ENSEMENCER" ; 

INPUT D: IF D=0 THEN 630 

IF D<O THEN 940 

REM *** ESSAI DE SEMER PLUS D'ACRES QUE VOUS N'EN POSSEDEZ? 
IF D<=A THEN 550 

GOSUB 900 

GOTO 470 

REM *#*#* ASSEZ DE GRAIN POUR LES SEMENCES? 

IF INT(N/2)<=S THEN 590 

GOSUB 870 

GOTO 470 

REM *** ASSEZ DE MONDE POUR S'OCCUPER DFS RECOLTES? 

IF D<lO#*P THEN 620 

PRINT "MAIS VOUS N'AVEZ QUE";P 
PRINT “ DONC," 

GOTO 470 

S=S-INT(D/2) 

GOSUR 920 

REM *** UNE MERVEILLEUSE MOISSON! 

Y=C: H=D*Y: E=0 

GOSUB 920 

IF INT(C/2)<>C/2 THEN 700 

REM *** LES RATS SE DECHAINENTI! 

E=INT(S/C) 

E+H 

GoSUB 920 

REM *#** AYONS QUELQUES ENFANTS 
I=INT(C*(20#*A+S)/P/100+1) 

REM *** COMBIEN DF PERSONNES ONT LE VENTRE PLEIN? 


: "PERSONNES POUR LES TRAVAUX 
DES CHAMPSI"; 














750 C=INT(N/20) 

760 REM *** HORREUR, 15% DE CHANCE DFE PESTE 

770 Q=INT(10*(2#*RND(1)-.3)) 

780 IF P<C THEN 90 

790 REM *** FAMINE SUFFISANTE POUR DESTITUTION? 

800 D=P-C: IF D>.45#*P THEN 830 

A10 (Z-1)*P14D*100/P)/z 

820 : Dl=D14D: GOTO 100 

830 PRINT: PRINT “EN UN AN";D;"PERSONNES SONT MORTES DE FAIM GRACE À VOUSIII1" 
R4Q PRINT “EN RAISON DE CETTE EXTREME INCOMPETENCE, NON SEULEMENT VOUS AVEZ" 
850 PRINT "ETF REVOQUE ET JETE DEHORS, MAIS ENCORE VOUS AVEZ ETE" 

B60 PRINT "DECLARE PLAIF NATIONALEIII1": GOTO 1170 

A70O PRINT “HAMURABI: REFLECHISSEZ. VOUS N'AVEZ QUE" 

BRO PRINT S;"BOISSEAUX DE GRAIN. DONC," 

R90 RETURN 

900 PRINT “HAMURARI: REFLECHISSEZ. VOUS POSSEDEZ";A;"ACRES SEULEMENT. DONC," 
910 RETURN 

920 C=INT(RND(1)*5)41 

930 RETURN 

940 PRINT: PRINT “HAMURABI: JE NE PUIS FAIRE CE QUE VOUS DEMANDEZ." 

950 PRINT “TROUVEZ VOUS UN AUTRE SERVITEURII111" 

960 GOTO 1170 

970 PRINT “PENDANT VOS 10 ANNEES AUX AFFAIRES,";Pl;"POUR CENT DE LA POPULATION" 
9RO PRINT “EST MORT DE FAIM CHAQUE ANNEF EN MOYENNE, SOIT UN TOTAL DE" 

990 PRINT D1:"DFCESI!": L=A/P 


1000 PRINT “VOUS AVEZ DEBUTE AVEC 10 ACRES PAR PERSONNE POUR FINIR AVEC" 
1010 PRINT L;"ACRES PAR PERSONNE.": PRINT 

1020 IF P1>33 THEN 840 

1030 IF L<7 THEN 840 

1040 IF P1>10 THEN 1100 

1050 IF L<9 THEN 1100 

1060 IF P1>3 THFN 1130 

1070 IF L<10 THEN 1130 

108O PRINT “FANTASTIQUE PFRFORMANCE! !! CHARLEMAGNE, DISRAELI, AND" 

1090 PRINT "JEFFERSON ENSEMBLE N'AURAIENT PU FAIRE MIEUX! ":GOTO 1170 
1100 PRINT “VOTRE PFRFORMANCE RIDICULISE NERON ET IVAN LE TERRIRLE." 
1110 PRINT “LE PEUPLE(CE QU'IL EN RESTE) PENSE QUE VOUS ETES UN CHEF" 
1120 PRINT "DETESTABLE ET FRANCHEMENT NE PEUT PAS VOUS VOIRI!":GOTO 1170 
1130 PRINT "VOS RESULTATS AURAIENT PU ETRE MEILLEURS, MAIS VRAIMENT" 
1140 PRINT “CE N'ETAIT PAS MAL. “;INT(P*.B#RND(1)); "PERSONNES" 

1150 PRINT “REVENT DE VOUS VOIR ASSASSINE MAIS NOUS AVONS TOUS NOS" 

1160 PRINT "PETITS PROBLFMES." 

1170 PRINT: FOR N=] TO 10: PRINT CHRS(7);: NEXT N 

1180 PRINT "ET BIEN, ADIFU MAINTENANT.": PRINT 

1190 END 
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Hangman (Le pendu) 





C'est une simulation du jeu du Pendu 
où l'on doit deviner des lettres. L'ordina- 
teur choisit un mot, vous dit le nombre de 
lettres de ce mot et vous devinez ensuite 
ces lettres. Si vous avez bien deviné, l'or- 
dinateur vous donne l'emplacement de 
ces lettres. Si vous vous êtes trompé, l'or- 
dinateur commence à vous pendre. Vous 
avez droit à dix essais avant d’être com- 
plètement pendu : 


La tête 
Le corps 
10 PRINT TAB(32);"HANGMAN" 
Les deux bras 20 PRINT TAB(15) ; "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
Les deux jambes 25 PRINT:PRINT: PRINT 
Les deux mains + Pr Peer 12):28020)-D8 (207-8267, 0180) 
Te a ë8 non 1od 29 28! MURS ae 0 
x = | =", 
Vous pouvez ajouter des mots dans les 70 FOR I=l TO 12: FOR J=l TO 12: PS$(I,J)=" “: NEXT J: NEXT I 
i i d n 80 FOR I=l TO 12: P$S(I,1)="X": NEXT I 
coordonnées data qui suivent l'instruction SO FOR Iel TO 75 PSI, L}=uXes NEXTS LE (2, 7)="xe 
508; cependant, si vous le faites, vous de- 95 IF C<N THEN 100 : 
vez également changer le sélecteur de 5 
mots aléatoires à l'instruction 40. 118 Uta)ats C=ctle nESTORE: T1=0 
. .. 1: : : = 
David Ahl a modifié le programme créé 150 FOR I=l TO Q: READ A$: NEXT I 
par Kenneth Aupperle de Melville, New 170 PRINT “VOICI LES LETRES DEJA UTILIBBRSE 
York, pour le présenter dans sa forme ac- 180 FOR I=1 TO 26 
Il 183 PRINT N$(I1);:: IF N$(1+1)="" THEN 200 
tuelle. 190 PRINT “,"; 
193 NEXT 1 


200 PRINT: PRINT: FOR I=l TO L: PRINT D$(I);: NEXT I: PRINT: PRINT 
210 INPUT "QUE SUGGFEREZ VOUS";G$: R=0 

220 FOR I=1 TO 26: IF N$(1)="" THEN 250 

230 IF G$=N$(I) THEN PRINT "VOUS AVEZ DEJA PROPOSE CETTE LETTREI": GOTO 170 
240 NEXT I: PRINT “ERREUR PROGRAMME. RELANCER L'EXECUTION.": STOP 
250 N$(1)=G$: Tl=Tl+1 

260 FOR I=1 TO L: IF L$(I1)=G$ THEN 280 

270 NEXT I: IF R=0 THEN 290 

275 GOTO 300 

280 D$S(I1)=G$: R=R+l: GOTO 270 

290 M=M+1l: GOTO 400 

300 FOR I=1 TO L: IF D$(1)="-" THEN 320 

310 NEXT I: GOTO 390 

320 PRINT: FOR I=1 TO L: PRINT D$(I);: NEXT I: PRINT: PRINT 

330 INPUT "VOTRE SUGGESTION POUR LE MOT";B$ 

340 IF A$=B$ THEN 360 

350 PRINT “FAUX. ESSAYEZ UNE AUTRE LETTRE.": PRINT: GOTO 170 

360 PRINT "EXACTII CELA VOUS À PRIS";T1;"COUPSI" 

370 INPUT “UN AUTRE MOT";W$: IF LEFTS(W$,1)="Y"" THEN 50 

380 PRINT: PRINT "ON S'EST BIEN AMUSESI A L'UN DE CES JOURS.": GOTO 999 
390 PRINT “VOUS AVEZ TROUVE LE MOTI": GOTO 370 

400 PRINT: PRINT: PRINT"DESOLE, CETTE LETTRE N'EST PAS DANS LE MOT." 
410 ON M GOTO 415,420,425,430,435,440,445,450,455,460 

415 PRINT “D'ABORD,DBSSINONS LA TETE": GOTO 470 

420 PRINT “MAINTENANT LE CORPS.": GOTO 470 

425 PRINT “ENSUITE UN BRAS.": GOTO 470 

430 PRINT “ET CETTE FOIS-CI, L'AUTRE BRAS.": GOTO 470 

435 PRINT “C'EST LE TOUR DE LA JAMBE DROITE.": GOTO 470 

440 PRINT "ET PUIS, DESSINONS LA JAMBE GAUCHE.": GOTO 470 

445 PRINT "AJOUTONS UNE MAIN.": GOTO 470 

450 PRINT “PUIS L'AUTRE MAIN.": GOTO 470 

455 PRINT “DESSINONS UN PIED": GOTO 470 


460 PRINT “ET ENFIN L'AUTRE PIED -- VOUS ETES PENDUII" 
470 ON M GOTO 480,490,500,510,520,530,540,550,560,570 

480 P$(3,6)="-": P$(3,7)="-": P$(3,8)="-": P$(4,5)="(": P$(4,6)="." 

481 P$(4,8)=".":P$(4,9)=")":P$(5,6)="-":P$(5,7)="-":P$(5,8)="-":GOTO 580 


490 FOR 1=6 TO 9: P$(I1,7)="X": NEXT I: GOTO 580 

500 FOR 1=4 TO 7: PS$S(I,1-1)="\": NEXT I: GOTO 580 

510 P$(4,11)="/": P$(5,10)="/": PS(6,9)="/": P$(7,8)="/": GOTO 580 
520 P$(10,6)="/": PS(11,5)="/": GOTO 580 

530 P$(10,8)="\": P$(11,9)="\": GOTO 580 

540 P$(3,11)="\": GOTO 580 

550 P$(3,3)="/": GOTO 580 

560 P$(12,10)="\": P$S(12,11)="-": GOTO 580 

570 PS$S(12,3)="-": PS(12,4)="/" 

580 FOR I=1 TO 12: FOR J=1 TO 12: PRINT PS(I,J):: NEXT J 

590 PRINT: NEXT I: PRINT: PRINT: IF M<>10 THEN 170 

600 PRINT "DESOLE, VOUS AVEZ PERDU. LE MOT ETAIT “;AS$ 

610 PRINT “VOUS AVEZ RATE CELUI-CI. VOULEZ VOUS “;: GOTO 370 

620 INPUT "TAPEZ Y OU N":Y$: IF LEFTS(YS,1)="Y" THEN 50 

700 DATA "MAL","SON","PUR","CAS","LOI","BOL", "AMI" 

710 DATA "LAID","PORT", "CASE", "VELU","SILO","AVEC", "SALE" 

720 DATA "PIZZA","CHOSE", "BARON", "EPAIS", "COUDE" ,"FAUTE","TIEDE" 
730 DATA "BUDGET" ,"ESPRIT","GROTTE","MALICE", "POTEAU", “ROGNON" 

740 DATA “EXEMPLE” , "TENSION", "QUININE","ESCORTE" , "CLAVIER", "POTENCE" 
750 DATA "TRIANGLE", "PARAVENT" , "INCENDIE", "AUTORITE" , "SEQUENCE" 
760 DATA “MOUSTACHE" , "DANGEREUX" , "DIFFERENT", “ADJOINDRE" , “INASSOUVI" 
770 DATA “ENCOIGNURE" ,"INCREDULITE" , "PREPARATEUR" , "ENROUEMENT" 

780 DATA "MATRIMONIAL","ANATOMOPATHOLOGIQUE" , “ASTRONAUTIQUE" 

990 PRINT "AU REVOIR, MAINTENANT" 

999 END 
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HANGMAN 


CREATIVE COMPUTING MORRISTOWN. NEW JERSEY 


VOICI LES LETTRES DEJA UTILISEES: 


QUE SUGGEREZ VOUS? Z 


DESOLE, CETTE LETTRE N’EST PAS DANS LE MOT. 
D'ABORD, DSSINONS LA TETE 

XXXXXXX 

x 


Ce.) 


x XX XX EE DC D 26 


VOICI LES LETTRES DEJA UTILISEES: 
Z 


QUE SUGGEREZ VOUS? E 
-€- 


VOTRE SUGGESTION POUR LE MOT? PIED 
FAUX. ESSAYEZ UNE AUTRE LETTRE. 


VOICI LES LETTRES DEJA UTILISEES: 
2.E 


--E- 
QUE SUGGEREZ VOUS? L 


DESOLE, CETTE LETTRE N’EST PAS DANS LE MOT. 
MAINTENANT LE CORPS. 


XXXXXXX 
x x 
x _—— 
x Ce.) 
x LS 
X x 
X x 
X x 
X x 
x 

x 

X 


VOICI LES LETTRES DEJA UTILISEES: 
Z, EL 


_--£- 


QUE SUGGEREZ VOUS? © 


DESOLE, CETTE LETTRE N’EST PAS DANS LE MOT. 
ENSUITE UN BRAS. 


XXXXXXX 
x x 
x _—— 
X \ €. ) 
X  \ --- 
x \ X 
Fe \Xx 
x x 
x x 
x 

x 

x 


VOICI LES LETTRES DEJA UTILISEES: 
ZEsL,0 


--E- 


QUE SUGGEREZ VOUS? R 


DESOLE, CETTE LETTRE N’EST PAS DANS LE MOT. 
ET CETTE FOIS-CI, L'AUTRE BTAS. 


XXXXXXX 

x x 

x == 
Xi et 1 / 
NS “NS / 
x \ X / 
x \X/ 

x x 

x x 

x 

x 

x 
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VOICI LES LETTRES DEJA UTILISEES: 
ZE, L OR 


_-£- 


QUE SUGGEREZ VOUS? S 


DESOLE, CETTE LETTRE N’EST PAS DANS LE MOT. 
C'EST LE TOUR DE LA JAMBE DROITE. 
XXXXXXX 
x 
NC «9-7 
\ = / 
\ X / 
\X/ 
x 
x 
4 
/ 


D x x 6 DC 6 € 


VOICI LES LETTRES DEJA UTILISEES: 
Z,E,L,O,R,S 


=E- 

QUE SUGGEREZ VOUS? 7 

VOUS AVEZ DEJA PROPOSE CETTE LETTRE! 
VOICI LES LETTRES DEJA UTILISEES: 

Z EL, O,R,S 

-€- 

QUE SUGGEREZ VOUS? V 

-VE- 

VOTRE SUGGESTION POUR LE MOT? AVEC 


EXACT''!' CELA VOUS A PRIS 7 COUPS! 
UN AUTRE MOT? N 


ON S’EST BIEN AMUSES' A L’UN DE CES JOURS. 


Hello 





Voici un modèle d’un des nombreux 
programmes de conversation. C'est, dans 
un sens, comme un programme CA, sauf 
que ses réponses ne sont qu'une bonne 
partie de rire. Chaque fois qu'un ordina- 
teur est exposé à un congrès ou à une 
conférence en présence de gens qui n'ont 
jamais utilisé d'ordinateur avant, les pro- 
grammes de conversation semblent rem- 
porter la première place. 

Dans ce programme précis, l'ordinateur 
vous conseille dans des domaines tels 
que la sexualité, la santé, l'argent ou le 
travail. 

David Ahl est l’auteur de HELLO. 


HELLO 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
HELLO. 


JE SUIS UN ORDINATEUR, MA SPECIALITE EST LA ‘CREATIVITE'. 


QUEL EST DONC VOTRE NOM? TARTEMPION 
DITES DONC, TARTEMPION, EST-CE QUE VOUS VOUS PLAISEZ ICI? N 


OH, JE SUIS NAVRE D'ENTENDRE CA, TARTEMPION. 
RENDRE VOTRE VISITE ICI UN PEU PLUS AGREABLE. 


PEUT-ETRE POURRIONS NOUS 


DITES, TARTEMPION, JE PEUX RESOUDRE TOUTES SORTES DE PROBLEMES SAUF 
CEUX PORTANT SUR LA GRECE. QUEL GENRE DE PROBLEMES AVEZ VOUS 
(REPONDEZ SEXE, SANTE, ARGENT OU BOULOT)? ARGENT 


DESOLE, TARTEMPION, MOI AUSSI, JE SUIS FAUCHE. VENDEZ DONC DES 
ENCYCLOPEDIES OU EPOUSEZ QUELQU'UN DE RICHE OU CESSEZ DE MANGER 
DE SORTE QUE VOUS N'AUREZ PAS ‘BESOIN D'AUTANT D'ARGENT. 


AVEZ VOUS D'AUTRES PROBLEMFS À RESOUDRE, TARTEMPION? Y 


QUEL GENRE (SEXE, ARGENT, SANTE, BOULOT)? SEXE 


VOTRE PROBLEME C'EST ‘TROP' OU ‘PAS ASSEZ'? TROP 


VOUS APPELEZ CA UN PRORBLFMF?11 J'AIMERAIS AVOIR DES PROBLEMES COMME CAI 
SI CA VOUS TOURMENTE, TARTEMPION, PRENFZ UNE DOUCHE FROIDE. 


AVEZ VOUS D'AUTRES PROBLEMES À RESOUDRE, TARTEMPION? Y 
QUEL GENRE (SEXF, ARGENT, SANTE, BOULOT)? BOULOT 
JE VOUS COMPRENDS TARTEMPION. JE TRAVAILLE DE TRES LONGUES HEURES 


SANS SALAIRE -- ET CERTAINS DE MES PATRONS ME TAPENT 
REELLEMENT SUR LE CLAVIER. JE VOUS CONSEILLE, TARTEMPION, 


D'OUVRIR UNE BOUTIQUE DE VENTE D'ORDINATEURS AU DETAIL.C'EST TRES AMUSANT. 


AVEZ VOUS D'AUTRES PROBLEMES A RESOUDRE, TARTEMPION? Y 


QUEL GENRE (SEXE, ARGENT, SANTE, BOULOT)? SANTE 
MON CONSEIL TARTEMPION EST LE SUIVANT: 
1. PRENDRE DEUX ASPIRINES 
2. BOIRE BEAUCOUP (JUS D'ORANGE..., 
3. VOUS METTRE AU LIT (SEUL) 


PAS D'ALCOOLI) 


AVEZ VOUS D'AUTRES PROBLEMES À RESOUDRE, TARTEMPION? PAS VRAIMENT 


TOUT SIMPLEMENT UN ‘Y' OU UN ‘N' JE VOUS EN PRIE, TARTEMPION. 
AVEZ VOUS D'AUTRES PROBLEMES À RESOUDRE, TARTEMPION? N 


CA FAIT $5.00 POUR LE CONSEIL, TARTEMPION. 
LAISSEZ L'ARGENT SUR LE TERMINAL, JE VOUS PRIE. 


AVEZ VOUS LAISSE L'ARGENT? N 


VOUS ETFS FRANC, TARTEMPION, MAIS COMMENT VOULEZ VOUS QUE JE 
POURSUIVE MES ETUDES DE PSYCHOLOGIE SI MES CLIENTS NE PAIENT PAS 
MES HONORAIRES? 


HEUREUX DE VOUSAVOIR RENCONTRE, TARTEMPION, BONNE JOURNEE. 


2 PRINT TAB(33) 
4 PRINT TAB(15 
6 PRINT: 

10 PRINT 

20 PRINT: 
30 PRINT 
40 INPUT BS$: 
IF LEFTS(BS,1)="Y" THEN 70 
IF LEFTS(B$,1)="N" THEN 80 


HELLO" 
CREATIVE COMPUTING MORRISTOWN, 
PRINT 
JE SUIS UN ORDINATEUR, MA SPECIALITE EST LA 'CREATIVITE'. 
INPUT "QUEL EST DONC VOTRE NOM":N$: PRINT 
";NS:", EST-CE QUE VOUS VOUS PLAISEZ ICI"; 





NEW JERSEY" 
PRINT: 
“HELLO. 
PRINT: 
“DITES DONC, 
PRINT 

























60 PRINT N$;", JE NE SAISIS PAS VOTRE REPONSE ‘";B$;""'." 
65 PRINT "REPONDEZ, JE VOUS PRIE, PAR ‘Y' OU PAR 'N'." 

67 PRINT “ VOUS AIMEZ L'ENDROIT";: GOTO 40 

70 PRINT "JE SUIS HEUREUX D'ENTENDRE CA, ";N$;".": PRINT 

75 GOTO 100 

80 PRINT “OH, JE SUIS NAVRE D'ENTENDRE CA, ";N$;". PEUT-ETRE POURRIONS NOUS 
85 PRINT "RENDRE VOTRE VISITE ICI UN PEU PLUS AGREABLE." 

100 PRINT 

105 PRINT "DITES, "“;N$;", JE PEUX RESOUDRE TOUTES SORTES DE PROBLEMES SAUF" 
110 PRINT "CFUX PORTANT SUR LA GRECE. QUEL GENRE DE PROBLEMES AVEZ VOUS" 
120 PRINT "(REPONDEZ SEXE, SANTE, ARGENT OÙ BOULOT)"; 

125 INPUT CS 

126 PRINT 

130 IF CS="SEXE" THEN 200 

132 IF CS="SANTF" THEN 180 

134 IF CS="ARGENT" THEN 160 

136 IF C$="ROULOT" THEN 145 

138 PRINT "HO, ";NS;", VOTRE REPONSE ";CS$;" EST DU GREC POUR MOI." 

140 GOTO 250 

145 PRINT "JE VOUS COMPRENDS “;N$;". JE TRAVAILLE DE TRES LONGUES HEURES" 
148 PRINT "SANS SALAIRE -- ET CERTAINS DE MES PATRONS ME TAPENT" 

150 PRINT “REELLEMENT SUR LE CLAVIER. JE VOUS CONSEILLE, ";N$; 

153 PRINT "D'OUVRIR UNE BOUTIQUE DF VENTE D'ORDINATEURS AU DETAIL."; 

154 PRINT "C'EST TRES AMUSANT." 

155 GOTO 250 

160 PRINT "DESOLF, ";NS;", MOI AUSSI, JE SUIS FAUCHE. VENDEZ DONC DES" 
162 PRINT "ENCYCLOPEDIES OU EPOUSEZ QUELQU'UN DE RICHE OU CESSEZ DE MANGER" 
164 PRINT "DE SORTE QUE VOUS N'AUREZ PAS BESOIN D'AUTANT D'ARGENT." 

170 GOTO 250 

1RO PRINT “MON CONSEIL “;N$;" EST LE SUIVANT:" 

185 PRINT * 1. PRENDRE DEUX ASPIRINES" 

188 PRINT " 2. BOIRE BEAUCOUP (JUS D'ORANGE..., PAS D'ALCOOLI)" 

190 PRINT " 3. VOUS METTRE AU LIT (SEUL)" 

195 GOTO 250 

200 INPUT “VOTRF PROBLEME C'EST ‘TROP' OU ‘PAS ASSEZ'";D$: PRINT 

210 IF DS="TROP" THEN 220 

212 IF DS="PAS ASSEZ" THEN 230 

215 PRINT "NE PANIQUEZ PAS, ";N$:", REPONDEZ SIMPLEMENT À LA QUESTION" 
217 INPUT "PAR 'TROP' OU ‘PAS ASSEZ'. ALORS C'EST QUOI";D$:GOTO 210 

220 PRINT "VOUS APPELEZ CA UN PROBLEME?11 J'AIMERAIS AVOIR DES PROBLEMES"; 
223 PRINT “ COMME CAIl" 

225 PRINT "SI CA VOUS TOURMENTE, ";N$;", PRENEZ UNE DOUCHE FROIDE." 

228 GOTO 250 

230 PRINT “POURQUOI RESTEZ VOUS ICI À SOUFFRIR, ";N$;"? ALLEZ DONC" 

235 PRINT “A TOKYO OU NEW YORK OU AMSTERDAM OÙ A UN ENDROIT OU LES CHOSES" 
240 PRINT “BOUGENT VRAIMENT." 

250 PRINT 

255 PRINT “AVFZ VOUS D'AUTRES PROBLEMES À RESOUDRE, ";N$: 

260 INPUT ES: PRINT 

270 IF LEFTS(FS,1)="Y" THEN 280 

273 IF LEFTS(ES,1)=" THEN 300 

275 PRINT “TOUT SIMPLEMENT UN 'Y' OU UN ‘N' JE VOUS EN PRIE, ";NS;"." 

277 GOTO 255 

280 PRINT "QUEL GENRE (SEXE, ARGENT, SANTE, BOULOT)"; 

282 GOTO 125 

300 PRINT 

302 PRINT "CA FAIT $5.00 POUR LE CONSEIL, ";N$;"." 

305 PRINT "LAISSEZ L'ARGENT SUR LE TERMINAL, JE VOUS PRIE." 

307 FOR I=1 TO 2000: NEXT I 

310 PRINT: PRINT: PRINT 

315 PRINT "AVEZ VOUS LAISSE L'ARGENT": 

320 INPUT GS: PRINT 

325 IF LEFTS(G$,1)="Y" THEN 350 

330 IF LEFTS(G$,1)="N" THEN 370 

335 PRINT "VOTRE REPONSE ‘“;GS$;"' ME LAISSE PERPLEXE, ";NS:"." 

340 PRINT "JE VOUS PRIF DE REPONDRE PAR ‘Y' OU PAR 'N'.": GOTO 315 

350 PRINT “HEY, ":N$:"??? VOUS N'AVEZ RIEN LAISSE DU TOUTI" 

355 PRINT "VOUS M'ESCROQUEZ ALORS QUE JE GAGNE DUREMENT MA VIE." 

360 PRINT:PRINT “C'EST DU VOL ORGANISE, ";NS;"111":PRINT 

365 GOTO 385 

370 PRINT "VOUS ETES FRANC, ";NS;", MAIS COMMENT VOULEZ VOUS QUE JE" 

375 PRINT “POURSUIVE MES ETUDES DE PSYCHOLOGIE SI MES CLIENTS NE PAIENT PAS" 
380 PRINT “MES HONORAIRES?" 

382 GOTO 390 

38S PRINT:PRINT “ALLEZ DONC FAIRE UN TOUR, ";N$;".":PRINT:PRINT:GOTO 999 
390 PRINT:PRINT “HEUREUX DE VOUSAVOIR RENCONTRE, N$:", BONNE JOURNEE .": 
400 RFM PRINT:PRINT 
999 END 
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Hexapawn 





Le jeu d'Hexapawn et une méthode 
pour apprendre une stratégie pour y jouer 
ont été décrits dans la colonne des Jeux 
mathématiques de Gardner dans le numé- 
ro de mars 1962 du Scientific American. 
La méthode décrite dans l’article était 
conçue pour une hypothétique machine 
«à apprendre » faite de boîtes d’allu- 
mettes et de perles de couleur. Elle a été 
généralisée dans le programme HEX. 

Le programme apprend par élimination 
des mauvais déplacements. Toutes les 
positions rencontrées par le programme 
ainsi que les déplacements acceptables 
sont enregistrés au tableau P $ (1). Lors- 
que le programme se trouve en présence 
d'une position inhabituelle, la position et 
tous les déplacements permis sont 
ajoutés à la liste. Si le programme perd 
une partie, il efface le déplacement qui a 
conduit à la défaite. S'il rencontre une po- 
sition à partir de laquelle tous les déplace- 
ments ont été effacés (ils ont tous conduit 
à la défaite), il efface le déplacement qui 
l'a amené là et démissionne. Par la suite, 
le programme apprend à jouer extrême- 
ment bien et devient en fait imbattable. La 
stratégie d'apprentissage pourrait être 
adaptée à d’autres jeux simples avec un 
nombre limité de déplacements (tic-tac- 
toe, petits jeux de dames ou d’autres jeux 
basés sur les échecs). 

La version originale de ce programme a 
été écrite par R.A. Kaapke. Elle a été mo- 
difiée par la suite par Jeff Dalton et enfin 
par Steve North de Creative Computing. 


HEXAPAUWN 


CREATIVE COMPUTING MORRISTOWN. NEW JERSEY 


VOULEZ VOUS LES REGLES (Y-N)7 Y 


CE PROGRAMME JOUE À L'HEXAPAWN’. HEXAPAUN SE JOUE 
AVEC DES PIONS D’ECHEC SUR UN TABLEAU 3 »x 3. LES PIONS 
SE DEPLACENT COMME AUX ECHECS - UNE CASE EN AVANT VERS 


LA NUMEROTATION DU TABLEAU EST LA SUIVANTE: 
123 
456 
789 


PAR EXEMPLE, POUR AVANCER VOTRE PION DROIT, 
IL FAUDRAIT TAPER 9.6 EN REPONSE A LA GUESTION 


"VOUS JOUEZ 7’. AYANT L'ESPRIT SPORTIF, JE VOUS LAISSERAI 
TOUJOURS COMMENCER LE PREMIER. 


HE XAPAWN 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


*RETURN' POUR DEMARRER LA PARTIE 


x» 


Fes VOULEZ VOUS LES REGLES (Y-N)? N 
VOUS JOUEZ? 8,5 XXX 


xxx 000 
.0. 


0.0 VOUS JOUEZ? 8,5 


JE VAIS DE 1 À 4 ax 
.0. 
x 0.0 


on JE VAIS DE 1 A 4 


VOUS JOEL? 5.,3 «XX 
XO. 
-XO 0.0 
X.. 
0.0 VOUS JOUEZ? 5,3 


VOUS GAGNEZ. .XO 
VOUS GAGNEZ LA 1ERE. # . 
.0 

XXX VOUS GAGNEZ. 


. VOUS GAGNEZ LA 1ERE. 
000 
VOUS JOUEZ? 8,5 XXX 
xx» 600 
.0. 


0.0 VOUS JOUEZ? 9,6 


JE VAIS DE 1 A 5 xxx 
..0 


.XX 
x 


0.0 

VOUS JOUEZ? 7,5 
.XX 
.0. 
..0 


JE VAIS DE JA 6 


00. 

JE VAIS DE 2 A 35 
X.X 
.XO 
00. 

VOUS JOUEZ? 7,5 
x. X 


.00 
.0. 


UNE PLACE VIDE OÙ UNE CASE EN AVANT ET EN DIAGONALE POUR PRENDRE sai 

UN PION ENNEMI. SUR LE TAPIS, VOS PIONS SONT DES ‘0° 0 JE VAIS DE 1 A 3 
CEUX DE L'ORDINATEUR SONT DES ’X’, ET LES CASES VIDES DES ‘.” " 

POUR JOUER UN COUP, TAPEZ LE NUMERO DE LA POSITION QUE -.X 

VOUS QUITTEZ, SUIVI DE CELUI DE LA POSITION OÙ VOUS VOUS NE POUVEZ BOUGER, AUSSI JE GAGNE. -X0 
ALLEZ. CES NUMEROS DOIVENT ETRE J'AI +0. 


SEPARES PAR UNE VIRGULE. 


PENDANT LES PREMIERES PARTIES L'ORDINATEUR SAIT SEULEMENT SI 

LA PARTIE EST GAGNEE (LA PARTIE NULLE EST IMPOSSIBLE) 

ET COMMENT DEPLACER UN PION. 

AU DEPUT IL N'A PAS DE STRATEGIE ET JOUE AU HASARD. 

CEPENDANT, IL PROGRESSE A CHAQUE PARTIE. DE CE FAIT GAGNER 
DEVIENT DE PLUS EN PLUS DIFFICILE. DE PLUS, POUR LIMITER VOTRE 
AVANTAGE INITIAL, LA STRATEGIE GAGNANTE NE VOUS SERA PAS INDIQUEEE 
ET IL VOUS FAUDRA LA TROUVER EN JOUANT. 


*RETURN’ POUR LA SUITE 


GAGNE 1 ET VOUS 1 SUR UN TOTAL DE 2 PARTIES. 


VOUS NE POUVEZ BOUGER, AUSSI JE GAGNE. 


aus J'AI GAGNE 1 ET VOUS 1 SUR UN TOTAL DE 2 PARTIES. 
000 
VOUS JOUEZ? 8,5 xxx 
xxx 000 
.0. 
0.0 VOUS JOUEZ? 
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1 PRINT CHR$(26):TAB(32);"HEXAPAWN" 
2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
3 PRINT:PRINT:PRINT 
4 REM HEXAPAWN:  INTERPRETATION DU JFU DE L'HEXAPION TEL QUE MARTIN GARDNER 
5 REM L'A PRESENTF DS "LA PENDAISON IMPREVUE ET AUTRES RECREATIONS MATHEMATI- 
6 REM OUES", CHAP.B: UNE MACHINE EN BOITES D'ALLUMETTES QUI APPREND À JOUER 
7 REM VERSION ORIGINALE POUR LE SYSTEME TIMESHARE H-P PAR R.A. KAAPKE 5/5/76 
B REM INSTRUCTIONS DE JEFF DALTON 
Q RFM CONVERSION EN BASIC MITS PAR STEVE NORTH 
10 DIM B(19,9),M(19,4),S(9),PS(3) 
15 W=0: L=0 
20 DEF FNR(X)=-3#*(X=1)-(X=3)-4*(X=6)-6*(X=4)-7*(X=9)-9*(X=7)+FNS(X) 
25 DEF FNS(X)=-X*(X=2 OR X=5 OR X=8) 
30 DEF FNM(Y)=Y-INT(Y/10)*10 
35 P$="x.0" 
40 FOR 1=1 TO 19: FOR J=l TO 9: READ B(I,J): NEXT J: NEXT I 
45 FOR I=1 TO 19: FOR J=1 TO 4: READ M(1,J): NEXT J: NEXT 1 
50 PRINT "VOULEZ VOUS LES RFGLES (Y-N)"; 
60 INPUT AS 
70 AS=LEFTS(AS,1) 
RO IF A$="Y" THEN 2000 
90 IF AS$<>"N" THEN 50 
100 X=0: Y=0 
: S(5)=0: S(6)=0 
1: S(2 1: S(3)=-1 
: S(B)=1: S(9)=1 
115 GOSUR 1000 
120 PRINT "VOUS JOUEZ"; 
121 INPUT M1,M2 
122 IF MI=INT(MI)AND M2=INT(M2)AND M1>0 AND M1<10 AND M2>0 AND M2<10 THEN 130 
123 PRINT "COORDONNFES FAUSSES." 
124 GOTO 120 
130 IF S(M1)=1 THEN 150 720 IF FNR(I)=1 THEN 780 
140 PRINT "COUP INTERDIT.": GOTO 120 730 IF 1<7 THEN 760 
150 IF S(M2)=1 THEN 140 740 IF S(5)=-1 THEN 120 
160 IF M2-Ml<>-3 AND S(M2)<>-1 THEN 140 750 GOTO 790 
170 IF M2>M1 THEN 140 760 IF S(2)=-1 THEN 120 
180 IF M2-Ml=-3 AND (S(M2)<>0) THEN 140 770 GOTO 790 
1A5 IF M2-Ml<-4 THEN 140 780 IF S(1-2)=-1 OR S(I-4)=-1 THEN 120 
186 IF Ml=7 AND M2=3 THEN 140 790 NEXT I 
190 S(M1)=0 RON PRINT "VOUS NE POUVEZ ROUGER, AUSSI “: 
200 S(M2)=1 810 GOTO 870 
205 GOSUR 1000 820 PRINT “VOUS GAGNEZ." 
210 IF S(1)=1 OR S(2)=1 OR S(3)=1 THEN 820 R30 M(X,Y)=0 
220 FOR I=l TO 9 840 L=L41 
221 IF S(1)=-1 THEN 230 850 IF L4W=1 AND W=1 THEN PRINT "JF GAGNE LA JlERE ." ELSF IF L+W=1 AND L=] 
222 NEXT I THEN PRINT "VOUS GAGNEZ LA lERE." ELSE 
223 GOTO 820 PRINT “J'AI GAGNE";W;"ET VOUS";L;"SUR UN TOTAL DE";L+W;"PARTIES." 
230 FOR I=1 TO 9 851 PRINT 
240 IF S(I1)<>-1 THEN 330 860 GOTO 100 
250 IF S(1+3)=0 THEN 350 870 PRINT “JE GAGNE." 
260 IF FNR(I)=1 THEN 320 880 W=W4+1 
270 IF 1>3 THEN 300 890 GOTO 850 
2RQ 1F S(5)=1 THEN 350 900 DATA -1,-1,-1,1,0,0,0,1,1,-1,-1,-1,0,1,0,1,0,1 
290 GOTO 330 905 DATA -1,0,-1,-1,1,0,0,0,1,0,-1,-1,1,-1,0,0,0,1 
300 IF S(8)=1 THEN 350 910 DATA -1,0,-1,1,1,0,0,1,0,-1,-1,0,1,0,1,0,0,1 
310 GOTO 330 915 DATA 0,-1,-1,0,-1,1,1,0,0,0,-1,-1,-1,1,1,1,0,0 
320 IF S(1+42)=1 OR S(1+4)=1 THEN 350 920 DATA -1,0,-1,-1,0,1,0,1,0,0,-1,-1,0,1,0,0,0,1 
330 NEXT 1 925 DATA O0,-1,-1,0,1,0,1,0,0,-1,0,-1,1,0,0,0,0,1 
340 GOTO 820 930 DATA 0,0,-1,-1,-1,1,0,0,0,-1,0,0,1,1,1,0,0,0 
350 FOR I=1 TO 19 935 DATA 0,-1,0,-1,1,1,0,0,0,-1,0,0,-1,-1,1,0,0,0 
360 FOR J=1 TO 3 940 DATA 0,0,-1,-1,1,0,0,0,0,0,-1,0,1,-1,0,0,0,0 
370 FOP K=3 TO 1 STEP -1 945 DATA -1,0,0,-1,1,0,0,0,0 
380 T((J-1)*3+K)=B(1,(J-1)#344-K) 950 DATA 24,25,36,0,14,15,36,0,15,35,36,47,36,58,59,0 
390 NEXT K 955 DATA 15,35,36,0,24,25,26,0,26,57,58,0 
400 NEXT J 960 DATA 26,35,0,0,47,48,0,0,35,36,0,0,35,36,0,0 
410 FOR J=] TO 9 965 DATA 36,0,0,0,47,58,0,0,15,0,0,0 
420 IF S(J)<>R(1,J) THEN 460 970 DATA 26,47,0,0,47,58,0,0,35,36,47,0,28,58,0,0,15,47,0,0 
430 NEXT J 1000 PRINT 
440 R=0 1010 FOR I=1 TO 3 
450 GOTO 540 1017 PRINT TARB(10);:" == Traducteur- CE TAB precedait le MINS de 1030 
460 FOR J=1 TO 9 1020 FOR J=] TO 3 
470 IF S(J)<>T(J) THEN 510 1030 PRINT MIDS(PS,S((1-1)*3+3)+2,1); 
480 NEXT 1040 NEXT J 
490 R=1 1050 PRINT 
500 GOTO 540 1060 NEXT I 
510 NEXT I 1070 PRINT 
511 REM RAPPELEZ VOUS QUE CETTE BOUCLE NE PEUT SE TERMINER 10R0 RETURN 
512 PRINT “CONFIGURATION ILLEGALLE." 2000 PRINT: PRINT “CE PROGRAMME JOUE À L'HEXAPAWN'. HEXAPAWN SE JOUE" 
530 STOP 2010 PRINT "AVEC DES PIONS D'ECHEC SUR UN TABLEAU 3 x 3. LES PIONS" 
540 X=1I 2020 PRINT "SE DEPLACENT COMME AUX ECHECS - UNE CASE FN AVANT VERS" 
550 FOR I=1 TO 4 2030 PRINT "UNE PLACE VIDE OU UNE CASE EN AVANT ET EN DIAGONALE POUR PRENDRE" 
560 IF M(X,1)<>0 THEN 600 2040 PRINT “UN PION ENNEMI. SUR LE TAPIS, VOS PIONS SONT DES ‘O'" 
570 NEXT I 2050 PRINT "CEUX DE L'ORDINATEUR SONT DES ‘X', ET LES CASES VIDES DES '.'" 
580 PRINT "J'ARBANDONNE." 2060 PRINT “POUR JOUER UN COUP, TAPEZ LE NUMERO DE LA POSITION QUE" 
590 GOTO 820 2070 PRINT “VOUS QUITTEZ, SUIVI DE CELUI DE LA POSITION OU VOUS" 
600 Y=INT(RND(1)*4+1) 2080 PRINT "ALLEZ. CES NUMEROS DOIVENT FETRE" 
601 IF M(X,Y)=0 THEN 600 2090 PRINT "SEPARES PAR UNE VIRGULE.": PRINT 
610 IF R<>O THEN 630 2100 PRINT “PENDANT LES PREMIERES PARTIES L'ORDINATEUR SAIT SEULEMENT S1" 
620 PRINT "JE VAIS DE ";STR$S(INT(M(X,Y)/10));" A “:;STRS(FNM(M(X,Y))) 2105 PRINT "LA PARTIE EST GAGNEE (LA PARTIE NULLE EST IMPOSSIBLF)" 
622 S(INT(M(X,Y)/10))=0 2107 PRINT “FT COMMENT DEPLACER UN PION." 
623 S(FNM(M(X,Y)))=-1 2110 PRINT "AU DEBUT IL N'A PAS DE STRATEGIE ET JOUE AU HASARD." 
624 GOTO 640 2120 PRINT "CEPENDANT, IL PROGRESSF À CHAQUE PARTIE. DE CE FAIT GAGNER" 
630 PRINT "JE VAIS DE ";STRS(FNR(INT(M(X,Y)/10)));" À *; 2130 PRINT “DEVIENT DE PLUS EN PLUS DIFFICILE. DE PLUS, POUR LIMITER VOTRE" 
631 PRINT STRS(FNR(FNM(M(X,Y)))) 2140 PRINT "AVANTAGE INITIAL, LA STRATEGIE GAGNANTE NE VOUS SERA PAS INDIQUEFE" 
632 S(FNR(INT(M(X,Y)/10)))=0 2150 PRINT "ET IL VOUS FAUDRA LA TROUVER EN JOUANT." 
633 S(FNR(FNM(M(X,Y))))=-1 2153 PRINT:LINE INPUT"'RETURN' POUR LA SUITF";RFSSFS 
640 GOSUR 1000 2160 PRINT CHRS(26): PRINT "LA NUMEROTATION DU TABLEAU EST LA SUIVANTF:" 
641 1F S(7)=-1 OR S(R)=-1 OR S(9)=-1 THEN 870 2170 PRINT TAB(10);:"123": PRINT TAB(10);:"456": PRINT TAB(10); "789" 
650 FOR I=1 TO 9 21R0 PRINT: PRINT "PAR EXEMPLE, POUR AVANCER VOTRE PION DROIT," 
660 IF S(1)=1 THEN 690 2190 PRINT “IL FAUDRAIT TAPER 9,6 EN REPONSE À LA QUESTION" 
670 NEXT I 2200 PRINT “'‘VOUS JOUFZ ?'. AYANT L'ESPRIT SPORTIF, JE VOUS LAISSERAI" 
680 GOTO 870 2210 PRINT "TOUJOURS COMMENCER LE PREMIER.": PRINT 
690 FOR I=l TO 9 2213 LINE INPUT"'RETURN' POUR DEMARRER LA PARTIE";BESSES:PRINT CHRS (26) 
700 IF S(I)<>1 THEN 790 2220 GOTO 100 
710 IF S(1-3)=0 THEN 120 9999 FND 
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HI-Lo (Haut-Bas) 





Ce jeu est une adaptation du jeu 
GUESS; cependant, au lieu de simple- 


me 


vous gagnez dans ce jeu des dollars, lors- 
que vous devinez le nombre. Les direc- 
tives, données par l’auteur du jeu, sont les 
suivantes : 


1. 


. Vous aurez droit à 6 essais pour devi- 


. Après chaque essai, l'ordinateur vous 


. Si vous n'avez pas deviné le montant 


. Si vous devinez le montant exact au 


. Après chaque série d'essais vous pou- 


nt deviner un nombre entre 1 et 100, 


Il y a une somme d'argent comprise 
entre 1 et 100 dollars dans la cagnotte 
« HI-LO ». 


ner le montant de l'argent de la ca- 
gnotte. 


dira si votre proposition était trop haute 
ou trop basse. 


exact de la somme après vos 6 essais, 
l'ordinateur imprimera le montant de la 
cagnotte. 


bout de vos 6 essais, l'ordinateur enre- 
gistrera ce montant. 


vez, Soit rejouer soit arrêter le pro- 
gramme. Si vous rejouez, une autre 
somme d'argent constituera la ca- 
gnotte. 


. Si vous gagnez plus d'une fois, vos 


gains seront alors totalisés. 


L'auteur est Dean Altman de Fort 


Worth, Texas. 
10 PRINT TAB(34);"HI LO":PRINT 
20 PRINT TARB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


30 PRINT: PRINT: PRINT 

100 PRINT "VOICI LE JEU DE HI-LO.":PRINT 

110 PRINT "VOUS AVEZ 6 COUPS POUR TROUVER LE MONTANT DF LA SOMME CACHEE" 
120 PRINT "DANS LA CAGNOTTE ‘HI LO' QUI VARIE ENTRE l FT 100 DOLLARS. SI VOUS" 
130 PRINT "TROUVEZ LE CHIFFRE, VOUS GAGNEZ TOUT L'ARGENT DF LA CAGNOTTEI" 
140 PRINT "VOUS POUVEZ ALORS ESSAYER D'AUGMENTER VOTRE GAIN. NEAMMOINS, " 
150 PRINT "SI VOUS NE TROUVEZ PAS LE MONTANT, LA PARTIE PREND FIN.":PRINT 
160 R=0 

170 B=0:PRINT 

180 Y=INT(1OO*RND(1)) 

200 PRINT “QUE PROPOSEZ VOUS"; 

210 INPUT À 

220 B=R+] 

230 IF A=Y THFN 300 

240 IF A>Y THEN 270 

250 PRINT "VOTRE SUGGESTION EST TROP BASSF.":GOTO 280 

270 PRINT "VOTRE PROPOSITION EST TROP HAUTE." 

280 PRINT:IF B<6 THEN 200 

290 PRINT "VOUS L'AVEZ RATE...PAS DE CHANCF...LE NOMBRF ETAIT":Y:CHRS(8):"." 
295 R=0:GOTO 350 

300 PRINT "VOUS L'AVEZI!IIIILIIII VOUS GAGNEZ": Y:"DOLLARS." 

310 R=R+Y 

320 PRINT “EN TOUT VOUS AVFZ GAGNE";R;"DOLLARS." 

350 PRINT:PRINT “VOUS REMETTFZ CA (Y OÙ N)": 

360 INPUT AS:1F LEFTS(AS,1)="Y" THEN 170 

380 PRINT:PRINT "SALUT. J'ESPERE QUF VOUS VOUS ETES BIEN AMUSEI!1!" 

390 END 
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HI LO 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


VOICI LE JEU DE HI-LO. 

VOUS AVEZ 6 COUPS POUR TROUVER LE MONTANT DE LA SOMMF CACHEE 

DANS LA CAGNOTTE ‘HI LO' QUI VARIE ENTRE 1 ET 100 DOLLARS. SI VOUS 
TROUVEZ LE CHIFFRE, VOUS GAGNEZ TOUT L'ARGENT DE LA CAGNOTTEI 


VOUS POUVEZ ALORS ESSAYER D'AUGMENTER VOTRE GAIN. NEAMMOINS, 
SI VOUS NE TROUVEZ PAS LE MONTANT, LA PARTIE PREND FIN. 


QUE PROPOSEZ VOUS? 50 
VOTRE PROPOSITION EST TROP HAUTE. 


QUF PROPOSEZ VOUS? 25 
VOTRE PROPOSITION EST TROP HAUTE. 


QUF PROPOSFZ VOUS? 12 
VOTRE SUGGESTION EST TROP BASSE. 


QUE PROPOSEZ VOUS? 18 
VOTRE SUGGESTION EST TROP BASSE. 


QUF PROPOSEZ VOUS? 21 
VOTRE SUGGESTION EST TROP BASSE. 


QUE PROPOSEZ VOUS? 23 
VOTRE SUGGESTION EST TROP BASSE. 


VOUS L'AVEZ RATE...PAS DE CHANCE...LE NOMBRE FETAIT 24. 
VOUS REMETTEZ CA (Y OÙ N)? Y 


QUE PROPOSEZ VOUS? 50 
VOTRE PROPOSITION EST TROP HAUTE. 


QUE PROPOSEZ VOUS? 25 
VOTRE SUGGESTION EST TROP BASSE. 


QUE PROPOSFZ VOUS? 38 
VOTRE PROPOSITION EST TROP HAUTE. 


QUE PROPOSEZ VOUS? 31 
VOTRE PROPOSITION EST TROP HAUTE. 


QUE PROPOSEZ VOUS? 28 
VOTRE SUGGESTION EST TROP BASSE. 


QUE PROPOSEZ VOUS? 30 

VOUS L'AVEZIHI11111II VOUS GAGNEZ 30 DOLLARS. 
EN TOUT VOUS AVFZ GAGNE 30 DOLLARS. 

VOUS REMETTEZ CA (Y OÙ N)? N 


SALUT. J'ESPERE QUE VOUS VOUS ETES BIEN AMUSE!!I! 


High 1-Q 





(Le solitaire) 


Voici une version informatisée d’un 
vieux jeu de logique européen : le soli- 
taire. Vous disposez d’un support à trous, 
en croix, comportant des fiches dans tous 
les trous, sauf celui du milieu. Le but du 
jeu est d'enlever les 32 fiches, ou le plus 
possible, en occupant un trou vide et en 
enlevant ensuite la fiche que vous avez 
« sautée ». 

Il y a différentes stratégies pour gagner 
et, bien sûr, chaque stratégie peut être 
jouée de 8 façons différentes. Pouvez- 
vous trouver un vainqueur cohérent ? 

Charles Lund a écrit ce jeu lorsqu'il était 
à l'Ecole Américaine de La Haye, Pays- 

as. 


L'exécution de ce programme se fait sur imprimante 
(LPRINT). 


HI-Q 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


VOICI LE TABLFAU: 


POUR GAGNER DU TEMPS, UNE VERSION COMPACTE DU TABLEAU SERA 
UTILISEE POUR LA PARTIE. REPORTEZ VOUS AU TABLEAU IMPRIME POUR 


LES NUMEROS DES FICHES. OK, COMMENCONS. 


O0 


VOUS DEPLACEZ QUELLE FICHE? 59 
POUR LA METTRE OU? 41 


00 — 


vous 
POUR 


Vous 
POUR 


VOUS 
POUR 


vous 
POUR 


vous 
POUR 
COUP 
vous 
POUR 


VOUS 
POUR 


vous 
POUR 


vous 
POUR 
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DEPLACEZ QUELLE FICHE? 32 
LA METTRE OU? 50 


-0-00-— 


DEPLACEZ QUELLE FICHE? 43 
LA METTRE OU? 41 


0-0 
O=—— 
-0- 


DEPLACEZ QUELLE FICHE? 34 
LA METTRE OU? 32 


O——_—— 
00 
—-00 


DEPLACEZ QUELLE FICHE? 31 
LA METTRE OU? 33 


0 
—00 


Li 
LA 
o 1! 
1 0 
Lt 
Oo 1! 
11 


DEPLACEZ QUELLE FICHE? 41 
LA METTRE OU? 43 
INTERDIT, RECOMMENCEZ... 
DEPLACEZ QUELLE FICHE? 40 
LA METTRE OU? 42 


00. 
-0-00—-— 
—00 


DEPLACEZ QUELLE FICHE? 14 
LA METTRE OU? 32 


00 
-0—-0—-00 
-00 


DEPLACEZ QUELLE FICHE? 13 
LA METTRE OU? 31 


0-00 
-0-0-090 
—-00o 


DEPLACEZ QUELLE FICHE? 32 
LA METTRE OU? 34 


---0-00 
-0-0000 
-0— 


1 
1 
o 
1 
1 
Ûl 
1 


Vous 
POUR 


VOUS 
POUR 


VOUS 
POUR 
COUP 
VOUS 
POUR 


VOUS 
POUR 


VOUS 
POUR 


vous 
POUR 


vous 
POUR 
Coup 
VOUS 
POUR 


DEPLACEZ QUELLE FICHE? 35 
LA METTRE OU? 33 


0-00 
-0-0000 
—-00 
--0o 


DEPLACEZ QUELLE FICHE? 30 
LA METTRE OU? 32 


--0 

——-0000 

-0-0—00 
—-00 
--0o 


DEPLACEZ QUELLE FICHE? 50 
LA METTRE OU? 40 
INTERDIT, RECOMMENCEZ... 
DEPLACEZ QUELLE FICHE? 58 
LA METTRE OU? 40 


--0o 

00-000 

—0—-0-00 
—-00o 
--o 


DEPLACEZ QUELLE FICHE? 51 
LA METTRE OU? 49 


--0 
-0—--000 
—-000—-00 


Oo 
oO 
1 


--0o 


Ûl 
[l 
Ûl 
1 
( 
ol 
0 


DEPLACEZ QUELLE FICHE? 48 
LA METTRE OU? 50 


o-0 

-00-000 

-0-0-00 
-o0 
--0o 


1 
0 
! 
Êl 
o 
(l 
1 


DEPLACEZ QUELLE FICHE? 53 
LA METTRE OU? 51 


O—-0 
00-000 
—-0—-0-00 

000 

Oo—o 


DEPLACEZ QUELLE FICHE? 42 
LA METTRE OU? 24 
INTERDIT, RECOMMENCEZ... 
DEPLACEZ QUELLE FICHE? 51 
LA METTRE OU? 49 


0-0 
—-0--000 
—-000-00 
Om 

000 

0-0 


VOUS DEPLACEZ QUELLE FICHE? 39 VOUS DEPLACEZ QUELLE FICHE? 67 350 REM ***INPUT COUPS ET VERIFICATION 





POUR LA METTRE OU? 41 POUR LA METTRE OU? 69 360 FOR W=1 TO 33 
370 RFAD M 
oo! oo! 38O DATA 13,14,15,22,23,24,29,30,31,32,33,34,35,38,39,40,41 
001! o01! 390 DATA 42,43,44,47,48,49,50,51,52,53,58,59,60,67,68,69 
1001100 1010000 400 B(M)=-7: NEXT W 
1001101 1010001 410 B(41)=-3 
1010000 1010100 420 INPUT “VOUS DEPLACEZ QUELLE FICHE";2Z 
oo! 000 430 1F R(Z)=-7 THEN 450 
Lil oo! 440 PRINT “COUP INTERDIT, RECOMMENCEZ...": GOTO 420 
450 INPUT “POUR LA METTRE OU";P 
VOUS DEPLACEZ QUELLE FICHE? 42 460 IF B(P)=0 THEN 440 
POUR LA METTRE OU? 40 VOUS DEPLACEZ QUELLE FICHE? 15 470 IP :B(P)="7 THEN ‘440 
POUR LA METTRE OU? 33 4R0 IF Z=P THEN 420 
001! 490 IF ((Z+P)/2)=INT((Z+P)/2) THEN 510 
oo 000 500 GOTO 440 L 
1001100 0 0 d 510 IF (ARS(Z-P)-2)*(ARS(Z-P)-1R)<>0 THEN 440 
1010001 1010100 520 GOSUB 730 
1010000 1.0 4 0:0:0 1 530 GOSUB 560 
001! 1010100 540 GOSUR 990 
Lli 000 550 GOTO 420 
001! 560 RFM *** AFFICHAGE TABLEAU 
VOUS DEPLACEZ QUELLE FICHE? 33 570 FOR X=1 TO 9 
POUR LA METTRE OU? 31 580 FOR Y=1 TO 9 
_1)*(X-9)*(Y-1)*(Y-9)= 
oo! VOUS DEPLACEZ QUELLE FICHE? 40 ou a ne 620 
POUR LA METTRE OU? 58 L 
001 610 1F (Y-4)*(Y-5)*(Y-6)=0 THFN 640 
[010000 000 620 RFM 
1010001 000 630 GOTO 680 
1010000 640 1F T(X,Y)<>5 THEN 670 
o01! 1010100 650 PRINT TAR(Y*2);"1"; 
Liu 1000001! 660 GOTO 680 
1000100 670 PRINT TAB(Y*2);"O": 
VOUS DEPLACEZ QUELLE FICHE? 69 100 680 REM 
POUR LA METTRE OU? 51 9951 690 NEXT Y 
700 PRINT 
oo! 710 NEXT X 
001! LA PARTIE EST TERMINEE. 720 RETURN 
1010000 IL VOUS RESTE 9 FICHES. 730 REM ***MISE A JOUR TABLEAU 
1010001 740 C=1l: FOR X=1 TO 9 
1010100 ON REMET CA (Y OÙ N)? N 750 FOR Y=1 TO 9 
000 760 IF C<>Z THEN 950 
1-0 AU REVOIR POUR LE MOMENT. 770 IF C+2<>P THEN 820 
780 IF T(X,Y+1)=0 THEN 440 
790 T(X,Y+2)=5 
800 T(X,Y+1)=0: R(C4+1)=-3 
810 GOTO 930 
820 IF C+1R<>P THEN 860 
830 IF T(X+1,V)=0 THEN 440 
R40 T(X42,Y)=5: T(X4+41,Y)=0: B(C+9)=-3 
A50 GOTO 930 
860 IF C-2<>P THEN 900 
a 870 IF T(X,Y-1)=0 THEN 440 
BRO T(X,Y-2)=5: T(X,Y-1)=0: R(C-1)=-3 
890 GOTO 930 
900 IF C-1A<>P THEN 950 
910 IF T(X-1,Y)=0 THEN 440 
920 T(X-2,Y)=5: T(X-1,Y)=0: B(C-9)=-3 
930 B(Z)=-3: B(P)=-7 
940 T(X,Y)=0: GOTO 980 
950 C=C+1 
960 NEXT Y 
10 PRINT CHRS(26): PRINT TAB(33);"HI-Q":PRINT 970 NFXT X 
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 98O RETURN 
22 PRINT:PRINT 990 REM**+* VERIFICATION SI PARTIE TERMINÉE 
30 PRINT "HI-Q EST PUZZLE QUI SE JOUE SUR UN TABLEAU NUMEROTE. POUR AVOIR" 1000 F=0 
31 PRINT "UNE COPIE SUR PAPIER DU TABLEAU, VERIFIEZ QUE L'IMPRIMANTE EST SOUS" 1010 FOR R=2 TO 8 
32 PRINT "TENSION ET LE PAPIER BIEN REGLE. PUIS TAPEZ ‘RETURN': ";:INPUT XXS 1020 FOR C=2 TO & 
40 DIM R(70),T(9,9) 1030 IF T(R,C)<>5 THEN 1210 
45 PRINT:PRINT:PRINT "---  J'imprime ---":PRINT:PRINT 1040 F=F41 
50 LPRINT "VOICI LE TABLEAU:":LPRINT 1050 FOR A=R-] TO R+1 
60 LPRINT " ll ! 1" 1060 T=0 
70 LPRINT * 13 14 15": LPRINT 1070 FOR B=C-1 TO C+1 
80 LPRINT " [ 1 1" 1080 T=T4T(A,R) 
90 LPRINT " 22 23 24": LPRINT 1090 NEXT BR 
100 LPRINT “I 1 ! ll 1 L ts 1100 IF T<>10 THEN 1120 
110 LPRINT "29 30 31 32 33 34 35": LPRINT 1110 IF T(A,C)<>0 THEN 1330 
120 LPRINT "I l l l l ! 1" 1120 NFXT À 
130 LPRINT "38 39 40 41 42 43 44": LPRINT 1130 FOP X=C-] TO C+1 
140 LPRINT "| ! 1 1 1 ! L 1140 T=0 
150 LPRINT "47 48 49 50 51 52 53": LPRINT 1150 FOR Y=R-l TO R+1 
160 LPRINT " l ! re 1160 T=T4T(Y,X) 
170 LPRINT " 58 59 60": LPRINT 1170 NEXT Y 
180 LPRINT " L ! Le 1180 IF T<>10 THEN 1200 
190 LPRINT " 67 68 69": LPRINT 1190 IF T(R,X)<>0O THEN 1330 
195 LPRINT CHRS(12) 1200 NEXT X 
200 PRINT “POUR GAGNER DU TEMPS, UNE VERSION COMPACTE DU TABLEAU SERA" 1210 NEXT C 
210 PRINT "UTILISEE POUR LA PARTIE. REPORTEZ VOUS AU TARBLEAU IMPRIME POUR" 1220 NEXT R 
220 PRINT "LES NUMEROS DES FICHES. OK, COMMENCONS." 1230 REM ***LA PARTIE EST TERMINEE 
230 REM **#*ROUTINE DU TABLEAU 1240 PRINT "LA PARTIE EST TERMINEE." 
240 FOR R=1 TO 9 1250 PRINT “IL VOUS RESTE";F;"FICHES." 
250 FOR C=] TO 9 1260 IF F<>l THEN 1290 
260 IF (R-4)#*(R-5)*(R-6)=0 THEN 300 1270 PRINT "BRAVOI C'EST UN SCORE PARFAITI" 
270 IF (C-4)*(C-5)*(C-6)=0 THEN 300 1280 PRINT "CONSERVEZ CE PAPIER COMME PREUVE DE VOTRE PERFORMANCE! " 
280 T(R,C)=- 1290 PRINT: INPUT "ON REMET CA (Y OU N)":AS$ 
290 GOTO 320 1300 1F LFFT$(A$,1)="N" THEN 1340 
300 1F (R-1)*(C-1)#*(R-9)#*(C-9)=0 THEN 280 1310 RESTORE: GOTO 230 
310 T(R,C)=5 1320 STOP 
320 NEXT C 1330 RETURN 
330 NFXT R 1340 PRINT: PRINT “AU REVOIR POUR LE MOMENT.": PRINT 
340 T(5,5)=0: GOSUB 560 1350 END 


Horserace 
(Course de chevaux) 





Ce programme simule une course de 
chevaux d'un mile pour des pur-sang de 
trois ans. Jusqu'à dix personnes peuvent 
faire un pari pour la course, ne dépassant 
pas $ 10 000. Cependant, vous ne pou- 
vez miser que pour gagner. Vous faites 
votre pari en entrant le numéro du cheval 
et le montant de votre pari que vous sépa- 
rez par une virgule. L'ordinateur vous 
montre ensuite les positions des chevaux 
à sept endroits différents autour de la piste 
et au finish. Les récompenses et les gains 
sont affichés à la fin. 

Le programme a été écrit par Laurie 
Chevalier lorsqu'elle était étudiante à 
South Portland High School. 





HORSERACE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


BIENVENUE AU CHAMP DE COURSES DE SOUTH PORTLAND 2222 
...PROPRIETAIRE LAURIE CHEVALIER 

VOULEZ VOUS DES INSTRUCTIONS? Y XXXXDEPARTXXXX XXXXDEPARTXXXX 

ON PEUT ETRE 10 A JOUER. UN TABLEAU DES COTATIONS SERA AFFICHE. VOUS 

POUVEZ PARIER JUSQU'A 100000 SUR UN CHEVAL PRECIS. 


PENDANT LA COURSE, LES CHEVAUX SONT REPRESENTES PAR LEURS NUMEROS 8 8 
LES CHEVAUX COURENT VERS LE BAS DU PAPIER (OU DE L'ECRAN) 1 4 
6 4 
COMBIEN DE PARIEURS? 1 
À LAPPARITION DE ‘?', TAPEZ LE NOM 3 5 
? JULOT 2 6 5 
2 3 
CHEVAL NUMERO COTE 7 1 7, <À 
JULOT 1 11.6667 :1 
ASPIRATEUR II 2 8.75 :1 
VISTAMBOIR 3 8.75 :1 
CATHERINE 4 5.83333 :1 
ARTICHAUT 5 35 :1 
CANASSON III 6 4.375 :1 
JOLIF LINOTTE 7 7 :1 
PETIT MATIN 8 8.75 :1 
Ssesssessssesss2mS ss elSssesssss-sosesessessses XXXXARRIVEEXXXX XXXXARRIVEEXXXX 
FAITES VOS JEUX...NR DE CHEVAL, PUIS MISE 
JULOT? 1,100 
12345678 
XXXXDEPARTXXXX XXXXDFPARTXXXX XXXXDEPARTXXXX 
8 4 6 
3:15 
7 2 1 
4 
8 
5 6 
2 8 
7,3 
1 
4 
5 
3 6 
2 
7 1 
XXXXARRIVEEXXXX XXXXARRIVEEXXXX XXXXARRIVEEXXXX 
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90 
100 
110 
120 
210 
220 
230 
240 
250 
260 
265 
270 
280 
230 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
45 
460 
470 
480 
490 
500 
510 
520 
530 


XXXXDEPARTXXXX 


w um 


2 
7 
XXXXARRIVEEXXXX 


VOICI LES RESULTATS DE LA COURSE: 


LA PLACE l AU CHEVAL NO. 1 AT 11.6667 :1 
LA PLACE 2 AU CHEVAL NO. 7 AT 7 :1 
LA PLACE 3 AU CHEVAL NO. 2 AT 8.75 :1 
LA PLACE 4 AU CHEVAL NO. 4 AT 5.83333 :1 
LA PLACE 5 AU CHEVAL NO. 6 AT 4.375 :1 
LA PLACE 6 AU CHEVAL NO. 3 AT 8.75 :1 
LA PLACE 7 AU CHEVAL NO. 5 AT 35 :1 
LA PLACE 8 AU CHEVAL NO. 8 AT 8.75 :1 
JULOT WINS $ 1166.67 
VOULEZ VOUS PARIER SUR LA PROCHAINE COURSE? 
Y OU N? N 

PRINT CHR$(26)'-- Ajout traducteur 


PRINT TAB(31 ) :"HORSERACE" 
PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, 
PRINT:PRINT: PRINT 


NEW JERSEY" 


DIM S(8) 

PRINT"BIENVENUE AU CHAMP DE COURSES DFE SOUTH PORTLAND" 

PRINT" ...PROPRIETAIRE LAURIE CHEVALIFR" 

PRINT "VOULEZ VOUS DES INSTRUCTIONS"; 

INPUT X$ 

IF LEFTS(XS,1)="N" THEN 320 

IF LEFT$S(X$,1)="n" THEN 320 

PRINT"ON PEUT ETRE 10 À JOUER. UN TABLEAU DES COTATIONS SERA AFFICHE. VOUS" 


PRINT"POUVEZ PARIER JUSQU'A 100000 SUR UN CHEVAL PRECIS." 

PRINT "PENDANT LA COURSE, LES CHEVAUX SONT REPRESENTES PAR LEURS NUMEROS" 
PRINT"LES CHEVAUX COURENT VERS LE BAS DU PAPIER (OU DE L'ECRAN)1" 

PRINT 

PRINT "COMBIEN DE PARIEURS"; 
INPUT C 

PRINT “A LAPPARITION DE '?', 
FOR As=l TO C 

INPUT WS$(A) 

NEXT A 

PRINT 
PRINT"CHEVAL", , "NUMERO", "COTE" 
PRINT 

FOR I=l TO 8: 
LET R=0 

FOR A=l TO 8 
LET D(A)=INT(10*RND(1)+1) 
NEXT À 

FOR A=l TO 8 

LET R=R+D(A) 

NEXT À 

LET V$(1)="JULOT" 

LET V$(2)="ASPIRATEUR 11" 
LET V$(3)="VISTAMBOIR" 
LET V$(4)="CATHERINE"* 

LET V$(5)="ARTICHAUT" 


TAPEZ LE NOM" 


S(1)=0: NEXT 1! 
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540 
550 
560 
570 
580 
590 
595 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1203 
1210 
1220 
1230 
1240 
1242 
1243 
1244 
1245 
1250 
1270 
1272 
1280 
1290 
1300 
1310 
1312 
1320 
1330 
1340 
1350 
1355 
1366 
1370 
1372 
1374 
1376 
1380 


LET VS$(6)="CANASSON 111" 
LET VS$(7)="JOLIE LINOTTE" 
LET VS$(8)="PETIT MATIN" 
FOR N=1 TO 8 

PRINT VS(N),,N,R/D(N);":1" 
NEXT N 

N=8 





PRINT "FAITES VOS JEUX...NR DE CHEVAL, 
FOR J=1 TO C 

PRINT WS(J); 

INPUT Q(J),P(J) 

IF P(J)<1 THEN 670 

IF P(J)<100000! THEN 690 

PRINT" VOUS N'AVEZ PAS LE DROIT!" 
GOTO 630 

NEXT J 

PRINT 

PRINT"1 2 3 4 5 6 7 R" 
PRINT"XXXXDEPARTXXXX " ; 

FOR I=1 TO N 
LET M=I 

LET M(1)=M 

LET Y(M(I))=INT(100*RND(1)+1) 

IF Y(M(I))<10 THEN 860 

LET S=INT(R/D(1)+.5) 
IF Y(M(I1))<S+17 THEN 
IF Y(M(I1))<S+37 THEN 
IF Y(M(1))<S+57 THEN 
IF Y(M(1))<77+S THEN 
IF Y(M(1))<S+92 THEN 
LET Y(M(1))=7 
GOTO 970 

LET Y(M(I))=1 
GOTO 970 

LET Y(M(1))=2 
GOTO 970 

LET Y(M(1))=3 
GOoTO 970 

LET Y(M(1))=4 
GOTO 970 

LET Y(M(1))=5 
GOTO 970 

LET Y(M(1))=6 
NEXT I 

LFT M=I 
FOR I1=1 TO R 

LET S(M(1))=S(M(1))+Y(M(1)) 

NEXT I 

LET I=1 

FOR L=] TO 8 

FOR I=1 TO 8-L 

IF S(M(I))<S(M(1+1))THEN 1090 

LFT H=M(1) 

LET M(I1)=M(1+1) 

LET M(I+41)=H 

NEXT 1 

NEXT L 

LET T=S(M(8)) 

FOR I=] TO 8 

LET B=S(M(1))-S(M(1-1)) 

IF B=0 THEN 1190 

FOR A=1 TO R 

PRINT 

IF S(M(1))>27 THEN 1240 

NEXT À 

PRINT M(1): 

NEXT 1 

FOR Z=1 TO 2000:NEXT Z'-- Ajoute par traducteur(tenporisatior) 
FOR A=]l TO 28-T 

PRINT 

NEXT A 

PRINT"XXXXARRIVEEXXXX 

PRINT 

PRINT 


PUIS MISE" 


880 
900 
920 
940 
960 


PRINT 
IF T<28 THEN 720 
PRINT "VOICI LES RESULTATS DE LA COURSE:" 
LET 2Z9=1 
FOR 1=8 TO 1 STEP-1 
LET F=M(1) 
PRINT 
PRINT “LA PLACF";:Z29;"AU CHEVAL NO.";F,"AT ";R/D(F);":1" 
LFT Z9=794] 
NEXT I 
FOR J=1 TO C 
1F Q(J)<>M(8) THEN 1370 
LET N=Q(J) 
PRINT 
PRINT WS$(J):" WINS S":(R/D(N))*P(J) 
NEXT J 
PRINT "VOULEZ VOUS PARIER SUR LA PROCHAINE COURSE?" 


INPUT “Y OÙ N“;:0$ 
IF OS="Y" THEN PRINT CHR$(26):GOTO 380 
END 


Hurkle 





Hurkle ? Un hurkle est un animal heureux 
qui vit dans une autre galaxie sur une pla- 
nète du nom de Lirht, qui a trois lunes. Les 
hurkles sont les animaux favoris des Gwik, 
la race dominante sur Lirht et … pour en 
savoir plus, lisez « Le hurkle est un animal 
heureux », une histoire du livre À way 
home par Théodore Sturgeon. 

Dans ce programme, un hurkle timide 
se cache dans une grille de 10 sur 10. Sa 
demeure est le point 0,0 dans le coin sud- 
ouest. Vous essayez de deviner la posi- 
tion où se cache le Hurkle en donnant 
deux nombres entiers séparés par une vir- 
gule. Après chaque tentative, l'ordinateur 
vous dira la direction approximative dans 
laquelle il faut chercher le Hurkle. Vous 
avez cinq essais pour le trouver. Vous 
pouvez changer ce nombre à la ligne 110, 
bien que 4 essais suffisent amplement. 

Ce programme a été écrit par Bob Al- 
brecht de la People's Computer Compa- 


ny. 


HURKLE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


UN HURKLE SE CACHE DANS UNE GRILLE 10 PAR 10 . SA DEMEURE 

EST LE POINT 0,0 . TOUT POINT DE LA GRILLE EST REPRESENTE PAR 
DEUX NOMBRES ENTIERS SEPARES PAR UNE VIRGULE. ESSAYEZ DE 
TROUVER LA POSITION DU HURKLE SUR LA GRILLE. VOUS AVEZ 5 ESSAIS. 
APRES CHAQUE ESSAI, JE VOUS DONNERAI LA DIRECTION APPROCHEE 
DANS LAQUELLE IL FAUT CHERCHER LE HURKLE. 


ESSAI NR 1 ? 5,5 
PRENEZ LA DIRECTION SUDOUEST 


ESSAI NR 2 ? 3,3 
PRENEZ LA DIRECTION OUEST 


ESSAI NR 3 ? 2,3 
VOUS L'AVEZ TROUVE EN 3 ESSAISI 
JOUONS ENCORE. LE HURKLE EST EN TRAIN DE SE CACHER. 


ESSAI NR 1 ? 5,5 
PRENEZ LA DIRECTION OUEST 


ESSAI NR 2 ? 3,5 
VOUS L'AVEZ TROUVE EN 2 ESSAISI 
JOUONS ENCORE. LE HURKLE EST EN TRAIN DE SE CACHER. 


ESSAI NR 1 ? 5,5 
PRENEZ LA DIRECTION NORDOUEST 


ESSAI NR 2 ? 6,8 
PRENEZ LA DIRECTION SUDOUEST 


ESSAI NR 3 ? 3,6 
PRENEZ LA DIRECTION NORDOUEST 


ESSAI NR 4 ? 4,7 
PRENEZ LA DIRECTION OUEST 


ESSAI NR 5 ? 4,5 

PRENEZ LA DIRECTION NORDOUEST 

DESOLE, CELA FAIT 5 ESSAIS. 

LE HURKLE SE TROUVE EN O , 7 

JOUONS ENCORE. LE HURKLE EST EN TRAIN DE SE CACHER. 


ESSAI NR 1 ? 


OUEST 





REPAIRE SUD 


S PRINT CHR$(26) 

10 PRINT TAB(33);"HURKLE" 

20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT:PRINT:PRINT 


110 N=5 

120 G=10 

210 PRINT 

220 PRINT “UN HURKLE SE CACHE DANS UNE GRILLE";:G;"PAR";G;". SA DEMEURE" 
230 PRINT “EST LE POINT 0,0 . TOUT POINT DE LA GRILLE EST REPRESENTE PAR" 


240 PRINT “DEUX NOMBRES ENTIERS SFPARES PAR UNE VIRGULE. ESSAYEZ DE" 
250 PRINT “TROUVER LA POSITION DU HURKLE SUR LA GRILLE. VOUS AVEZ";N;"ESSAIS." 
260 PRINT “APRES CHAQUE ESSAI, JE VOUS DONNERAI LA DIRECTION APPROCHEE" 
270 PRINT "DANS LAQUELLE IL FAUT CHERCHER LE HURKLE." 

280 PRINT 

285 A=INT(G*RND(1)) 

286 B=INT(G*RND(1)) 

310 FOR K=1 TO N 

320 PRINT “ESSAI NR":K; 

330 INPUT X,Y 

340 IF ABS(X-A)+ABS(Y-B)=0 THEN 500 

350 REM PRINT INFO 

360 GOSUB 610 

370 PRINT 

380 NEXT K 

410 PRINT 

420 PRINT "DESOLE, CELA FAIT";N;"ESSAIS." 

430 PRINT “LE HURKLE SE TROUVE EN ":A:",":B 

440 PRINT 

450 PRINT “JOUONS ENCORE. LE HURKLE EST EN TRAIN DE SE CACHER." 
460 PRINT 

470 GOTO 285 

500 REM 

510 PRINT 

520 PRINT “VOUS L'AVEZ TROUVE EN";K;"ESSAISI " 

540 GOTO 440 

610 PRINT “PRENEZ LA DIRECTION “; 

620 IF Y=B THEN 670 

630 IF Y<B THEN 660 

640 PRINT "SUD"; 

650 GOTO 670 

660 PRINT "NORD"; 

670 IF X=A THEN 720 

680 IF X<A THEN 710 

690 PRINT "OUEST"; 

700 GOTO 720 

710 PRINT "EST"; 

720 PRINT 

730 RETURN 

999 END 
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Kinema 





Ce programme teste vos connais- 
sances fondamentales de cinématique. Il 
présente un problème simple : une balle 
est lancée en l’air à une vitesse aléatoire. 
Vous devez ensuite répondre à trois ques- 
tions concernant le vol de la balle : 

1. A quelle hauteur montera-t-elle ? 

2. Combien de temps mettra-t-elle à re- 

tomber ? 

3. Quelle sera sa vitesse après un 

nombre aléatoire de secondes ? 

L'ordinateur évalue votre performance; 
si votre réponse est approchée de 15 % 
par rapport à la bonne, elle est considérée 
acceptable. Après chaque exécution l'or- 
dinateur vous donne un autre problème 
jusqu'à ce que vous l'interrompiez. 

KINEMA est une version abrégée du 
programme original d'Huntington Compu- 
ter Project Program, KINERV, de Richard 
Pav de Patchogue High School, Pat- 
chogue, New York. 


KINEMA 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


UNE BALLE EST JETFE VERS LE HAUT À 13 METRES PAR SECONDE. 


À QUELLE HAUTEUR MONTERA T ELLE (EN METRES)? 7 
LA REPONSE N'EST MEME PAS APPROCHEE.... 
LA REPONSE EXACTE EST 8.45 


COMBIEN DE SECONDES JUSQU'A SON RETOUR? 5 
LA REPONSE N'EST MEME PAS ‘PROCHEE.... 
LA REPONSE EXACTE EST 2.6 


QUELLE SERA SA VITESSE APRES 1.7 SECONDES? 3 
LA REPONSE N'EST MEME PAS APPROCHEE.... 
LA REPONSE EXACTE EST -4 


O REPONSES CORRECTES SUR 3. 
UNE BALLE EST JETEE VERS LE HAUT À 15 METRES PAR SECONDE. 


A QUELLE HAUTEUR MONTERA T ELLE (EN METRES)? 8 
LA REPONSE N'EST MEME PAS APPROCHEE.... 
LA REPONSE EXACTE EST 11.25 


COMBIEN DE SECONDES JUSQU'A SON RETOUR? 4 
LA REPONSE N'EST MEME PAS APPROCHEE.... 
LA REPONSE EXACTE EST 3 


QUELLE SERA SA VITESSE APRES 2.5 SECONDES? -7 
LA REPONSE N'EST MEME PAS APPROCHEE.... 
LA REPONSE EXACTE EST -10 


© REPONSES CORRECTES SUR 3. 
UNE BALLE EST JETEE VERS LE HAUT À 7 METRES PAR SECONDE. 
A QUELLE HAUTEUR MONTERA T ELLE (EN METRES)? 5 
LA REPONSE N'EST MEME PAS APPROCHEE.... 
LA REPONSE EXACTE EST 2.45 
COMBIEN DE SECONDES JUSQU'A SON RETOUR? 4 
LA REPONSE N'EST MEME PAS APPROCHEE.... 
LA REPONSE EXACTE EST 1.4 
QUELLE SERA SA VITESSE APRES 2.1 SECONDES? O 


LA REPONSE N'EST MEME PAS APPROCHEE.... 
LA REPONSE EXACTE EST -14 


O REPONSES CORRECTES SUR 3. 
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UNE BALLE EST JETFF VERS LE HAUT À 22 METRES PAR SECONDE. 


À QUELLE HAUTEUR MONTERA T ELLE (EN METRES)? 23 
L'APPROXIMATION EST SUFFISANTE. 
LA REPONSE EXACTE EST 24.2 


COMBIEN DE SECONDES JUSQU'A SON RETOUR? 6 
LA REPONSE N'EST MEME PAS APPROCHEE.... 
LA REPONSE EXACTE EST 4.4 


QUELLE SERA SA VITESSE APRES 2.6 SECONDES? 


5 PRINT CHR$(26) 
10 PRINT TAB(33);"KINEMA" 


20 PRINT TAB(15):"CRFATIVE COMPUTING MORRISTOWN, NFW JERSEY" 


30 PRINT: PRINT: PRINT 
100 PRINT 

105 PRINT 

106 Q=0 

110 V=54#INT(35*RND(1)) 


111 PRINT "UNE BALLE EST JETEF VERS LE HAUT A";V;"METRES PAR SECONDE." 


112 PRINT 

115 A=.05*v*2 

116 PRINT "A QUELLE HAUTEUR MONTERA T ELLE (EN METRES) "; 
117 GOSURB 500 

120 A=Vv/5 

122 PRINT “COMRIEN DE SECONDES JUSQU'A SON RETOUR"; 
124 GOSUR 500 

130 T=1#INT(2*V#*RND(1))/10 

132 A=V-10*T 

134 PRINT "QUELLE SFRA SA VITESSE APRES" ;T; "SECONDES" ; 
136 GoSUB 500 

140 PRINT 

150 PRINT Q:"REPONSFS CORRFCTES SUR 3.":; 

160 IF Q<2 THEN 100 

170 PRINT “ PAS MAL." 

180 GOTO 100 

500 INPUT G 

502 1F ABS((G-A)/A)<.15 THEN 510 

504 PRINT “LA RFPONSF N'EST MEME PAS APPROCHEF...." 
506 GOTO 512 

510 PRINT "L'APPROXIMATION EST SUFFISANTE." 

511 Q=0+1 

512 PRINT “LA REPONSE EXACTE EST “;A 

520 PRINT 

530 RETURN 

999 END 


King (Premier ministre) 





Voici l’un des jeux les plus complets, dif- 
ficiles et intéressants, de gestion de pays 
et de ses ressources. (Si vous n'avez ja- 
mais joué à l’un de ces jeux, commencez 
avec HAMMURABI.) 

Dans ce jeu vous êtes le premier mi- 
nistre de Setats Detinu, petite île commu- 
niste de 30 par 70 miles de long. Votre 
tâche est d'établir le budget du pays et de 
distribuer à vos concitoyens l'argent du 
trésor communal. 

La devise locale est le Rallod et chaque 
personne a besoin de 100 rallods par an 
pour survivre. Les revenus de votre pays 
viennent de l'agriculture et des touristes 
visitant vos magnifiques forêts, chassant, 
pêchant, etc. Une partie de votre terre est 
cultivable mais elle contient aussi d’excel- 
lents minerais et peut être vendue à l'in- 
dustrie étrangère (pour des mines à ciel 
ouvert) qui importe et supporte ses 
propres travailleurs. L'ensemencement, la 
culture et la moisson reviennent entre 10 
et 15 rallods par mile carré. Votre but est 
de mener à bien votre mandat de huit ans 
sans accident majeur. Attention : ce n’est 
pas facile ! 

James A. Storer est l’auteur de ce pro- 
gramme qu'il a écrit lorsqu'il était à 
Lexington High School. 


KING 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DESIREZ VOUS LIRE LES REGLES? Y 


FELICITATIONSI VOUS VENEZ D'ETRE ELU PREMIER MINISTRE DE SETATS 
DETINU, PETITE ILE COMMUNISTE DE 30 PAR 70 MILES DE LONG. VOTRE 
TACHE EST D'ETABLIR LE BUDGET DU PAYS ET DE DISTRIBUER 


A VOS CONCITOYENS L'ARGENT DU TRESOR COMMUNAL. 


LA DEVISE LOCALE EST LE RALLOD, ET CHAQUE PERSONNE À BESOIN DE 100 
RALLODS PAR AN POUR SURVIVRE. LES REVENUS DE VOTRE PAYS 

VIENNENT DE L'AGRICULTURE ET DES TOURISTES (MAGNIFIQUES FORETS 
CHASSE,PECHE, ETC.) LA MOITIE DE VOTRE SURFACE EST CULTIVABLE 

MAIS ELLE À AUSSI DES MINERAIS EN ABONDANCE ET PEUT ETRE VENDUE A 
L'INDUSTRIE ETRANGERE (MINES À CIEL OUVERT) QUI IMPORTE ET SUPPORTE 
SES PROPRES TRAVAILLEURS. L'ENSEMENCEMENT REVIENT ENTRE 10 ET 15 


RALLODS PAR MILLE CARRE. 


VOTRE BUT EST DE MENER À BIEN VOTRE MANDAT DE 8 ANS. 


BONNE CHANCE. 


VOUS AVEZ MAINTENANT 59940 RALLODS DANS LES CAISSES DU TRESOR. 
497 CONCITOYENS, ET 2000 MILLES CARRES DE TERRE. 


203 TRAVAILLEURS SONT VENUS DANS LE PAYS ET 396 HABITANTS SONT VENUS DANS 

L'ILE. 

SUR 500 MILLES CARRES PLANTES, VOUS AVEZ EU UNE RECOLTE SUR 260 MILLES CARRES. 
(EN RAISON DE LA POLLUTION DE L'AIR ET DE L'EAU VENANT DE L'INDUSTRIE.) 

CE QUI DONNE 12350 RALLODS. 

LE TOURISME VOUS À RAPPORTE 8297 RALLODS. 


VOUS AVEZ MAINTENANT 50180 RALLODS DANS LES CAISSES DU TRESOR. 

893 CONCITOYENS, 203 TRAVAILLEURS ETRANGERS, ET 1800 MILLES CARRES DE TERRE. 
CETTE ANNEE L'INDUSTRIE ACHETERA LA TERRE AU PRIX DE 95 RALLODS PAR MILLE CARRE. 
L'ENSEMANCEMENT REVIENT ACTUELLEMENT À 14 RALLODS PAR MILLE CARRE. 


COMBIEN DE MILLES CARRES COMPTEZ VOUS VENDRE À L'INDUSTRIE? O0 

COMBIEN DE RALLODS DISTRIBUEZ VOUS A CHACUN DE VOS CONCITOYENS? 89300 
VOYONS, VOUS N'AVEZ QUE 50180 RALLODS DANS LES CAISSES 

COMBIEN DE RALLODS DISTRIBUEZ VOUS A CHACUN DE VOS CONCITOYENS? 50 

COMBIEN DE MILLES CARRES COMPTEZ VOUS ENSEMENCER? 45 

COMBIEN DE RALLODS DESIREZ VOUS CONSACRER À LA LUTTE ANTI-POLLUTION? 10000 


PLUS DU TIERS DE LA POPULATION EST MORT DEPUIS VOTRE ENTREE 
ENTREE EN FONCTIONS. LES GENS (QUI RESTENT) 

NE PEUVENT PAS VOUS SENTIR. 

VOUS AVEZ ETE ASSASSINE. 


CETTE ANNEE L'INDUSTRIE ACHETERA LA TERRE AU PRIX DE 95 RALLODS PAR MILLE CARRE. 


L'ENSEMANCEMENT REVIENT ACTUELLEMENT À 13 RALLODS PAR MILLE CARRE. 


COMBIEN DE MILLES CARRES COMPTEZ VOUS VENDRE À L'INDUSTRIE? 200 


COMBIEN DE RALLODS DISTRIBUEZ VOUS A CHACUN DE VOS CONCITOYENS? 49700 


COMBIEN DE MILLES CARRES COMPTEZ VOUS ENSEMENCER? 500 


COMBIEN DE RALLODS DESIREZ VOUS CONSACRER À LA LUTTE ANTI-POLLUTION? 10000 
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1 PRINT CHR$(26):PRINT TAB(34):"KING" 

2 PRINT TAB(15):"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"* 
3 PRINT:PRINT:PRINT 

4 PRINT "DESIREZ VOUS LIRE LES REGLES"; 

5 INPUT Z$ 

6 N5=8 


10 IF LEFTS(ZS,1)="N" THEN 47 

11 IF Z$="ENCORE" THEN 1960 

12 PRINT:PRINT:PRINT 

20 PRINT "FELICITATIONS! VOUS VENEZ D'ETRE ELU PREMIER MINISTRE DE SETATS" 
22 PRINT "DETINU, PETITE ILE COMMUNISTE DE 30 PAR 70 MILES DE LONG. VOTRE" 
24 PRINT "TACHE EST D'ETABLIR LE BUDGET DU PAYS ET DE DISTRIBUER" 

26 PRINT "A VOS CONCITOYENS L'ARGENT DU TRESOR COMMUNAL." 

28 PRINT "LA DEVISE LOCALE EST LE RALLON, ET CHAQUE PERSONNE À BESOIN DE 100" 
30 PRINT "RALLODS PAR AN POUR SURVIVRE. LES REVENUS DE VOTRE PAYS" 

32 PRINT "VIENNENT DE L'AGRICULTURE ET DES TOURISTES (MAGNIFIQUES FORETS" 

34 PRINT "CHASSE,PFCHE, ETC.) LA MOITIE DE VOTRE SURFACE EST CULTIVABLE" 

36 PRINT "MAIS ELLE À AUSSI DES MINERAIS EN ABONDANCE ET PEUT ETRE VENDUE A" 
38 PRINT “L'INDUSTRIE ETRANGERE (MINES À CIEL OUVERT) OUI IMPORTE ET SUPPORTE" 
40 PRINT "SES PROPRES TRAVAILLFURS. L'ENSEMENCEMENT REVIENT ENTRE 10 ET 15" 
42 PRINT “RALLONS PAR MILLE CARRE." 

44 PRINT "VOTRE BUT EST DE MENER À BIEN VOTRE MANDAT DE";N5; "ANS." 

46 PRINT “BONNE CHANCE." 

47 PRINT 

50 A=INT(600001+(1000*RND(1))-(1000*RND(1))) 

55 B=INT(500+(10#RND(1))-(10*RND(1))) 

65 D=2000 

100 W=INT(LO#*RND(1)+95) 

102 PRINT 

105 PRINT "VOUS AVEZ MAINTENANT" ;A;"RALLODS DANS LFS CAISSES DU TRESOR." 

110 PRINT INT(B):;"CONCITOYENS, "; 

115 V9=INT(((RND(1)/2)*10+10)) 

120 IF C=0 THEN 140 

130 PRINT INT(C);: "TRAVAILLEURS FTRANGFRS, "; 

140 PRINT "ET";INT(D);"MILLES CARRES DE TERRE." 

150 PRINT "CETTE ANNEE L'INDUSTRIE ACHETERA LA TERRE AU PRIX DE";W; 

152 PRINT "RALLOPDS PAR MILLE CARRE." 

155 PRINT"L'ENSEMENCEMENT REVIENT ACTUELLEMENT A";V9;"RALLONS PAR MILLE CARRE." 
162 PRINT 

200 PRINT "COMBIEN DE MILLES CARRES COMPTEZ VOUS VENDRE À L'INDUSTRIF":; 

210 INPUT H 

215 IF H<O THEN 200 

220 IF H<=D-1000 THEN 300 

230 PRINT “ VOYONS, VS N'AVEZ QUE":D-1000;"MILLES CARRES DE TERRE CULTIVABLE" 
240 IF X<>0 THEN 200 

250 PRINT “(L'INDUSTRIE ETRANGERE N'ACHETE QUE DE LA TERRE CULTIVABLE, CAR" 
260 PRINT "LA FORET N'EST PAS RENTABLE POUR LES MINES À CIEL OUVERT A CAUSE" 
CE PRINT “DES ARBRES, DE LA COUCHE SUPERIEURE PLUS EPAISSE, ETC.)" 

80 X=1 

299 GOTO 200 

300 D=INT(D-H) 

310 A=INT(A+(H*W)) 

320 PRINT “COMBIEN DE RALLODS DISTRIBUEZ VOUS À CHACUN DE VOS CONCITOYENS"; 





340 INPUT 1 


342 IF 1<O THEN 320 

350 IF I<A THEN 400 

360 IF I=A THEN 380 

370 PRINT “ VOYONS, VOUS N'AVEZ QUE";A:"RALLODS DANS LES CAISSES" 
375 GOTO 320 

380 J=0 

390 K=0 

395 A=0 

399 GOTO 1000 

400 A=INT(A-1) 

410 PRINT "COMBIEN DE MILLES CARRES COMPTEZ VOUS ENSEMÉNCER"; 

420 INPUT J 

421 IF J<O THEN 410 

422 IF J<=B*2 THEN 426 

423 PRINT “ DESOLE, MAIS CHAQUE PERSONNE NE PEUT PLANTER QUE 2 MILLES CARRES" 
424 GOTO 410 

426 IF J<=D-1000 THEN 430 

427 PRINT “ NAVRE, VOUS N'AVEZ QUE";D-1000;:"MILLES CARRES DE TERRE CULTIVABLE" 
428 GOTO 410 

430 Ul=INT(J#*V9) 

435 IF Ul<A THEN 500 

440 IF Ul=A THEN 490 

450 PRINT" VOYONS, VOUS N'AVEZ PLUS QUE";A;"RALLODS DANS LES CAISSES" 
460 GOTO 410 


490 K=0 

495 A=0 

499 GOTO 1000 
500 A=A-U] 


510 PRINT “COMBIEN DE RALLODS DESIRFEZ VOUS CONSACRER À LA LUTTE ANTI-POLLUTION"; 
520 INPUT K 

522 IF K<O THEN 510 

530 IF K<=A THEN 1000 

540 PRINT “ VOYONS, IL NE VOUS RESTE QUE";A;"RALLODS" 
550 GOTO 510 

600 IF H<>O THEN 1002 

602 IF 1<>O THEN 1002 

604 IF J<>0 THEN 1002 

606 IF K<>O THEN 1002 

609 PRINT 

612 PRINT “AU REVOIR." 

614 PRINT "(SI VOUS DESIREZ POURSUIVRE CE JEU ULTFRIFUREMENT, REPONDEZ" 
616 PRINT “'ENCORF' QUAND ON VOUS PROPOSE LES REGLES, AU" 
618 STOP 

1000 GOTO 600 

1002 PRINT 

1003 PRINT 

1010 A=INT(A-K) 

1020 A4=A 

1100 IF INT(I/100-R)>=0 THEN 1120 

1105 IF 1/100<50 THEN 1700 

1110 PRINT INT(B-(1/100)):"HABITANTS SONT MORTS DE FAIM" 
1120 F1=INT(RND(1)*(2000-D)) 

1122 IF K<25 THEN 1130 

1125 FI=INT(F1/(K/25)) 
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1130 
1140 
1143 
1150 
1160 
1165 
1170 
1172 
1174 
1175 
1176 
1180 
1181 

1182 
1183 

1185 

1187 

1188 

1189 
1190 

1194 

1200 

1220 
1224 

1226 
1230 
1250 

1255 
1260 
1265 
1270 

1275 
1280 

1290 
1292 

1305 
1310 
1320 
1324 
1326 
1330 
1340 
1344 
1350 
1355 
1360 
1365 
1370 
1380 
1390 
1400 
1405 

1410 
1420 
1425 
1430 
1435 
1440 
1442 
1444 

1446 
1448 
1450 
1451 

1452 
1460 
1462 
1465 
1467 

1470 
1471 

1472 
1475 
1477 
1480 
1482 
1500 
1505 
1510 
1515 
1520 


IF Fl<=0 THEN 1150 

PRINT Fl:"HABITANTS SONT MORTS POUR AVOIR RESPIRE DE L'OXYDE 
PRINT “ ET DES POUSSIERES" 

IF INT((1/100)-B)<0 THEN 1170 

IF Fl>0 THEN 1180 

GOTO 1200 

PRINT " IL VOUS A FALLU DEPENSER":;INT((F1+(B-(1/100)))*9); 
PRINT "RALLODS POUR LES FUNERAILLES" 

BS=INT(F1+(B-(1/100))) 

A=INT(A-((F1+(B-(1/100)))*9)) 


DE CARBONE"; 


GOTO 1185 
PRINT “ IL VOUS À FALLU DEPENSER"; INT(F1*9);"RALLODS "; 
PRINT "POUR LES FUNERAILLES" 


B5=F1 

A=INT(A-(F1*9)) 

IF A>=0 THEN 1194 

PRINT “ LES RESERVES ONT ETE TROP FAIBLES POUR LE COUT - "; 
PRINT “ET LA TERRE À ETE VENDUE" 

D=INT(D+(A/W)) 

A=0 

B=INT(B-B5) 

1F H=0 THEN 1250 

C1=INT(H+(RND(1)#*10)-(RND(1)*20)) 

IF C>0O THEN 1230 

C1=C1+20 

PRINT C1;"TRAVAILLEURS SONT VENUS DANS LE PAYS ET"; 
P1=INT(((1/100-B)/10)+(K/25)-((2000-D)/50)-(F1/2)) 
PRINT ABS(P1);"HABITANTS "; 

IF P1<O THEN 1275 

PRINT "SONT VENUS DANS"; 





GOTO 1280 
PRINT "ONT QUITTE"; 
PRINT “ L'ILE." 


B=INT(B+P1) 

C=INT(C+CI) 

U2=INT(((2000-D)*((RND(1)+1.5)/2))) 

IF C=0 THEN 1324 

PRINT “ SUR";INT(J); "MILLES CARRES PLANTES, "; 

IF JoU2 THEN 1330 

U2=T 

PRINT “ VOUS AVEZ EU UNE RECOLTE SUR"; INT(J-U2);"MILLES CARRES." 
IF U2=0 THEN 1370 

IF Tl>=2 THEN 1370 

PRINT * (EN RAISON DE LA "; 

IF Ti=0 THEN 1365 

PRINT "PLUS GRANDE ": 

PRINT "POLLUTION DE L'AIR ET DE L'EAU VENANT DE L'INDUSTRIF.)" 
Q=INT((J-U2)*(W/2)) 

PRINT " CE QUI DONNE"; INT(Q);"RALLODS." 

A=INT(A+Q) 

VI=INT(((B-P1)#*22)+(RND(1)#500)) 

V2=INT((2000-D)*15) 

PRINT “ LE TOURISME VOUS À RAPPORTE";ABS(INT(V1-V2) );"RALLODS." 
IF V2=0 THEN 1450 

IF V1-V2>=V3 THEN 1450 

PRINT “  DIMINUTION DUE AU FAIT QUE "; 

G1=10*RND(1) 
IF Gl<=2 THEN 
IF Gl<=4 THEN 
IF Gl<=6 THEN 1470 
IF Gl<=8 THEN 1475 
IF Gl<=10 THEN 1480 
V3=INT(A+V3) 
A=INT(A+V3) 

GOTO 1500 


1460 
1465 


PRINT “LE NOMBRE DES POISSONS A DIMNNUE À CAUSE DE LA POLLUTION DF L'EAU." 


GOTO 1450 

PRINT “LA POLLUTION DE L'AIR EST EN TRAIN DE TUER LE GIBIER À PLUMES." 
GOTO 1450 

PRINT "LES BAINS D' EAUX MINERALES SONT EN TRAIN D'ETRE RUINES" 

PRINT "PAR LA POLLUTION DFE L'EAU." 


GOTO 1450 : 
PRINT "UN SMOG DEPLAISANT DECOURAGE-RES AMATEURS DE BAINS DE SOLEIL. 
GOTO 1450 P 

PRINT "LES HOTELS ONT UN AIR CRASSEUX DU À LA SALETE DU SMOG. 

GOTO 1450 

IF B5>200 THEN 1600 

IF B<343 THEN 1700 

IF (A4/100)>5 THEN 1800 


C>B THEN 1550 
N5-1=X5 THEN 1900 


1F 
1F 


1545 
1550 
1552 
1560 
1562 
1564 
1570 
1574 
1576 
1578 
1580 
1590 
1592 
1596 
1600 
1602 
1610 
1615 
1620 
1622 
1625 
1630 
1635 
1670 
1672 
1680 
1682 
160 
1692 
1700 
1702 
1710 
1715 
1720 
1730 
1800 
1807 
1815 
1820 
1825 
1830 
1835 
1840 
1845 
1850 
1900 
1902 
1920 
1925 
1930 
1935 
1940 
1945 
1950 
1960 
1961 

1962 
1963 
1965 
1967 
1969 
1970 
1971 
1975 
1976 
1977 
1980 
1981 

1982 
1990 
1991 

1992 
1993 
1994 
1996 
1997 
1998 
2000 
2020 
2040 
2046 


GOTO 2000 

PRINT 

PRINT 

PRINT "LES TRAVAILLEURS ETRANGERS ONT DEPASSE EN NOMBRE LES AUTOCHTONES." 
PRINT “ETANT EN MAJORITE, ILS SE SONT REVOLTES ET SE SONT EMPARES" 
PRINT “DU PAYS." 


IF RND(1)<=.5 THEN 1580 

PRINT "VOUS AVEZ ETE EJECTE DE VOS FONCTIONS ET ACTUELLEMENT" 
PRINT "VOUS ETES EN PRISON." 

GOTO 1590 

PRINT “VOUS AVEZ 
PRINT 

PRINT 

STOP 

PRINT 

PRINT 

PRINT B5;"HABITANTS SONT MORTS EN UNE ANNEEI!IILI" 


ETE ASSASSINE." 





PRINT "EN RAISON DE CETTE REMARQUABLE INCOMPETENCE, NON SEULFMENT VOUS" 
PRINT "AVEZ FETE REVOQUE ET FICHU ALA PORTE, MAIS VOUS" 
M6=INT(RND(1)*10) 

IF M6<=3 THEN 1670 

IF M6<=6 THEN 1680 

1F M6<=10 THEN 1690 

PRINT "AVEZ EU AUSSI L'OFIL GAUCHE ARRACHE." 

GOTO 1590 

PRINT "AVFEZ EGALFMENT GAGNE DANS L'AFFAIRE UNE TRES MAUVAISE RFPUTATION 
GOTO 1590 

PRINT “AVEZ AUSSI ETE DECLARE PLAIF NATIONALE." 

GOTO 1590 

PRINT 

PRINT 

PRINT "PLUS DU TIERS NE LA POPULATION EST MORT DEPUIS VOTRE ENTREE" 
PRINT "ENTREE EN FONCTIONS. LES GENS (QUI RESTENT)" 

PRINT "NE PEUVENT PAS VOUS SENTIR." 

GOTO 1570 

1F BS-F1<2 THEN 1515 

PRINT 

PRINT “DE L'ARGENT NON DEPENSE EST RESTE PAR VOTRE FAUTE DANS LES CAISSE 
PRINT "LE RESULTAT EN À FETE LA MORT DE FAIM DE QUELQUES UNS DE VOS" 
PRINT "COMPATRIOTES. LA FOULE EST FURIEUSE ET VOUS ETES FORCE" 

PRINT "DFE DEMISSIONNER OU BIEN DF VOUS SUICIDER." 

PRINT "VOUS AVEZ LE CHOIX." 

PRINT "SI VOUS OPTEZ POUR LA SFCONNE SOLUTION, AYEZ L'ORBLIGFEANCE DE" 
PRINT "METTRE L'ORDINATEUR HORS TENSION, D'ABORD." 

GOTO 1590 

PRINT 

PRINT 

PRINT “FELICITATIONSIILLILIILLLUULIEIL" 

PRINT "VOUS AVEZ REMPLI AVEC SIUCCES VOTRE MANDAT DF";NS; "ANS" 

PRINT “CERTES, VOUS AVEZ Ell, BIFN ENTENDU, UNE CHANCE CONSIDFRABLE, MAIS" 
PRINT "CELA RESTE UNE REALISATION REMARQUABLE. AU REVOIR ET BONNE" 
PRINT "CHANCF - VOUS EN AUREZ BESOIN SI VOUS ETES DU GFNRE A" 

PRINT "JOUER ACE JEU." 

GOTO 1590 

PRINT "DEPUIS COMBIEN D'ANNFFS ETIEZ VOUS AUX AFFAIRES LORS DE L'ARRET": 
INPUT X5 


IF XS<0O THEN 1590 
1F X5<8 THEN 1969 


PRINT * VOYONS, LA DUREF. DU MANDAT EST SEULEMENT DE";N5; "ANS." 
GOTO 1960 

PRINT "COMBIEN AVIFZ VOUS EN CAISSES"; 

INPUT A 


IF A<O THEN 1590 

PRINT "COMBIEN D'HABITANTS"; 

INPUT B 

IF B<O THEN 1590 

PRINT “COMBIEN DE TRAVAILLEURS"; 

INPUT C 

IF C<O THEN 1590 

PRINT “COMBIEN DE MLILLES CARRES DE TERRE"; 
INPUT D 

IF D<O THEN 1590 

1F D>2000 THEN 1996 

1F D>1000 THEN 100 

PRINT * ALLONS, VOUS AVEZ COMMENCE AVEC 1000 MILLES CARRES CULTIVABLES 
PRINT “ ET 10000 MILLES CARRES DE FORETS." 
GOTO 1990 

X5=X5+1 

B5=0 

GOTO 100 

END 


Letter (Jeu de la lettre) 





ons ; L 
LETTER est similaire au jeu GUESS CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY 


dans lequel vous devinez un nombre choi- 
si par l'ordinateur; dans ce programme, 
l'ordinateur choisit aléatoirement une 


CE JEU CONSISTE À TROUVER UNE LETTRE 


| j- JE VAIS PENSER À UNE LETTRE DE L'ALPHABET, DE À JUSQU'A Z. 
lettre de l'alphabet et vous devez la devi ESSAYEZ DE TROUVER MA LETTRE, JE VOUS DONNERAI DES INDICATIONS 
ner en utilisant les indications qui vous SUR LA DISTANCE QUI VOUS SEPARE DE CELLE CI. 
sont données au fur et à mesure. Cela ne O.K., J'AI UNE LETTRE. COMMENCEZ À CHERCHER. 


devrait pas vous prendre plus de 6 essais 


pour trouver la lettre mystérieuse. EE 


Le programme qui apparaît ici est va- TROP HAUT. ESSAYEZ UNE LETTRE PLUS BASSE. 
guement basé sur l'original écrit par Bob QUE PROPOSEZ VOUS? 1 
Albrecht de la People's Computer Compa- TROP HAUT. ESSAYEZ UNE LETTRE PLUS BASSE. 
ny. QUE PROPOSEZ VOUS? D 


TROP BAS. ESSAYEZ UNE LETTRE PLUS HAUTE. 

QUE PROPOSEZ VOUS? F 

TROP BAS. ESSAYEZ UNE LETTRE PLUS HAUTE. 

QUE PROPOSEZ VOUS? H 

TROP HAUT. ESSAYEZ UNE LETTRE PLUS BASSE. 
QUE PROPOSEZ VOUS? G 

VOUS L'AVEZ TROUVEE EN 6 ESSAISII 

MAIS CELA NE DEVRAIT PAS PRENDRE PLUS DE 5 ESSAIS! 
REJOUONS UN PEU..... 

O.K., J'AI UNE LETTRE. COMMENCEZ À CHERCHER. 
QUE PROPOSEZ VOUS? M 

TROP HAUT. ESSAYEZ UNE LETTRE PLUS BASSE. 


QUE PROPOSEZ VOUS? J 








10 PRINT TAB(33):"LETTER" TROP HAUT. ESSAYEZ UNE LETTRE PLUS BASSE. 
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

30 PRINT:PRINT:PRINT QUE PROPOSEZ VOUS? E 

100 PRINT "CE JEU CONSISTE A TROUVER UNE LETTRE": PRINT 

210 PRINT “JE VAIS PENSER À UNE LETTRE DF L'ALPHABET, DE À JUSQU'A 2." TROP BAS. ESSAYEZ UNE LETTRE PLUS HAUTE. 

220 PRINT "ESSAYEZ DE TROUVER MA LETTRE, JE VOUS DONNERAI DES INDICATIONS" 

230 PRINT "SUR LA DISTANCE QUI VOUS SEPARE DE CELLE C1." QUE PROPOSEZ VOUS? G 

310 L=65+INT(RND(1)*26) 

320 G=0 TROP BAS. ESSAYEZ UNE LETTRE PLUS HAUTE. 

340 PRINT: PRINT "O.K., J'AI UNE LETTRE. COMMENCEZ À CHERCHER." 

410 PRINT: PRINT "QUE PROPOSEZ VOUS"; QUE PROPOSEZ VOUS? I 

420 G=G+1 

430 INPUT A$: A=ASC(AS): PRINT TROP HAUT. ESSAYEZ UNE LETTRE PLUS BASSE. 
440 IF A=L THEN 500 

450 IF A>L THEN 480 QUE PROPOSEZ VOUS? H 

460 PRINT “TROP BAS. ESSAYEZ UNE LETTRE PLUS HAUTE.": GOTO 410 

480 PRINT "TROP HAUT. ESSAYEZ UNE LETTRE PLUS BASSE.": GOTO 410 

500 PRINT: PRINT "VOUS L'AVEZ TROUVEE EN";G;"ESSAISI!" VOUS L'AVEZ TROUVEE EN 6 ESSAISI I 

504 IF G<=5 THEN 508 MAIS CELA NE DEVRAIT PAS PRENDRE PLUS DE 5 ESSAIS! 
506 PRINT "MAIS CELA NE DEVRAIT PAS PRENDRE PLUS DE 5 ESSAISI": GOTO 515 

508 PRINT "BEAU TRAVAIL 11111" REJOUONS UN PEU..... 

510 FOR N=1 TO 15: PRINT CHR$(7);: NEXT N 

515 PRINT O.K., J'AI UNE LETTRE. COMMENCEZ À CHERCHER. 
520 PRINT “REJOUONS UN PEU....." 

530 GOTO 310 QUE PROPOSEZ VOUS? 

999 END Break in 430 


91 


Life (Le jeu de la vie) 





Le jeu de LIFE a été décrit à l'origine 
dans la revue Scientific American d'oc- 
tobre 1970 dans un article de Martin 
Gardner. Le jeu lui-même a été conçu par 
John Conway de Gonville et Caius Col- 
lege, Université de Cambridge, Angle- 
terre. 

Dans le jeu « manuel », des organismes 
existent sous la forme de pions sur un 
grand damier, et ils meurent ou se repro- 
duisent selon certaines règles génétiques 
simples. Les critères de Conway pour 
choisir ses lois génétiques étaient soi- 
gneusement décrits de la manière sui- 
vante : 


1. Il ne doit pas y avoir de configuration 
initiale dont on pourrait prouver de fa- 
çon simple que la population peut s'ac- 
croître sans limites. 

2. || doit y avoir des configurations ini- 
tiales qui apparemment s'accroissent 
sans limites. 

8. 1l doit y avoir des configurations ini- 
tiales simples qui s'accroissent et 
changent pendant une période de 
temps considérable avant de se termi- 
ner de trois façons possibles : 

— disparaître complètement par sur- 
peuplement ou bien parce qu'elle 
devient trop clairsemée 

— se fixer en une configuration stable 
qui reste inchangée par la suite 

— entrer dans une phase oscillatoire 
dans laquelle elles répètent un 
cycle sans fin. 


Bref, les règles devraient être telles que 
la fluctuation de population soit rendue re- 
lativement imprévisible. Les lois généti- 
ques de Conway sont admirablement 
simples. Notez tout d'abord que chaque 
cellule du damier (qui est supposé être un 
plan infini) a huit cellules voisines, 
4 adjacentes à angle droit et 4 adjacentes 
en diagonale. Les règles sont les sui- 
vantes : 


1. Survies : Chaque pion ayant deux ou 
trois pions voisins, survit pour la géné- 
ration suivante. 

2. Morts : Chaque pion ayant 4 voisins ou 
plus meurt (est enlevé) de surpeuple- 
ment. Chaque pion ayant un seul voisin 
ou pas du tout, meurt d'isolation. 

8. Naissances : Chaque cellule vide adja- 
cente à 3 voisins exactement — ni plus 
ni moins — est une cellule de nais- 
sance. Un compteur est placé sur elle 
au prochain déplacement. 


Il est important de comprendre que 
toutes les naissances et les morts survien- 
nent simultanément. Ensemble, elles 


constituent une seule génération ou, 
comme nous l’appellerons, un « déplace- 
ment » dans « l’histoire de la vie » com- 
plète de la configuration initiale. 

Vous verrez la population subir 
constamment des changements inhabi- 
tuels, quelquefois merveilleux et toujours 
inattendus. Dans quelques cas la société 
s'éteint éventuellement (tous les pions 
disparaissant), bien que cela puisse ne 
pas se produire avant de nombreuses gé- 
nérations. La plupart des configurations 
naissantes atteignent soit des formes 
stables — Conway les appelle « naturès 
mortes » — qui ne peuvent pas changer 
ou bien des configurations qui oscillént 
pour toujours. Des configurations sans Sy- 
métrie initiale tendènt à devenir symétri- 


ques. Une fois que cela se produit, là 8ÿ- 


métrie né peut pas être perdue 
qu'elle puisse augmenter en qualité. 

Conway utilisa un DEC PDP-7 avec uñe 
exposition graphique pour observer ls 
populations. Vous trouverez probablè- 
ment cela plus agréable à regarder sur un 
CRT plutôt que Sur une copie papier. 

Etant donné que le MITS 8K BASIC n'a 
pas de LINE INPUT, tapez un «.» au début 
de la ligne pour entrer les espaces vidés 
dans la configuration. Cela sera trans- 
formé en un espace par le BASIC, mais 
cela vous permet de tapèr les espaces pri- 
mordiaux. Taper DONE indique que vôus 
avez fini d'eñtrèr la configuration. Voyez le 
modèle d'exécution. 

Clark Baker dè Project DELTA est à 
l'origine de cette version de LIFE qui a été 
par la suite modifiée par Steve North de 
Creative Computing. 


LIFE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


ENTREZ VOTRE CONFIGURATION: 
2. 


GENERATION: O POPULATION: 7 


GENERATION: 1 


GENERATION: 2 


GENERATION: 3 


GENERATION: 4 


POPULATION: 8 


POPULATION: à 


* 
* 


POPULATION: 10 


POPULATION: 12 


… 
. 


* 
CRE 1] 


LEE 


CIEL] 


CL LI 
LEA] 
+ 


CURE EL] 





GENERATION: 13 


GENERATION: 14 


GÉNERATION: 15 


POPULATION: 30 GENERATION: 16 


CEE 


POPULATION: 39 GENERATION: 17 


CEE] 


* * 
LE C2 CE 
CE …. CE 
nn un + 
. * CRT] 
CE] “. 


POPULATION: 37 GENERATION: 18 


CEE] 


.. CEE] 
CRE … CR 


. CRE L] 


LEZ] .…. 


2 PRINT TAB(34); "LIFE" 


4P 
6.P 


FA TAB(15);:"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


NT: PRINT: PRINT 


À. PRINT "ENTREZ VOTRE CONFIGURATION: " 
9 X1=1: Yl=l: X2=24: Y2=70 


10 
20 
30 


40 
É 
10 
80 


30 
100 


110 


120 
130 
140 
150 
160 
170 
180 
200 
210 
215 
220 
225 
230 
240 
250 
253 
256 


DIM A(24,70),RS(24) 
Cal 
INPUT B$(C) 


Q.tF BS(C)="FINI" THEN B$(C)="": GOTO 80 


ÎF LEFTS(BS(C),1)="." THEN R$(C)=" "4#RIGHTS(B$(C),LEN(BS(C))-1) 
C=È+1 

GoTo 30 

C#C-1: L=0 

FOR X=1 TO C-1 

IF LEN(B$S(X))>L THEN L=LEN(BS(X)) 

NEXT X 

X1=11-C/2 

Y1=33-L/2 

FOR X=1 TO C 

FOR Y=1 TO LEN(BS(X)) 
IF MIDS(BS(X),Y,1)<>" 
NEXT_Y 

NEXT X 

PRINT: PRINT:PRINT 


“ THEN A(X14X,Y1+Y)=1:P#P+1 


PRINT "GÉNÉRATION:":G,"POPULATION:";P;: IF 19 THEN PRINT "INVALIDE"; 


X3=24: Y3=70: X4=1: 
G=G+1 

FOR X=1 TO X1-1: 
FOR X=X1 TO X2 
PRINT 

FOR Y=Y1 TO Y2 
IF A(X,Y)=2 THEN A(X,Y)=0: GOTO 270 
IF A(X,Y)=3 THEN A(X,Y)=1: GOTO 261 


Y4=1: P=0 


PRINT: NEXT X 


POP 


.. 
CRE] 
CORRE LE] 
... 


POPULATION: 46 


POPULATION: 54 


CELL] 
CE 


+. 


260 
261 

262 
264 
266 
268 
270 
290 
295 
299 
301 

303 

305 
307 

309 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
595 
610 
620 
620 
635 
640 
650 


ULATION: 48 GENERATION: 19 


….. 


..… 
* 
* .…. 
* …. * 
* .. 
CELLES 
* * 


GÉNÉRATION: 20 


.. 


GENERATION: 21 


“sr on dns 
.… .. 
. + * 
*. née 
* . 


+ 


IF A(X,Y)<>1 THEN 270 
PRINT TAR(Y):"*"; 


IF X<X3 THEN X3=X 

IF X>X4 THEN X4=X 

IF Y<Y3 THEN Y3=Y 

IF Y>Y4 THEN Y4=Y 

NEXT Y 

NEXT X 

FOR X=X2+1 TO 24: PRINT: NEXT X 
X1=X3: X2=X4: Yl1=Y3: Y2=Y4 
IF X1<3 THEN X1=3: 19=-] 
IF X2>22 THEN X2=22: 19=-1 
IF Y1<3 THEN Yl1=3: 19=-1] 
IF Y2>68 THEN Y2=68: 19=-1 
P=0 


FOR X=X1-1 TO X2+1 

FOR Y=Y1-1 TO Y2+1 

C=0 

FOR I2=Xx-1 T0 X+1 

FOR J=Y-1l TO Y+1 

IF A(1,J)=1 OR A(1,J)=2 THEN C=C#1 
NEXT J 

NEXT 1! 

IF A(X,Y)#0 THEN 610 


IF C<3 OR C>4 THEN A(X,Y)=2: GOTO 600 


P=p+1 
GOTO 620 
IF C=3 THÊN A(X,Y)=3: P=P4+] 


ME: 
N £ 
Xi=Xl-1r YleYl-l: XD=X241: Y2=Y241 


goTo 210 
END 


POPULATION: 56 


CET 


CURE LLLLLLLLLLIEL) 
CERCLE LL) 


* * * * 
* CRETE LIE * 
“. * CET] 

LED LE] CEE] 


POPULATION: 61 


* 
CCE 
CEE] 


CLELELLL ZE 


+ 
CRE 
“ 


CRE] 
CRE] 


CRE LT] 
* 


Ann 


CLR LE] 


LE 
CELLES 


* * 


CE 
COLE] 


POPULATION: 67 


* 


.. 


CAE] 


nn rx 


.. * 
CRE] 


LLLE] 
.. 
LEE EI 

CEE 


CCE 

CCE] 

COLLE] 
CRE] 


CRE LE] 
CRE] 


LELE] 
“. 

CELL EI 

.. 


Life for Two 





LIFE-2 est basé sur le jeu de la vie de 
Conway. Les règles du jeu de la vie doi- 
vent vous être familières avant d'essayer 
de jouer à LIFE-2. 

Il y a deux joueurs; le jeu se joue sur un 
tableau de 5x5 et chaque joueur a un 
symbole pour représenter ses propres élé- 
ments de « vie ». Les cellules vivantes ap- 
partenant au joueur n° 1 sont représen- 
tées par (*) et celles qui appartiennent au 
joueur n° 2 sont représentées par le sym- 
bole #. 

Les symboles # et + sont considérés de 
la même manière sauf lorsqu'il s'agit de 
décider s'il faut engendrer une cellule vi- 
vante ou non. Une cellule vide ayant deux 
symboles « # » et un symbole (*) pour 
voisins, engendrera un #, c'est-à-dire que 
la cellule vivante engendrée appartient au 
joueur qui a la majorité des 3 cellules vi- 
vantes autour de la cellule vide où la vie 
doit être générée, par exemple : 


PRINT TAB(33):"LIFE2" 


PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


2 
4 
6 PRINT:PRINT:PRINT 

7 DIM N(6,6),K(18),A(16),X(2),Y(2) 

8 DATA 3,102,103,120,130,121,112,111,12 
9 


DATA 21,30,1020,1030,1011,1021,1003,1002,1012 


10 FOR M=1 TO 18: READ K(M): NEXT M 

13 DATA -1,0,1,0,0,-1,0,1,-1,-1,1,-1,-1,1,1,1 
14 FOR Ol= 1 TO 16: READ A(O1): NEXT O1 
20 GOTO 500 

50 FOR J=1 TO 5 

51 FOR K=1 TO 5 

55 IF N(J,K)>99 THEN GOSURB 200 

60 NEXT K 

65 NEXT J 

90 K=0: M2=0: M3=0 

99 FOR J=0 TO 6: PRINT 


100 FOR K=0 TO 6 

101 IF J<>0 THEN IF J<>6 THEN 105 
102 IF K=6 THEN PRINT O;: GOTO 125 
103 PRINT K;: GOTO 120 

105 IF K<>0 THEN IF K<>6 THEN 110 
106 IF J=6 THEN PRINT 0: GOTO 126 
107 PRINT J;: GOTO 120 

110 GOSUB- 300 

120 NEXT K 

125 NEXT J 

126 RETURN 

200 B=1: IF N(J,K)>999 THEN B=10 

220 FOR Ol= 1 TO 15 STFP 2 

230 N(J+A(O1),K+A(O01+41))=N(J+A(O1),K+A(014+1))+B 
231 NEXT O1 

239 RETURN 

300 IF N(J,K)<3 THEN 399 

305 FOR O1=1 TO 18 

310 IF N(J,K)=K(O1) THEN 350 

315 NEXT O! 

320 GOTO 399 

350 IF O1>9 THEN 360 

351 N(J,K)=100: M2=M2+1: PRINT “ * " 
355 RETURN 

360 N(J,K)=1000: M3=M3+1: PRINT “ # "; 





Une nouvelle cellule sera engendrée au 
point 3,3 et ce sera # puisqu'elle a deux 
symboles # et un seul * autour d'elle. Le 
tableau se présentera alors de la manière 
suivante : 





365 
399 
500 


RETURN 
N(J,K)=0: PRINT 
PRINT TAB(10);"JEU 


Au premier tour, chaque joueur posi- 
tionne 3 éléments de vie sur le tableau en 
entrant les coordonnées des éléments (au 
cas où les deux joueurs choisissent la 
même cellule, celle-ci reste vide). 

Le tableau est ensuite adapté pour la 
génération suivante et imprimé. 

A chaque tour suivant, chaque joueur 
place un élément sur le tableau, le but est 
d'anéantir les éléments de son adversaire. 
Le tableau est adapté pour la génération 
suivante et imprimé après que les deux 
joueurs aient entré leur nouvel élément. 

Le jeu continue jusqu'à ce qu'un joueur 
n'ait plus d'éléments vivants. L'ordinateur 
imprimera ensuite le tableau et déclarera 
le vainqueur. 

L'idée de ce jeu, le jeu lui-même et les 
explications ci-dessus ont été écrits par 
Brian Wyvill de l’université de Bradford 
dans le Yorkshire, Angleterre. 


: RETURN 
DE LA VIE D'U.B." 


505 M2=0: M3=0 

510 FOR J=1 TO 5 

511 FOR K=1 TO 5 

515 N(J,K)=0 

516 NEXT K 

517 NEXT J 

519 FOR B=1 TO 2: Pl=3: IF B=2 THEN P1=30 

520 PRINT “JOUEUR";B;" - 3 ELEMENTS VIVANTS." 
535 FOR Ki=l TO 3: GOSUB 700 

540 N(X(B),Y(B))=Pl: NEXT K1 

542 NEXT B 

559 GOSUB 90 

560 PRINT: GOSUB 50 

570 IF M2=0 THEN IF M3=0 THEN 574 

571 IF M3=0 THEN B=1: GOTO 575 

572 IF M2=0 THEN B=2: GOTO 575 

573 GOTO 580 

574 PRINT: PRINT “PARTIE NULLF":STOP 

575 PRINT: PRINT "LE JOUEUR";B;"EST LE VAINQUEUR": STOP 
580 FOR B=l TO 2: PRINT: PRINT "LE JOUEUR";B;: GOSUB 700 
SR1 IF B=99 THEN 560 

582 NEXT B 

586 N(X(1),Y(1))=100: N(X(2),Y(2))=1000 

596 GOTO 560 

700 PRINT "X,Y":PRINT'XXXXXX"; CHRS (13); "SS$SSSSS":CHR$ (13); "&&&&&&"; 
701 PRINT CHRS(13);: INPUT Y(B),X(B) 

705 IF X(B)<=5 THEN IF X(B)>0 THEN 708 

706 GOTO 750 

708 IF Y(B)<=5 THEN IF Y(B)>0O THEN 715 

710 GOTO 750 

715 1F N(X(B),Y(B))<>O THEN 750 

720 IF B=1 THEN RETURN 

725 IF X(1)=X(2) THEN IF Y(1)=Y(2) THEN 740 
730 RETURN 

740 PRINT “MEMES COORD. MISES À O0" 

741 N(X(B)+1,Y(B)+1)=0: B=99: RETURN 


750 
999 


PRINT “COORD. 
END 


ILLEGALES. 


RETAPEZ": GOTO 700 


JOUEUR 
X,Y 
LELEL LS 
X,Y 
DELLE LS 
X,Y 
HERSEE 
JOUEUR 
X,Y 
LELEL ES 
X,Y 
LELEL LS 
X,Y 
LELELES 


1 


* 


DnBUN—= D 


DnBuND = 9 


1 


LE JOUFUR 


1 


2 


JEU DFE LA VIE D'U.B. 
- 3 ELFMENTS VIVANTS. 


- 3 FLEMENTS VIVANTS. 


ww 


LE JOUEUR 2 


DnBUNE= ID 
* 


1 


LF JOUEUR 


+ + 


2 


LE JOUEUR 2 


OuBwNRE= 
* 


# 


D + % 


LES 


CREATIVE COMPUTING 


CEE 


DUBEWNE= D 


DnpUN=ID OunuBuN eo 


DnBEWNE=O 


M@RRISTOWN, NEW JEFRSEY 


LE JOUEUR 1 X,Y 
RELESE 


LE JOUEUR 2 X,Y 


SES 
COORD. ILLFGALES. 
X,Y 
BABESE 

0 1 2 3 45 

te CR 

2 # 

3 + + 

4 + 

5 + * 

D 1..2 % à $ 
LE JOUEUR 1 X,Y 
BERESE 
LE JOUEUR 2 X,Y 
LIT IT ES 

0 1 2 3 4 5 

1 * + 

2 * + + 

3 * + 

4 + CE 

5 + 

0 1 2 3 45 


LE JOUEUR 1 X,Y 
LILI LS 

COORD. ILLEGALES. 
X,Y 

LiLEL ES 


LE JOUEUR 2 X,Y 
LL LS 

COORD. ILLEGALES. 
X,Y 


LELEL TS 

0. 1 2 3 4 5 
1 + + + 
2, æ # 
3 

4 * 

5 + * 

0. 1, 2 3 5 


RETAPEZ 


OnBWNEæO 


OuBUN=O 


RETAPEZ 


RETAPEZ 


OUEN = O0 


95 


LE JOUEUR 
LELEL ES 


LE 


OnBUN = 9 


LE JOUEUR 
Lititti 


LF JOUEUR 
Lit 


Ou BUNEO 


LE JOUEUR 
LEE 1 


LE JOUEUR 
BSESSE 


OnmbBUuNæO 


LE JOUEUR 
RESESE 


LE JOUEUR 
LLTI LES 


JOUEUR 
LL LI 


1 


..— 


1 


em 


1 


n 


2 


nn 


2 


2 


D + 


ww 


ww 


+» 


um 


“un 


um 


OnbBuUNE= ID OnBUNE=O Ou E W NO 


OMBUWNæO 


LE JOUEUR 
RESELE 


LE JOUEUR 
SESSES 


OMBWUN—-O 


# 
Lr2 


LE JOUFUR 
LitIi 1: 


LE JOUFEUR 
BESSSS 


em 
nn 


1 2 


LE JOUEUR 
Lit 


LE JOUEUR 
Lit: 


OnBpBURDE=OD 


1: 72 


LE JOUEUR 
RASE 


L 


E 


JOUEUR 


L 


0 
1 
2 
3 
4 
5 
[0] 
E 


Le 2 
LU 
+ 


1 2 
JOUEUR 


em 


+ 0 


 w + 


3 
2 


X,Y 
X,Y 
4 5 0 
* #1 
# 2 
# 3 
# 4 
# 5 
4 5 0 
X,Y 
X,Y 
4 5 0 
*_ # 1 
# 2 
# 3 
# 4 
# 5 
4 5 0 
X,Y 
X,Y 
4 


A + + + 4% + 1 
OUMBUN ED 


* 

# 

4 
X,Y 
X,Y 

4 5 0 

L 1 

# 2 
# 3 
4 

# 5 
4 5 O0 


EST LE VAINQUEUR 


Literature Quiz 





(Questionnaire sur la littérature 


enfantine) 





C’est un programme simple du type CAI 
qui pose des questions sur la littérature 
enfantine et vous propose quatre ré- 
ponses au choix. L'exécution du pro- 
gramme va de soi. 

Le programme a été décrit par Pamela 
McGinley lorsqu'elle était à DEC. 


LITERATURE QUIZ 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


TESTEZ VOTRF CONNAISSANCE DE LA LITERATURE ENFANTINE. 
C'EST UN TFST A CHOIX MULTIPLES. 
TAPEZ UN 1, 2, 3, OU UN 4 APRES LF 


En 
RONNE CHANCEI 
DANS PINOCCHIO, COMMENT S'APPFLAIT LE CHAT 


1)TIGRE, 2)CICERO, 3)FIGARO, 4)GUIPETTO? 3 
EXCFLLENTI EN VOICI UNE AUTRE. 


QUI ETAIT LF PROPRIETAIRE DU JARDIN OU BUGS BUNNY VOLA LES CAROTTES? 


1)MR. NIXON, 2)FLMER FUDD, 3)CLEM JUDN, 4)STROMBOLI? 3 


DOMMAGF...C'ETAIT CELUI D'ELMER FUDD. 


DANS LE SORCIER DE OS, LE CHIEN DE DOROTHY S'APPELAIT 
1)CICFRO, 2)TRIXIA, 3)KING, 4)TOTO? 4 
YOUYIII VOUS ETES UN AUTENTIQUE GEANT DE LA LITTERATURE. 


QUI ETAIT LA JEUNE FILLE BLONDE QUI MANGEA LA POMME EMPOISONNEE 


1)LA BFLLE AU BOIS DORMANT, 2)CENDRILLON, 
OH, REFLECHISSEZ...C'ETAIT BLANCHE NEIGE. 


3)BLANCHE NEIGE, 


PAS MAL, MAIS VOUS POURRIEZ PASSER UN PEU 
À LIRE LES GRANDS CLASSIQUES DE L'ENFANCE. 
Break in 96 

Ok 


PLUS DE TEMPS 


A)WENDY? 2 


PRINT TAB(25):"LITERATURE QUIZ" 

PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
PRINT:PRINT:PRINT 

R=0 


PRINT "TESTEZ VOTRE CONNAISSANCE DE LA LITERATURE ENFANTINE." 
PRINT: PRINT "C'EST UN TEST A CHOIX MULTIPLES." 

PRINT "TAPEZ UN 1, 2, 3, OU UN 4 APRES LE ‘?'." 

PRINT: PRINT “RONNE CHANCEI": PRINT: PRINT 

PRINT "DANS PINOCCHIO, COMMENT S'APPELAIT LE CHAT" 


PRINT "l)TIGRE, 2)CICERO, 
INPUT A: IF A=3 THEN 46 
PRINT "DOMMAGE...C'ETAIT FIGARO.": GOTO 50 

PRINT "FXCFLLENTI EN VOICI UNE AUTRE." 

R=R+1 

PRINT: PRINT 

PRINT "QUI ETAIT LF PROPRIFTAIRE DU JARDIN OÙ BUGS BUNNY VOLA LES CAROTTES?" 


3)FIGARO, 4)GUIPETTO"“; 


PRINT "“1)MR. NIXON, 2)FLMER FUDD, 3)CLEM JUDD, 4)STROMBOLI"; 
INPUT A: IF A=2 THEN 56 

PRINT “DOMMAGE...C'ETAIT CELUI D'ELMER FUDD.": GOTO 60 

PRINT “BRAVOII" 

R=R+1 

PRINT: PRINT 

PRINT "DANS LF SORCIER DE OS, LE CHIEN DE DOROTHY S'APPELAIT" 


PRINT "1)CICERO, 2)TRIXIA, 4)TOTO" ; 

INPUT A: IF A=4 THEN 66 

PRINT “RETOURNEZ À VOS LIVRES, ...C'ETAIT TOTO.": GOTO 70 

PRINT “YOUYIII VOUS ETES UN AUTENTIQUE GEANT DE LA LITTERATURE." 

R=R+1 

PRINT:PRINT 

PRINT "QUI FETAIT LA JEUNE FILLE BLONDE QUI MANGEA LA POMME EMPOISONNEE" 
PRINT “l)LA BELLE AU BOIS DORMANT, 2)CENDRILLON, 3)BLANCHE NEIGE, 4)WENDY": 
INPUT A: IF A=3 THEN 76 
PRINT "OH, REFLECHISSEZ 
GOTO 80 
PRINT "TRES 
R=R+1] 


3)KING, 


.C'ETAIT BLANCHE NEIGE." 





BONNE MEMOIRE! " 


PRINT:PRINT 
IF R=4 THEN 100 
IF R<2 THEN 200 
PRINT "PAS MAL, MAIS VOUS POURRIFZ PASSER UN PEU PLUS DE TEMPS" 
PRINT “A LIRE LES GRANDS CLASSIQUES NE L'ENFANCE." 
STOP 
O PRINT "WOW! C'EST SUPER! VOUS POSSEDEZ À FOND VOS LIVRES D'ENFANCE" 
O PRINT “PROCHAIN EXAMEN SUR LA LITERRATURF CHINOISE" 
O PRINT "DU 2EME SIECLE (HA, HA, HA)" 
O STOP 
QO PRINT “UGH. CELA N'A PAS ETE TRES BRILLANT. RETOUR" 
5 PRINT “A L'ECOLE MATERNELLE POUR VOUS, MON VIEUX." 
9 END 
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Love 





Ce programme est désigné pour repro- 
duire la grande œuvre d'art de Robert In- 
dian : « Love », avec un message de votre 
choix d'une longueur pouvant aller jusqu’à 
60 caractères. 

Votre message est entré par la chaîne 
A $ à l'instruction 60. Les instructions 100 
et 130 répètent le message A$ s'il fait 
moins de 60 caractères de long et l'intro- 
duisent dans la chaîne T $. Les instruc- 
tions 210-400 impriment en fait le dessin. 
Les instructions data sont un nombre al- 
terné de caractères et d'espaces qui for- 
ment le dessin. Ces données donnent les 
proportions correctes pour un téléimpri- 
meur ou imprimante par ligne standard, de 
10 caractères par inch. 

Le programme Love a été créé par Da- 
vid Ahl. 


LOVE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


HOMMAGE RENDU AU GRAND ARTISTE AMFRICAIN, ROBERT INDIANA. 2 PRINT TAB(33):"LOVE" 


SON CHEF D'OEUVRF VA ETRE REPRODUIT AVEC UN MESSAGE DE VOUS 4 PRINT TAB(15):;:"CRFATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
POUVANT FAIRE 60 CHARACTERES. SI VOUS N'FTES PAS EN FORMF POUR 6 PRINT: PRINT: PRINT 
TROUVER UN MESSAGE, TAPEZ SIMPLFMENT LE MOT ‘LOVE"' 20 PRINT “HOMMAGE RENDU AU GRAND ARTISTE AMFRICAIN, RORERT INDIANA." 
30 PRINT “SON CHEF D'OEUVRE VA ETRE REPRODUIT AVFC UN MESSAGE DE VOUS" 
VOTRE MESSAGE, JE VOUS PRIF? LOVE 40 PRINT “POUVANT FAIRF 60 CHARACTFRES. SI VOUS N'ETES PAS EN FORME POUR" 


50 PRINT “TROUVER UN MESSAGE, TAPEZ SIMPLEMENT LE MOT ‘LOVE'": 
60 INPUT “VOTRE MESSAGE, JE VOUS PRIE";AS: L=LEN(AS) 

70 DIM TS(120): FOR 1=1 TO 10: PRINT: NEXT I! 

100 FOR 4=0 TO INT(60/L) 

110 FOR I=] TO L 

120 TS(J*L+1)=MINS(AS,1I,1) 


PRINT 


130 NEXT I: NEXT J 
140 C=0 
200 Al=l: P=l: C=C+1: IF C=37 THEN 999 
205 PRINT 
210 RFAD A: Al=Al4+A: IF P=] THEN 300 
LOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVE 240 FOR I=1 TO A: PRINT " ";: NEXT I: P=l: GOTO 400 
L OVELOVELOVELOVELOVELOVELOV LOVELOVELOVE 300 FOR I=Al-A TO Al-1: PRINT TS(I):: NFXT I: P=0 
LOV ELOVELOVELOVELOVELOVELOV LOYELOVE 400 IF A1>60 THEN 200 
LOVE VELOVELOVELOVELOVELOVEL VELOVE 410 GOTO 210 
LOVE VFLOVELOVEIOVELOVELOVE LOVET, ELOVE 600 DATA 60,1,12,26,9,12,3,R,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5 
LOVE VELOVELOVELOVELOVELOV VELOVFLO LOVE 610 DATA 4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4 
LOVE VELOVELOVELOVELOVELOV OVELOVELOV LOVE 620 DATA 4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4 
LOVE VELOVELOVELOVELOVELOV LOVELOVELOV LOVE 630 DATA 4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,6,8,11,4 
LOVE VELOVELOVELOVELOVELOV ELOVFELOVFLO LOVE 640 DATA 4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8 
LOVE VELOVELOVELOVELOVELOV VELOVELOVEL LOVE 650 DATA 1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,1 
LOVE VFLOVELOVELOVELOVELOV OVFLOVELOVE. LOVE 660 DATA 5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1 
LOVE VELOVELOVELOVELOVEL V LOVELOVFLOV LOVE 670 DATA 6,6,9,3,12,6,16,1,1,6,6,9,3,12,6,7,1,10 
LOVE VELOVELOVELOVELOVEL V LOVFLOVETO LOVF. 680 DATA 7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10 
LOVE VELOVELOVELOVELOVE _V OVELOVEL LOVE 690 DATA 8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1 
LOVE VELOVELOVELOVFLOV  V VELOV LOVE 700 DATA 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,10,16,6,12,5,1 
LOVE VELOVELOVELOVEL VE ELOVE 710 DATA 11,8,13,27,1,11,8,13,27,1,60 
L VELOV LOVELOVE 999 FOR I=1 TO 10: PRINT: NEXT I: END 
L VELOVELOV LOVELOVELOVE 
L VELOV E 
L VELOV E 
LOVE VELOVELOVELOV  VELOVELOVE VELOVELOVELO E 
LOVEL ELOVELOVELO  OVELOVELOVE VELOVELOVELOVE E 
LOVEL ELOVELOVELO OVELOVELOVE VELOVELOVELOVEL E 
LOVELO LOVELOVEL  LOVELOVELOVE VELOVELOVELOVELO E 
LOVELO LOVELOVEL LOVELOVELOVE VELOVEL VELOVELOVE 
LOVELOV OVELOVE  ELOVELOVELOVE VELOVE  VELOVELOVE 
LOVELOV OVELOVE  ELOVELOVELOVF VELOVELOVE 
LOVELOVE VELOV  VELOVELOVELOVE VELOVE VELOVELOVE 
LOVELOVF VELOV VELOVELOVELOVE VELOVEL VELOVELOVE 
LOVELOVEL ELO  OVELOVELOVELOVE VELOVELOVELOVELO E 
LOVELOVEL ELO OVELOVELOVELOVF VELOVFLOVELOVEL E 
LOVELOVELO L  LOVELOVELOVELOVE VELOVELOVELOVE E 
LOVELOVFLO LOVELOVELOVELOVE VELOVELOVELO E 
LOVELOVELOV ELOVELOVELOVE E 
LOVELOVELOV ELOVFLOVELOVE E 


LOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVE 
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Lunar-LEM-Rocket 


Ce jeu, avec ses nombreuses versions 
et appellations (ROCKET, LUNAR, LEM 
et APOLLO), est de loin le jeu ordinateur 
le plus populaire. Il existe dans des ver- 
sions qui peuvent vous transporter à 
500 pieds ou 200 miles au-dessus de la 
lune, ou également au-dessus d'autres 
planètes. Certaines permettent le contrôle 
de fusées à stabilisation directionnelle ou 
de la fusée de freinage. Les trois versions 
présentées ici représentent les versions 
les plus populaires. 

Dans la plupart des versions de ce jeu, il 
y a la tentation de ralentir trop tôt et de ne 
plus avoir assez de carburant pour l'atter- 
rissage, ce qui est bien sûr désastreux 
(vous vous en rendrez compte lorsque 
vous ferez atterrir votre propre capsule !) 

LUNAR était à l'origine en FOCAL par 
Jim Storer lorsqu'il était étudiant à 
Lexington High School et il fut converti par 
la suite en BASIC par David Ahl. ROCKET 
a été écrit par Eric Peters à DEC et LEM par 
William Labaree Il d'Alexandria, Virginia. 

Dans ce programme, vous établissez le 
taux de consommation des fusées de frei- 
nage (livres de carburant à la seconde) 
toutes les 10 secondes et vous essayez 
de réussir un atterrissage en douceur sur 
la lune. 200 livres à la seconde fait vrai- 
ment un gros freinage et O livre par se- 
conde c'est la chute libre. L'allumage a 
lieu à 8 livres par seconde, donc n'utilisez 
pas des taux de consommation entre 1 et 
7 livres par seconde. Pour rendre l'atter- 
rissage encore plus difficile mais plus 
proche de celui de la véritable capsule 
Apollo LEM, vous devriez avoir une quan- 
tité de carburant au départ (N) égale à 
16 000 livres et le poids de la capsule (M) 
égal à 32 500 livres à l'instruction 15. 

Quelques versions de BASIC s'oppo- 
sent aux séries de calculs étendus aux 
instructions 420 et 430 (lorsque vous vous 
rapprochez de la surface lunaire, ces 
nombres deviennent très petits). Si c'est le 
cas pour le vôtre, remplacez la forme dé- 
veloppée de l'instruction 420, par la for- 
mule suivante : 

—Q*(1+Q*(1/2+Q*(1/3+Q*(1/4+0Q/5)))) 

Vous devriez être capable de trouver 

l'autre par vous-même. 


LUNAR 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


CECI SIMULE SUR ORDINATEUR LE MODULE D'ATERRISSAGE LUNAIRE 
DU SYSTEME APOLLO. 


L'ORDINATEUR DE BORN EST TOMBF EN PANNE, DE SORTF QUE 

VOUS ETES OBLIGES DF POSER LA CAPSULE À LA MAIN. 

REGLFZ LA CONSOMMATION DES FUSEES DE FREINAGE À UNE VALEUR 
ALLANT DE O (CHUTE LIBRE) À 200 (MAXIMUM) LIVRES PAR SECONDE. 
LA CONSOMMATION EST REPRECISFE TOUTES LES 10 SECONDES. 


POIDS CAPSULE 32,500 LIVRES; POIDS CARBURANT 16,500 LIVRES. 


BONNF CHANCE 


SEC MI + PIEDS MPH LIV FUEL VIT. COMB. 
0 120 O0 3600 16500 ? 0 
10 109 5015 3636 16500 ? 0 
20 99 4223 3672 16500 ? 0 
30 89 2903 3708 16500 ? 0 
40 79 1055 3744 16500 ? 0 
50 68 3959 3780 16500 ? 0 
60 58 1055 3816 16500 ? O 
70 47 2903 3852 16500 ? 200 
8O 37 1883 3482.87 14500 ? 200 
90 28 1191 3086.71 12500 ? 200 
100 20 125] 2659.65 10500 ? 200 
110 13 2549 2196.95 8500 ? 200 
120 8 370 1692.63 6500 ? 100 
130 3 3778 1440.59 5500 ? 75 


SOL LUNAIRE À 139.926 SECONDES - VITESSE À L'IMPACT 1253.25 MPH 
DESOLF QU'IL N'Y AIT PAS DE SURVIVANTS. VOUS VOUS ETES ECRASESI 
VOUS AVFZ MEME CRFE UN NOUVEAU CRATFRE PROFOND DE 347.15 PIEDSI 


FNCORE?? 


REGLE7Z LA CONSOMMATION DES FUSFES DE FREINAGE À UNF VALEUR 
ALLANT DE Q (CHUTF LIBRE) À 200 (MAXIMUM) LIVRES PAR SECONDE. 
LA CONSOMMATION EST REPRECISFE TOUTES LES 10 SECONDES. 


POINS CAPSULF 32,500 LIVRES; POIDS CARBURANT 16,500 LIVRES. 


10 PRINT TAB(33);"LUNAR" 

20 PRINT TAR(15);"CREATIVFE COMPUTING MORRISTOWN, NEW JERSEY" 

25 PRINT:PRINT:PRINT 

30 PRINT "CECI SIMULE SUR ORDINATEUR LE MODULE D'ATERRISSAGE LUNAIRE" 

40 PRINT “DU SYSTEMF APOLLO.": PRINT: PRINT 

50 PRINT “L'ORDINATEUR DE BORD EST TOMBE EN PANNE, DE SORTE QUE" 

60 PRINT “VOUS ETFS OBLIGES DE POSER LA CAPSULE À LA MAIN." 

70 PRINT: PRINT “REGLEZ LA CONSOMMATION DES FUSEES DE FRFINAGE À UNE VALEUR" 
80 PRINT “ALLANT DE O (CHUTE LIBRE) À 200 (MAXIMUM) LIVRES PAR SECONDE." 

90 PRINT “LA CONSOMMATION EST REPRFCISEE TOUTES LES 10 SECONDES.": PRINT 
100 PRINT “POIDS CAPSULE 32,500 LIVRES; POIDS CARBURANT 16,500 LIVRES." 
110 PRINT: PRINT: PRINT: PRINT “RONNE CHANCE" 

120 L=0 

130 PRINT: PRINT "SFC","MI + PIEDS","MPH","LIV FUEL","VIT. COMB.":PRINT 

140 A=120:V=1:M=330001:N=16500:G=.001:7=1.8 

150 PRINT L,INT(A);INT(528O*(A-INT(A))),3600#*V,M-N, :INPUT K:T=10 

160 IF M-N<.001 THEN 240 

170 IF T<.001 THEN 150 

180 S=T: IF M>=N+S#*K THEN 200 

190 S=(M-N)/K 

200 GOSUB 420: IF I<=0 THEN 340 

210 IF V<=0 THEN 230 

220 IF J<O THEN 370 

230 GOSUB 330: GOTO 160 

240 PRINT "FUEL EPUISE A";L;"SECONDES" :S=(-V4SQR(V#*V+2#*A#*G) ) /G 

250 V=V4G#*S: L=L+S 

260 W=3600*V: PRINT “SOL LUNAIRE A";L;"SECONDES - VITESSE À L'IMPACT";W;"MPH" 
270 IF W<=1.2 THEN PRINT “ATTERRISSAGE PARFAITI": GOTO440 

280 IF W<=10 THEN PRINT "BON ATTERRISSAGE (ON PEUT FAIRE MIEUX) ":GOTO440 
282 IF W>60 THEN 300 

2R4 PRINT "APPAREII, ENDOMMAGF... VOUS ETES COINCE ICI JUSQU'A L'ARRIVEE D'UNE" 
286 PRINT "EQUIPE DF SECOURS. J'ESPERE QUE VOUS AUREZ ASSEZ D'OXYGENEI" 
288 GOTO 440 

300 PRINT "DESOLF QU'IL N'Y AIT PAS DE SURVIVANTS. VOUS VOUS ETES ECRASESI" 
310 PRINT "VOUS AVEZ MFME CREE UN NOUVEAU CRATFRE PROFOND DE";W*.277;"PIFDSI" 
320 GOTO 440 

330 L=L+S: T=T-S: M=M-S*K: A=l: V=J: RETURN 

340 IF S<.005 THEN 260 

350 D=V+SOR(V*V+2*A*(G-Z*K/M)):S=2*A/D 

360 GOSUR 420: GOSUB 330: GOTO 340 

370 W=(1-M*G/(Z*K))/2: S=M*V/(Z*K*(W4+SOR(W*W4+V/Z)))+.05:GOSUB 420 

3RO IF I<=0 THEN 340 

390 GOSUR 330: IF J>0 THEN 160 

400 IF V>0O THEN 370 

410 GOTO 160 

420 O=S*K/M; T=V4G#S47#(-0-Q%0/2-013/3-084/4-095/5) 

430 I=A-G*S*S/2-V#*S47%S*(0/2+0f2/6+0t3/12+0t4/20+085/30):RETURN 

440 PRINT:PRINT:PRINT:PRINT "ENCORE??": GOTO 70 

450 END 
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Voici la plus complète des trois ver- T,P,A? 100,23,0 


sions, qui vous permet de contrôler l'espa- 2 PA en 11907 -4.7501E+06 10.3525 1485.42 682.001 
cement de l'allumage, de la poussée et de 800 101994 -4.68338F+406 -A.76728 1341.57 637.901 
, , 5 A T,P,A? 100,40,-90 
l'angle d’attitude. Cela vous permet aussi 900 83401 -4.56273F406 -67.3972 1213.06 597.002 
i ê T,P,A? 50,10,0 
de travailler avec le système de mesure 950 94511.9 -4.50525E+06 -85.7316 1215.63 592.002 
métrique ou anglais. Les instructions dans T,P,A? 50,100,0 
: A > nn a on, -4. 57F+0 38.8876 216. .N0 
le dialogue du programme étant très com- RS id en NOR ARE HR or 
: j i : 1050 94323 °-4.39403F+06 -.607603 1041.58 422.002 
plètes, vous ne devriez pas avoir de pro ait 20 0100 00 
blèmes. 1100 a3090.5 -4.34RR9F406 -50.2R91 862.286 442.002 
T,P,A? 50,100,-90 
1150 R9147.1 -4.31231F+406 -108.81 677.921 392.002 
T,P,A? 100,100,-90 
1250 71572.8 -4.2659E+06  -246.664 290.395 292.002 
T,P,A? 50,100,0 
1300 62206.3 -4.251R8F4+406 -126.902 291.928 242.002 
T,P,A? 100,50,0 
1400 52015 -4.22353F406 -75.893 293.613 192.002 
T,P,A? 100,40,-90 
1500 36712.5 -4.20351E+06 -231.303 116.82 152.002 
T,P,A? 50,50,90 
1550 23160.8 -4.19493E406 -310.78 232.752 127.002 
LEM T,P,A? 50,50,90 
1600 5637.01 -4.18044F+06 -390.106 352.728 102.002 


CREATIVE COMPUTING MORRISTOWN, NEW JERSFY 
T,P,A? 10,0,0 


SIMULATION D'ATTERRISSAGE SUR LA LUNF 1610 1656.75 -4.17691E+06 -405.958 353.545 102.002 
T,P,A? 10,100,0 
AVEZ VOUS DEJA PILOTE UNE MISSION ‘APOLLO/LEM' (Y OU N)? N 1614.5 -141.102 -4.17532F+06 -393.077 353.916 97.5017 
QUEL SYSTEME DF MESURES PREFEREZ VOUS? CRASH LIIIILILLLLLLUELT 
1=METRIQUE  O=ANGLAIS VOTRE IMPACT À CREF UN CRATERE PROFOND DE 141.102 MFTRES 
AU MOMENT DU CONTACT VOUS ALLIEZ À 1904.15 KILOMETRES/HR 


ENTREZ LF NOMBRE QUI CONVIENT? 1 

VOULFZ VOUS RECOMMENCFR L'FXPERIFNCE (Y/N)? 
? NON MERCI 

VOULEZ VOUS RFCOMMFNCFR L'FXPERIENCE (Y/N)? 
2 N, 


VOUS FAITES PARTIF D'UNE MISSION D'ATTERRISSAGF SUR LA LUNE. COMME 
PILOTE DU ‘LEM', VOUS DEVREZ DONNER CERTAINES COMMANDES 

AU SYSTEME DE NAVIGATION DU MODULE. 

L'ORDINATEUR EMBARQUE DONNE EN CONTINU LES INFORMATIONS NECESSAIRES 


POUR ASSUREK LA NAVIGATION DU VAISSEAU. DOMMAGF, LF PROGRAMMF SPATIAL N'AIME PAS PERDRE DFS ASTRONAUTES 


EXPERIMENTFS. 
"RETURN' POUR LA SUITE 


L'ANGLE D'ATTITUNE EST DEFINI COMME SUIT. 

+ OR -180 DEGRE:S EST LA DIRETION OPPOSFF À LA LUNE 

-90 DEGRES EST LA TANGENTE À L'ORBITE DANS LF SENS DU MOUVEMENT 
490 DEGRES EST LA TANGENTE À L'ORRITE MAIS EN SENS INVERSE 

O (ZERO) DEGRF EST DIRECTEMENT VERS LA LUNE 


-180,180 
+ 
-90 < -+4- > 90 
L 
(Q 
<< DIRECTION DFE L'ORBITE << 








2 PRINT CHRS(26):; TAB(34);"LEM" 
SURFACE DE LA LUNE 4 PRINT SA TTNS RAA TUE COMPUTING  MORRISTOWN, NEW JERSEY" 
7 REM ROCKT2 EST UM JEU INTERACCIF QUI SIMULF UN ATTERRISSAGE LUNAIRE 
B REM SIMILAIRE À CELUI DU PROGRAMME APOLLO. 
TOUS LES ANGLES DE -180 À 180 DEGREFS SONT ACCEPTES. à AEN-LE HASARD NOV TIENE AUCUNE. PART 
H : 10 ZS="GO" 
RETURN' POUR LA SUITE 15 Rlal 
1 UNITE DE CARBURANT = 1 SEC. À LA POUSSEF MAXI 20 M=17.98 
IL FST TENU COMPTE DE TOUTES LES IRREGULARITES DS LES UTILISATIONS 25 Flas 25 
DU CARBURANT POUR LES CHANGEMENTS D'ATTITUDE. 30 N=7.5 
PUISSANCE MOTEUR DISPONIBLE: O (ZERO) OU TOUTE VALEUR ENTRE 35 R0=926 
10 ET 100 POUR CENT. 40 VO=1.29 
45 T=0 
UNE POUSSEF NEGATIVE EST INTERDITE.IL EN EST DE MEME POUR LF TEMPS. 50 H0=60 
55 R=RO4HO 
60 A=-3.425 
ENTREES:DURFE EN SECONDES ---- = (T) 65 R1=0 
POUSSEF EN POURCENTAGE - (P) 70 A1=9.R4361E-04 
ANGLE D'ATTITUDE EN DEGRES ------ (A) 75 R3=0 


"RETURN' POUR LA SUITE 


PAR EXEMPLE: 
T,P,A? 10,65,-60 
A TOUT MOMENT, POUR INTERROMPRE LA MISSION, ENTREZ 0,0,0 


SORTIES : TOTAL TEMPS PASSE EN SECONDES 
AUTITUNE EN METRFS 
PISTANCE DU SITE D'ATERRISSAGE EN MFTRES 
VITESSE VERTICALE EN METRES/SECONDE 
VITESSE HORIZONTALE EN METRES/SECONDE 
CARBURANT RESTANT (EN UNITES) 





THEN 1150 


“SIMULATION D'ATTERRISSAGE SUR LA LUNE" 





0] 111168 -5.87625F+406  O 1615.6 750 
T,P,A? 500,0,0 "AVEZ VOUS DFEJA PILOTE UNE MISSION ‘APOLIO/LEM' "; 
500 106292 -5.11625E+06 -19.2024 1619.92 750 " (Y OÙ N)": 
T,P,A? 100,0,0 0$ 
600 104194 -4.96353E+06 -22.7242 1621.78 750 "Y" THEN 190 
T,P,A? 50,90,-90 " THEN 205 
650 102916 -4.R9028E+06 -30.3753 1484.58 705 "REPONDEZ À LA QUESTION, JE VOUS PRIE, "; 


185 GOTO 160 

190 PRINT 

195 PRINT "ENTREZ L'OPTION CHOISIF POUR LE SYSTEME DE MESURES"; 

200 GOTO 225 

205 PRINT 

210 PRINT "QUEL SYSTEME DE MESURFS PREFEREZ VOUS?" 

215 PRINT “ 1=MFETRIQUE O=ANGLAIS" 

220 PRINT "ENTREZ LE NOMBRE QUI CONVIENT"; 

225 INPUT K 

230 PRINT 

235 1F K=0 THEN 280 

240 IF K=1 THEN 250 

245 GOTO 220 

250 Z=1852.8 

255 MS="METRES" 

260 G3=3.6 

265 N$=" KILOMETRES" 

270 G5=1000 

275 GOTO 305 

280 Z=6080 

285 MS="PIEDS" 

290 G3=.592 

295 NS="M. NAUTIQUES" 

300 G5=7 

305 IF B1=3 THEN 679 

310 1F Q$="Y" THEN 485 

315 PRINT 

320 PRINT “ VOUS FAITES PARTIE D'UNE MISSION D'ATTERRISSAGF SUR LA LUNF. COMME" 
325 PRINT "PILOTE DU ‘LEM', VOUS DFVRFZ DONNER CERTAINES COMMANDES " 
330 PRINT "AU SYSTFME NE NAVIGATION DU MODULE." 

335 PRINT “L'ORDINATEUR EMRARQUE DONNE EN CONTINU LES INFORMATIONS NECESSAIRES" 
340 PRINT "POUR ASSURER LA NAVIGATION DU VAISSEAU." 770 H0=H04X 


345 PRINT 

347 LINE INPUT''RETURN' POUR LA SUITE"; BASSES 775 RI=RISR2ÈTL 

350 PRINT CHRS (26) 7RO A=A+A] 713.5 A2*r1er) 

355 PRINT "L'ANGLE D'ATTITUNE EST DEFINI COMME SUIT." 7 ALEAL SA T1 

360 PRINT “+ OR -1R0 DEGREES EST LA DIRFTION OPPOSEE À LA LUNF" 0 M=M-.5*M2 

365 PRINT "-90 DEGRFS EST LA TANGENTF À L'ORBITE DANS LE SFNS DU MOUVEMENT" TS TeTATI 

370 PRINT "+90 DEGRES EST LA TANGENTE À L'ORRITE MAIS FN SENS INVERSR" 800 IF H0<3.2R7R3F-04 THEN 810 








375 PRINT "O (ZERO) DEGRE EST DIRECTEMENT VERS LA LUNE" 405 NEXT I 
380 PRINT 810 H=H0%7 
385 PRINT TAB(30);"-180,180" 815 H1=R1*7 






390 PRINT TAB(34 820 D=RO*A*7 





























395 PRINT TAR(27);"-90 < -+4- > 90" 825 D1=R*Al*7 

400 PRINT TAR(34 A30 T2=M1*R/MO 

405 PRINT TAR(34);"O" R3S PRINT “ ";T;TAR(10);H:;TAB(23);D0; 

410 PRINT TAR(23);"<< DIRECTION DE L'ORBITE <<" R40 PRINT TAB(37);H1;TAB(49);N1;:TAB(60);T2 

415 PRINT R45 IF HO<3.2R7R3E-04 THEN RARO 

420 PRINT TAB(27); "SURFACE DF LA LUNE" ASO IF RO*A>164,474 THEN 1050 

425 PRINT ASS IF M1>0 THEN 530 

430 PRINT R60 T1=29 

435 PRINT "TOUS LAS ANGLES DE -1R0 À 180 DEGREES SONT ACCEPTES." 865 F=0 

440 PRINT 870 P=0 

443 LINE INPUT“'RECURN' POUR LA SUITE"; BESSES A75 GOTO 620 

445 PRINT CHRS(26);"1 UNITE DE CARBURANT = | SEC. À LA POUSSFF MAXI" 380 IF Rl<-8.21957F-04 THEN 1020 

450 PRINT "IL EST TENU COMPTE DF TOUTES LES IRREGULARITES DS LES UTILISATIONS" 885 IF ARS(R*A1)>4.93174E-04 THEN 1020 

455 PRINT "DU CARBURANT POUR LFS CHANGEMENTS D'ATTITUNE." R90 IF H0<-3.287R3F-04 THEN 1020 

460 PRINT "PUISSANZE MOTEUR DISPONIRLE: 0 (ZERO) OÙ TOUTE VALEUR ENTRE 895 IF ABS(N)>10*Z THEN 1065 

465 PRINT "10 ET 100 PoulR CENT." 900 GaTo 995 

470 PRINT 905 PRINT 

475 PRINT'UNE POUSSER NEGATIVE FST INTERDITE.IL EN EST DE MEMF POUR LF TEMPS." 910 PRINT "CE VAISSFAU N'EST PAS CAPARLE DE FRANCHIR LE CONTINIIM"; 
4RO PRINT 915 PRINT "FSPACF-TEM9S." 

485 PRINT 920 GOTO 575 

490 PRINT "ENTREFS:DUREF EN SECONDES -- --. ri" 925 PRINT 

495 PRINT " POUSSEE EN POURCENTAGE - (P)" 930 PRINT "SI VOUS VOINLEZ VOUS METTRE EN VRILLF, SOETEZ DONC DU MODULF"* 
500 PRINT " ANGLE D'ATTITUNE EN NEGRES -- {A)" 935 PRINT “POUR UNE BALLADF DANS LE VIDE.* 

505 PRINT 940 ñQTO 575 

507 LINE INPUT"'RETURN' POUR LA SUITE"; BESSES 945 PRINT - 

509 PRINT CHRS(26) 950 PRINT “VALEUR DFE POUSSEE IMPOSSIBLE "; 

510 IF O$="Y" THEN 535 955 IF F<O THEN 985 

$1S PRINT PAR pReLEs” à 960 IP F-.05<,05 THEN 975 

520 PRINT "T,P, A? ,65,-60" " : . 

525 PRINT "A TOUT MOMENT, POIIR INTERROMPRE LA MISSION, FNTREZ 0,0,0* RE ere ot FORTE 

530 PRINT ” « 

539 PRINT "SORTIÆS : TOTAL TEMPS PASSF EN SECONDES" sn BAD Se FAIBLE 

540 PRINT * ALTITUDE EN ":MS RS PRINT "NEGATIVE" 

545 PRINT " DISTANCE DU SITE ND'ATERRISSAGF EN ":MS$ 290 ñoTo 575 

550 PRINT “ VITESSE VERTICALE EN ";M$;"/SECONDE" 995 PRINT 

555 PRINT “ VITESSE HORIZONTALE EN ";MS;"/SECONDE" 1000 PRINT “ICI BASE DFE LA MER DE LA TRANQUILLITE -- L'EAGLE S'EST POSE" 
560 PRINT " CARBURANT RESTANT (EN UNITES)" 1005 PRINT "FFLICITATIONS -- LE VAISSEAU N'A PAS SUBI DÉ DOMMAGES"* 

565 PRINT 1010 PRINT “VOUS POUVFZ MAINTENANT COMMENCER L'EXPLORATION DE LA SURFACE." 
570 GOTO 670 191$ GOTO 1100 

575 PRINT 1020 PRINT 

580 PRINT "T,P,A"; 1025 PRINT "CRASH LI1LITLILIILILLI" 

58S INPUT T1,F,P 1030 PRINT "VOTRE IMPACT À CREE UN CRATERE PROFOND DE";ABS(H):M$ 

590 F=F/100 1035 X1=$0R(D1*D1+H1*H1)*G3 

595 IF Tl<O THEN 905 1040 PRINT “AU MOMENT DIJ CONTACT VOUS ALLIFZ A";X1:NS;"/HR" 

600 IF Tl=0 THEN 1090 1048 GOTO 1100 

605 IF ARS(F-.05)>1 THEN 945 1050 PRINT 

619 IF ANS(F-.05)<.05 THFN 045 1055 PRINT "VOUS ETES PERDU DANS L'ESPACF SANS ESPOIR D'ETRE SECOURUS." 
615 IF ARS(P)>180 THEN 925 1060 GoTO 1100 É 

620 N=20 1065 PRINT “VOUS FTES AU SOI SAINS ET SAUFS - " 

625 IF Tl<4N0 THEN 635 1075 PRINT 

630 M=T1/20 1080 PRINT “MAIS AVEZ MANQUE LE SITE D'ATTERRISSAGE NE";ABS(D/G5);N$ 
635 TI=T) /14 105 GOTO 1100 

640 P=P#*3.14159/120 1090 PRINT 

645 S=SIN(P) 1095 PRINT “MISSION ABENED" 

650 F=CoS(P) 1100 PRINT 

1655 ‘12=MO*TI*F/B 1106 PRINT “VOULEZ VOUS REÇOMMENCER L'EXPERIENCF (Y/N)?" 

660 R1=-,5#R0*((VN/R)T2)+R*A1*Al 1110 INPUT 2$ 

665 A3=-2*Rl*Ai/R 1119 IF ZS="Y" THEN 20 

670 FOR I=l TO N 1120 IF Z$="N" THEN 1130 

675 IF Ml=0 THEN 715 1125 GOTO 1105 

680 M1=M1-M2 1130 PRINT 

685 IF M1>0 THFN 725 1135 PRINT “DOMMAGF, LE PROGRAMME SPATIAL N'AIME PAS PERDRE DES ASTRONAUTES" 
690 F=F#(14+M1/M2) 1140 PRINT "FXPÉRIMENTES.© | 
695 M2=MI +M2 1145 SToP 

700 PRINT "VOUS FTES EN PANNE SECHE." 1150 PRINT 

705 M1=0 1155 PRINT “BIEN, VOULEZ VOUS LES INSTRUCTIONS COMPLETES, OU BIEN CELLES" 
710 39T0 725 1160 PRINT “PORTANT SUR LES ENTREES-SORTIES? * 

715 F=0 1165 PRINT "l=INSTRUCTIONS COMPLETES" 

720 M2=0 1170 PRINT “2=CONCFRNANT LES ENTREES-SORTIES" 

725 M=M-.5*M2 1175 PRINT “3=AUCUNE" 

730 R4=R3 1180 INPUT BI 

735 R3=-.5*RO*((VO/R)L2)+R*A1%AI 1185 O$="N" 

740 R2=(3*R3-R4)/2+.00526*F1*F*C/M 1190 IF Rl=l THEN 205 

745 A4=A3 1195 QS="Y" 

750 A3=-2*Rl*Al/R 1200 ÏF Bl=2 THEN 190 

755 A2=(3*A3-A4)/2+.0056*F1*F#S/(M*R) 1205 IF Rl=3 THEN 190 

760 X=R1*T14+.5*R2*T1*T1 1210 qoTo 1165 

765 R=R+X 1215 ENN 
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Dans cette version, vous commencez à 
500 pieds au-dessus de la surface lunaire 
et vous contrôlez le taux de consomma- 
tion à la seconde. Chaque unité de carbu- 
rant ralentira votre descente d'un pied par 
seconde. La poussée maximum de votre 
moteur est de 30 pieds/sec/sec. 


ROCKET 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


ATTERRISSAGE LUNAIRE SIMULE 





VOULEZ VOUS LES INSTRUCTIONS (Y OU N)? Y 


VOUS ATTERRISSEZ SUR LA LUNE ET ETES EN CONTROLE MANUEL À 500 PIEDS 


AU DESSUS D'UNE ZONE FAVORABLE. VOUS AVEZ UNE VITESSE VERTICALEE 
DE DESCENTE DE 50 PIFDS/SEC. IL VOUS RESTE 120 UNITES DF CARBURANT 


VOICI LES REGLES QUI S'APPLIQUENT À VOTRE VEHICULE SPATIAL: 
(1) TOUTES LES SECONDES, ALTITUDE, VITESSE ET CARBURANT RESTANT 
SERONT PRECISES. 

APRES CE RAPPORT, UN ‘?' SERA AFFICHE. ENTREZ LE NOMBRE 
D'UNITES DE CARBURANT QUE VOUS DESIREZ BRULER PENDANT LA 
SECONDE SUIVANTE. CHAQUE UNITE DFE CARBURANT RALFNTIRA VOTRE 
DESCENTE D'1 PIED/SEC. 

LA POUSSEE MAXIMUM DE VOTRE MOTEUR EST DE 30 PIEDS/SEC/SEC OÙ 
30 UNITES DFE CARBURANT PAR SECONDE. 

AU CONTACT DU SOL LUNAIRE, VOTRE MOTEUR DE DESCENTE SERA COUPE 
AUTOMATIQUEMENT FT L'ON VOUS INDIQUERA VOTRE VITESSE 

VOTRE VITESSE D'ATERRISSAGE ET LE CARBURANT RESTANT. 

SI VOUSTOMBEZ EN PANNE SECHE, LE ‘?' CESSERA D'APPARAITRE, 
MAIS VOUS AUREZ DROIT AU COMPTE-RENDU À CHAQUE SECONDE JUSQU'A 
VOTRE CONTACT AVEC LA SURFACE DE LA LUNE. 


(2) 


(3) 
(4) 


(5) 


"RETURN' POUR COMMENCER LA PROCEDURE D'ATTERRISSAGE..... 


BONNE CHANCEI TI 
SEC PIFDS VITESS. CARB. TRACE DISTANCE 
0 500 50 120 I 
?0 
1 447.5 55 120 I > 
? 0 
2 390 60 120 I > 
20 
3 327.5 65 120 1 * 
? 0 
4 260 70 120 1 LL 
? 10 
5 192.5 65 110 1 # 
25 
6 127.5 65 105 1 x 
? 25 
7. 72.5 45 80 I bad 
? 25 
8 37.5 25 55 Le 
? 25 
9 22.5 5 30 1 
27 
10 
18.5 3 23 : 
27 
11 
16.5 1 16 1* 
? 4 
12 
15 2 12 1 
? 3 
13 
12 4 9 1* 
2.3 
14 
7 6 6 1® 
? 6 
*##** PANNE SECHE**#** 
15 
1.5 5 (e) 1 


* 
#*#“* CONTACT **** 
TOUCHE LE SOL À 15.2649 SECONDES. 
VITESSE D'ATERRISSAGE = 6.32456 FEFET/SEC. 
O UNITES DE CARBURANT DANS LES RESERVOIRS. 
#*#*##* DESOLE, MAIS VOUS L'AVEZ ECRASEIIII 
DES CONDOLEANCES ADEQUATFS SERONT ENVOYEFS À VOS PROCHES. 


UNE AUTRE MISSION (Y OÙ N)? N 
VOUS N'ETES PLUS SOUS MON CONTROLE. 


Ok 


10 PRINT TAB(33);"ROCKET" 

20 PRINT TAB(15):"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT:PRINT:PRINT 

70 PRINT “ATTERRISSAGE LUNAIRE SIMULE" 

BO PRINT "---- nn “+ PRINT 


100 INPUT “VOULEZ VOUS LES INSTRUCTIONS (Y OÙ N)";AS 
110 IF A$="N" THEN 390 


160 PRINT CHRS(26) 

200 PRINT “VOUS ATTERRISSEZ SUR LA LUNE FT ETES EN CONTROLE MANUEL À 500 PIEDS" 
210 PRINT “AU DESSUS D'UNE ZONE FAVORABLE. VOUS AVEZ UNE VITESSE VERTICALEE" 
220 PRINT "DE DESCENTE DFE 50 PIEDS/SEC. IL VOUS RESTE 120 UNITES DE CARBURANT." 
225 PRINT 

230 PRINT "VOICI LFS REGLES OUI S'APPLIQUENT À VOTRE VEHICULE SPATIAL:" 

240 PRINT “(1) TOUTES LES SECONDES, ALTITUDE, VITESSE ET CARBURANT RESTANT" 
250 PRINT * SERONT PRECISES." 

260 PRINT “(2) APRES CF RAPPORT, UN ‘?' SERA AFFICHE. ENTREZ LE NOMBRE" 

270 PRINT “ D'UNITES DE CARBURANT QUE VOUS DESIREZ BRULER PENDANT LA" 

280 PRINT SFCONDF SUIVANTE. CHAQUE UNITE DE CARBURANT RALENTIRA VOTRE" 
290 PRINT " DESCENTE D'1 PIFD/SFC." 

310 PRINT “(3) LA POUSSEE MAXIMUM DE VOTRE MOTEUR EST DE 30 PIEDS/SEC/SEC OU" 
320 PRINT " 30 UNITES DE CARBURANT PAR SECONDE." 

330 PRINT “(4) AU CONTACT DU SOL LUNAIRE, VOTRE MOTEUR DE DESCENTE SERA COUPE" 
340 PRINT " AUTOMATIQUEMENT FT L'ON VOUS INDIQUERA VOTRE VITESSE" 

350 PRINT VOTRE VITESSE D'ATERRISSAGE FT LE CARBURANT RESTANT." 

360 PRINT “(5) SI VOUSTOMBEZ EN PANNE SECHE, LE ‘?' CESSERA D'APPARAITRE, " 

370 PRINT * MAIS VOUS AUREZ DROIT AU COMPTE-RENDU A CHAQUE SECONDE JUSQU'A" 
38O PRINT “ VOTRF CONTACT AVEC LA SURFACE DE LA LUNE.": PRINT 

390 PRINT “'RETURN' POUR COMMENCER LA PROCEDURE D'ATTERRISSAGE....." 


393 LINE INPUT BESSES 

400 PRINT:PRINT "BONNE 

420 PRINT:PRINT 
430 PRINT "SEC 

450 PRINT 

455 T=0:H=500:V=50:F=] 20 
| 490 PRINT T:TAB(4):H;TAR(12);V;TAR(20);F;TAR(29);"I 

500 INPUT R A 

! 510 1F B<O THEN 650 1U L2 31 
{ 520 IF R>30 THEN B=30 
| 530 1F R>F THEN B=F 
[l 540 VI=V-R+5 D) 
560 F=F-R 

570 H=H-,5*(V4V]) 
SRO IF H<=0 THEN 670 
590 T=T+] 

600 V=v1 

610 IF F>O THEN 490 
615 IF R=0 THFN 640 
620 PRINT “*##*#* PANNE SECHE***#" 

640 PRINT T;TAB(4):H;TAB(12);V;:TAB(20);F;TAB(29);"I";TAB(H/12429);"#*" 
650 B=N0 

660 GOTO 540 

670 PRINT “#*##*#* CONTACT *###" 

680 H=H+.5*(V4+V1) 

690 IF B=5 THEN 720 

700 D=(-V4+SOR(V*V+H*(10-2#*B)))/(5-B) 

710 GOTO 730 

720 D=H/V 

730 V1=V+(5-B)*D 

760 PRINT "TOUCHE LF SOL A";T4D;"SECONDES." 

770 PRINT "VITFSSE D'ATERRISSAGF =";Vl;"FEET/SFC." 

780 PRINT F;"UNITES DE CARBURANT DANS LES RESERVOIRS." 

790 IF Vl<>O THEN 810 

ROO PRINT “FELICITATIONS!I ATTERRISSAGE PARFAITI" 

805 PRINT "VOTRE RREVET SERA RENOUVELE.......PLUS TARDI" 

810 IF ARBS(V1)<2 THEN 840 

R20 PRINT “#*###*#* DESOLE, MAIS VOUS L'AVFZ ECRASE!II11" 

R30 PRINT “NES CONNOLEANCES ADEOUATES SERONT ENVOYEES À VOS PROCHES." 
840 PRINT: PRINT : PRINT 

R5SO INPUT “UNE AUTRE MISSION (Y OU N)";AS 

B60 IF A$="Y" THEN 390 

870 PRINT: PRINT "VOUS N'ETES PLUS SOUS MON CONTROLE.": PRINT 

999 END 
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CHANCEI LI" 


PIENS VITESS. CARB. TRACE  DISTANCE" 


AB(H/12+29);"*" 





S F6 





Master 


Mind” 





Dans le numéro de Mars-Avril 1976 de 
Creative, nous avons publié une version 
pour ordinateur du jeu de logique Master 
Mind. Master Mind se joue à deux. L'un 
des joueurs est le « codeur », l’autre le 
« décodeur ». Au début du jeu, le codeur 
fait son code ou la combinaison de fiches 
colorées. Il ne les fait pas voir à l’autre 
joueur. Celui-ci essaye alors de deviner le 
code, en plaçant ses propres fiches une 
par une sur le support de jeu. Après qu'il 
ait fait sa tentative (en plaçant une combi- 
naison de fiches colorées sur le support) 
le codeur lui donne des indices pour lui in- 
diquer s'il était près de la bonne solution. 
Pour chaque fiche devinée, de la bonne 
couleur et à la bonne place, le décodeur 
reçoit une fiche noire. Pour chaque fiche 
devinée qui est de la bonne couleur mais 
qui n'est pas à la bonne place, le déco- 
deur reçoit une fiche blanche. Notez que 
ces fiches noires et blanches n'indiquent 
pas quelles étaient les fiches correctes, 
mais seulement qu'il y en avait. Par 
exemple, si le code était : 

Jaune Rouge Rouge Vert 
et que j'avais deviné 

Rouge Rouge Jaune Noir 
je recevrais deux fiches blanches et une 
noire pour mon essai. Je ne saurais pas 
(sauf si je compare avec mes essais pré- 
cédents) lesquelles de mes fiches étaient 
de la bonne couleur et au bon endroit. 

Beaucoup de personnes ont écrit des 
programmes informatiques pour jouer au 
Master Mind de façon passive, c'est-à-dire 
que l'ordinateur est le codeur et l'homme 
le décodeur. Ceci est relativement banal, 
le défi consiste à écrire un programme qui 
peut jouer une part active dans le « déco- 
dage ». 

En fait, amener l'ordinateur à déduire la 
combinaison correcte n'est pas difficile du 
tout. Imaginez par exemple que vous ayez 
fait une liste de tous les codes possibles, 
pour commencer, vous choisissez au ha- 
sard une des possibilités de votre liste. 
Ensuite, au fur et à mesure que vous rece- 
vez des indications, vous rayez de la liste 
les combinaisons que vous savez impos- 
sibles. Par exemple, si vous aviez deviné : 
Rouge Rouge Vert Vert et que l'on ne 
vous donne pas de fiches, vous savez dé- 
jà que toute combinaison comportant soit 
une fiche rouge soit une fiche verte, est 
impossible et peut être rayée de la liste. 


On poursuit le même procédé jusqu'à 
ce que l'on arrive à la solution correcte ou 
qu'il n'y ait plus de combinaisons sur la 
liste (dans ce cas, vous savez que le co- 
deur a fait une erreur quelque part en vous 
donnant les indications). Notez que dans 
cette exécution particulière, nous ne 
créons en fait jamais de liste des combi- 
naisons, mais gardons tout simplement 
trace de toutes celles (par ordre séquen- 
tiel) qui peuvent être correctes. En utilisant 
ce système, nous pouvons facilement dire 
que la 523° combinaison peut être cor- 
recte, mais pour produire effectivement la 
523° combinaison, nous devons compter à 
partir de la toute première (ou bien de la 
précédente si elle était inférieure à 523). 
En fait, ce problème pourrait être simplifié 
à une conversion de base 10 en base 
(nombre de couleurs) et il faudrait ajuster 
ensuite les valeurs utilisées dans la fonction 
MID $ afin de ne pas prendre un caractère 
zéro d’une chaîne si vous voulez faire une 
expérience. Nous avons essayé une ver- 
sion qui gardait une liste réelle de toutes 
les combinaisons possibles (en tant que 
chaîne de mémoire), ce qui était beaucoup 
plus rapide que cette version, mais qui 
« mangeait » des quantités incroyables de 
mémoire. 

Au début du jeu, vous entrez le nombre 
de couleurs et le nombre de positions que 
vous souhaitez utiliser (ce qui affectera di- 
rectement le nombre de combinaisons) 
ainsi que le nombre de parties que vous 
désirez jouer. Pendant que vous jouez à 
décoder, vous pouvez taper BOARD à 
n'importe quel moment pour obtenir une 
liste de vos essais et indications précé- 
dents et QUIT pour finir la partie. Notez 
que cette version utilise des chaînes de 
mémoire, mais c'est purement par conve- 
nance et cela peut être facilement converti 
pour un BASIC n'ayant pas de chaînes 
de mémoire, aussi longtemps qu'il a une 
fonction MID $. C'est parce que les 
chaînes de mémoire sont uni- 
dimensionnelles et n'excèdent jamais une 
longueur supérieure au nombre de posi- 
tions et que les éléments ne contiennent 
jamais plus d’un caractère. 
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MASTERMIND 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


NOMBRE DE COULEURS? 4 
NOMBRE DF POSITIONS? 4 
NOMBRE DE COUPS? 1] 

TOTAL NES POSSIRILITES = 256 


COULEUR 


LETTRE 





COUP NUMERO 


d'issès 


TROUVEZ MA COMBINAISON. 


COUP # 1 PROPOSITION ? NNNN 
VOUS AVEZ 1 NOIRS FT 0 BLANCS. 
COUP # 2 PROPOSITION ? BBBB 
VOUS AVEZ O NOIRS ET O BLANCS. 
COUP # 3 PROPOSITION ? NRVV 
VOUS AVEZ 1 NOIRS ET 3 BLANCS. 
COUP # 4 PROPOSITION ? RRRR 
VOUS AVEZ 1 NOIRS ET 0 BLANCS. 
COUP # 5 PROPOSITION ? NVVR 
VOUS AVEZ 2 NOIRS ET 2 BLANCS. 
COUP # 6 PROPOSITION ? RVVN 


VOS L'AVEZ TROUVE EN 
SCORE : 
ORDINATEUR O 
HOMME 


6 COUPS! 


C'EST MOI QUI CHERCHE MAINTENANT. 
COMBINAISON. 

"RETURN' QUAND VOUS SFREZ PRETS ? 
MON ESSAI SERA: RVNB NOIRS, BLANCS ? 
MON ESSAI SFRA: NNBR NOIRS, BLANCS 
MON ESSAI SERA: VBBR NOIRS, BLANCS 
MON ESSAI SERA: BNBV NOIRS, BLANCS 
JE L'AI TROUVE EN 4 COUPSI 
SCORE : 

ORDINATEUR 4 

HOMME 6 


PENSEZ À UNE 


Ÿ +0 +0 
brNO 
2NOw 


PARTIE TERMINEE 

SCORE FINAL: 
ORDINATEUR 4 
HOMME 6 


® Master Mind est un jeu fabriqué par In- 
victa Plastics, Ltd. 


RUN 


MASTERMIND 240 NEXT X 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 250 PRINT 
260 FOR R=1 TO R9 
270 PRINT 
280 PRINT "COUP NUMERO ";R;"----" 
NOMRRE DE COULEURS? 5 290 PRINT 
NOMBRE DE POSITIONS? 4 300 PRINT "TROUVFZ MA COMBINAISON." 
NOMRRE DE COUPS? 1] 310 RFM FORMER UNE COMRINAISON 
TOTAL DES POSSIBILITES = 625 320 A=INT(P#RND(1)41) 


330 GOosSURB 3000 

340 FOR X=1 TO À 
COULEUR LETTRE 350 GOSUR 3500 
360 NEXT X 


























NOIR 370 FOR M=1 TO 19 
BLANC 380 PRINT PROPOSITION ";:INPUT XS 
ROUGE 390 IF XS="RECAP" THEN 2000 
VERT 400 IF XS="QUIT" THEN 2500 
ORANGE 410 IF LEN(XS)<>P9 THEN PRINT "NBRF NE POSITIONS ERRONNE.":GOTO 380 
420 RFM DFCONNENSER XS EN GS(1-P9) 
430 FOR X=1 TN P9 
COUP NUMERO 1 ---- 440 FOR Y=l TO C9 
=! v 
NÉE cn CORNE, 220 TRADE ANAL) EMINÈ(LS #1) THEN 480 
OPOSITION ? NNNN min, s (xs ni : ”. 
VOUS AVEZ 1 NOIRS ET O BLANCS. pd TRE Can TU EST INCONNU." :GOTO 380 
COUP # 2 PROPOSITION ? BBBN 490 NEXT X ‘ 
ue PÜDE re ei su et a CONVERTIT N(1-P9) EN AS(1-P9) [ESSAI PFEL)] 
VOUS AVEZ l NOIRS ET 2 BLANCS. es , : : : 
COUP # 4 PROPOSITION ? BVBN 430 ÉDaUn 4500 L'ON ORTIENT LE NOMRRF DE NOIRS FT DF BLANCS 
COUP # S PROPOSITION ? VBBN a nr 
; L 550 RFM DIRE A L'HOMME LFS RESIH, APS 
MERE se Fer ee BLANCS : 560 PRINT "VOUS AVFZ ";3R;" NOIRS ET ";W;" HLANCS." 
VOUS AVEZ O NOIRS er Pa 570 RFM | SAUVEGARDER POP CELA POUR AFFICHAGE ULTERIFIUR TABLEAU 
- = 
COUP # 7 PROPOSITION ? VNBB . en 
VOS L'AVEZ TROUVE EN 7 COUPSI Si v 
SCORE: 600 S(M,2)= 
610 NFXT 4 
ROME è 620 PRINT "VOIS AVFZ FPUISE VOS COTNPS! C'EST VOTRE SEUL, RESIILTATI":GOTO 640 
622 GOSUR 4000 
C'EST MOI QUI CHERCHE MAINTENANT. PENSEZ À UNE COMBINAISON. 623 PRINT "LA COMBINAISON MXATPÉ ETATTE 5 
"RETURN' QUAND VOUS SEREZ PRETS ? 624 FOR X=1 TO PQ 
MON ESSAI SERA: NVRB NOIRS, BLANCS ? 1,0 625 PRINT AS(X): 
MON ESSAI SERA: BBOB NOIRS, BLANCS ? 0,0 626 NEXT X 
MON ESSAI SERA: VVVV NOIRS, BLANCS ? 0,0 627 PRINT ” ; . 
MON ESSAI SERA: RRRR NOIRS, BLANCS ? 0,0 630 PRINT "VOS L'AVEZ TROUVE FN M: coups! 
MON FSSAI SERA: NNNN NOIRS, BLANCS ? 4,0 640 H=11+M 
JE L'AI TROUVE EN 5 COUPS! 650 GoSUR 5000 
SCORE: 660 RFM 
ORDINATEUR 5 670 REM MAINTENANT L'ORDINATEUR ESSAYE 
HOMME 7 580 RFM 
690 FNR X=] TO P 
PARTIE TERMINEE 700 1(X)=1 
SCORE FINAL: FIOUNEXT Xe ane se | _— : 
ORDINATEUR 5 720 PRINT "C'EST MOT OL mec AACNMENANT.  PENSEZ A !INE COMBINAISON. 
730 INPUT “RETURN! OHANI VOUS SEREZ PRETS ":XS 
HOMME 7 740 FOR M=1 TO 10 
750 GOS1B 3000 
769 RFM CALCULER UN FSSAI 
770 G=INT(P#RND(1)4+1) 
780 IF 1(G)=1 THEN 890 
790 FOR X=G TO P 
ROO 1F I(X)=1 THEN BRO 
310 NEXT X 
R20 FOR X=1 9 6 
R3Q IF I(X)=1 THEN A80 
RA4O NEXT * 
RSQ PRINT "VOUS FTOURDI, VOUS M'AVEZ DONNE DES INFORMATIONS FRELATEES." 
860 PRINT "RECOMMENCONS, ET SOVONS PLUS ATTENTIFS, CETTE FOIS." 
R70 GOTO 660 
RAO G=X 
R9Q RE ON CONVERTIT ESSAI #G EN GS 
900 FOR X=1 TO G 
919 GoSUB 3500 
920 NEXT X 
: 930 GOSUR 6000 
2 PRINT TAB(30);"MASTERMIND" 940 PRI'IT "MON ESSAI SERA: "; 
4 PRINT TAR(15):"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 950 FOR X=1 TO P9 
6 PRINT: PRINT: PRINT 369 PRINT HS(X): 
10 RFM 970 NFXT X 
20 REM MASTERMIND II 980 INPUT “ NOIRS, BLANCS ";R1,W1 
30 REM STEVE NORTH 990 IF Bl=Pa THEN 1120 
40 REM CREATIVE COMPUTING 1900 GOSUR 3000 
50 REM PO BOX 789-M MORRISTOWN NEW JERSEY 07960 1910 FOR X=1 TO P 
GO REM 1n20 GosSUR 3500 
70 RFM 1030 IF I(X)=0 THEN 1070 
BO INPUT “NOMBRE DE COULEURS" ;C9 1935 GOSUR 6500 
90 IF C9>8 THEN PRINT "PAS PLUS DE 8, JE VOUS PRIE!":GOTO 80 1040 GoSURB 4000 
100 INPUT "NOMRRE DFE POSITIONS";P9 1950 GOSUR 4500 
110 INPUT “NOMBRE DE COUPS";R9 1060 IF Bl<>B OR Wl<>W THEN I(X)=0 
120 P=C9#P9 1070 NFXT X 
130 PRINT "TOTAL DES POSSIBILITES =";P 1ORN NEXT M 
140 H=0:C=0 1999 PRINT "J'AI UTILISE TOUS MES COUPS!" 
150 DIM Q(P9),S(10,2),SS(10),AS(P9),GS(P9),1(P),H$(P9) 1100 PRINT “J'AI L'IMPRESSION QUE MA C.P.i]. S'EST OFFERT UN JOUR DE CONGE." 
160 L$="NBRVOJPM" 1110 GOTO 1130 
170 PRINT 1120 PRINT "JE L'AI TROUVF EN “;M;"* COUPS!" 
180 PRINT 1130 C=C+M 


1140 GOSUR 5009 


190 PRINT “COULEUR 
du 1150 NEXT R 


200 PRINT “ 








210 FOR X=1 TO C9 1169 PRINT “PARTIE TERMINEE" 
220 RFAD XS 1170 PRINT “SCORE FINAL:" 
230 PRINT XS;TAR(13);MIDS(LS,X,1) 1180 GOSUR 5040 
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1190 
2000 
2010 
2020 
2025 
2030 
2040 
2050 
2060 
2070 
2075 
2080 
2500 
2510 
2520 
2530 
2535 
2540 
2550 
2560 
2565 
2570 
2580 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3500 
3510 
3520 
3522 
3524 
3526 
3527 
3528 
3529 
3530 
3540 
3550 
3560 
3570 
3580 
4000 
4010 
4020 
4030 
4040 
4050 
4060 


STOP 
RFM 

REM ROUTINE D'AFFICHAGF DIU TABLFAU 

REM 

PRINT 

PRINT "RECAP" 

PRINT “COUP ESSAI NOIRS RLANCS" 
FOR Z=1 TO M-] 

PRINT Z:TAR(9):SS(Z);TAR(25);:S(7,1):TAB(35):S(7,2) 
NEXT 7 

PRINT 

GOTO 380 

RFM 

RFM ROUTINF D'ARANDON 

REM 

PRINT "VOUS OUITTEZI MA COMBINAISON ETAIT: 
GOSUR 4000 

FOR X=] TO P9 

PRINT AS(X): 

NEXT X 

PRINT 

PRINT “AU REVOIR" 

SroPp 

REM 

REM INITIALISER Q(1-P9) AVEC DES ZEROS 
REM 

FOR S=] T9 Pa 

o(s)=0 

NEXT S 

RETURN 

REM 

RFM INCREMENTER OQ(1-P9) 

REM 

IF Q0(1)>0 THEN 3530 


RFM SI À ZERO, C'EST LE 1ER INCREMFNT: LFS METTRE TOUS A UN 


FOR S=1 TO P9 
o(S)=1 

NEXT S 

RETURN 

o=1 

o(0)=a10)+1 

IF Q(O)\<=C9 THEN RETURN 

o(Q)=1 

O=041 

GOTO 3540 

REM 

REM CONVERTIR Q(1-P9) EN AS(1-P9) 
REM 

FOR S=1 TO P9 

AS(S)=MINS(LS,Q(S),1) 

NEXT S 

RETURN 
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4500 
4510 
4520 
4530 
4549 
4550 
45690 
4570 
4580 
4590 
4600 
4610 
4629 
4630 
4649 
4645 
4650 
4660 
4670 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
6n0n 
6010 
6020 
6030 
6040 
6050 
6060 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
8000 
8010 
9998 
99ag3 


9? 


RFM 

REM ORTENIR LE NOMBRE JE NOIRS(R) FT DE BLANCS (W) 
REM LE PROCESSUS ECRASE GS FT AS 

REM 


B=0:W=0: F=0 
FOR S=] TO P9 

IF GS(S)<>AS(S) THEN 4620 
B=R41 

GS(S)=CHRS(F) 
AS(S)=CHRS(F+1) 

F=F42 

GOTO 4660 

FOR T=] TO Pa 

IF GS(S)<>AS(T) THEN 4650 
IF GS(T)=AS(T) THEN 4650 
W=W+1:AS(T)=CHRS(F):G$(S)=CHRS(F+1):F=F+2:GOTO 4660 
NEXT T 

NEXT S 

RETURN 

RFM 

REM AFFICHER SCORES 
REM 

PRINT “SCORE :" 

PRINT * ORDINATEUR ";C 
PRINT " HOMME “5H 
PRINT 

RETURN 

REY 

REM CONVERTIR Q(1-P9) EN GS(1-P9) 
REM 

FOR S=] TO P9 
GS(S)=MIDS(LS,Q(S),1) 

NEXT S 

RETURN 

REM 

REM CONVERTIR Q(1-P9) EN HS(1-P9) 
REM 

FOP S=1 TO P9 
HS(S)=MIDS(LS,Q(S),1) 


NEXT S 

RETURN 

RFM 

REM RFCOPIER H$ DANS GS. 
REM 


FOR S=1 TO P9 
GS(S)=H$S(S) 


NEXT S 

RETURN 

REM PONNEFS DU PROGRAMME POUR LFS NOMS DF COULEURS 
DATA NOIR, RLANC, ROUGE, VERT, ORANGF, JAUNE , POURPRE, MARRON 
REM +-.NOUS SOMMES NAVRES MAIS IL EST TEMPS DE PARTIR... 
END 


Math Dice (Calcul sur dé) 





Le programme vous donne des stimu- 
lants visuels pour vous aider à additionner 
en utilisant des dés imprimés sans qu'il y 
ait de lecture. C'est bien pour commencer 
à additionner, puisque la réponse est ob- 
tenue en comptant les points sur le dé, 
en mémorisant en même temps des don- 
nées mathématiques ou en devenant 
conscient de concepts numériques. 

Il fut écrit à l'origine par Jim Gerrish, 
un protesseur de l'école Bernice A. Ray à 
Hanover, New Hampshire. 


MATH DICE 


CREATIVF COMPUTING MORRISTOWN, NFW JERSEY 


CF PROGRAMME GENERF LES [IMAGES SUCCESSIVES DE DEUX DES. 

QUAND DEUX DES, UN SIGNF EGAL SUIVIS D'UN POINT D'INTERROGATION 
ONT ETE AFFICHES, TAPEZ VOTRE REPONSE ET APPUYEZ SUR 
POUR METTRE FIN À LA LFCON, APPUYER SUR CONTROL-C. 


mn mn 
eo 


=? 4 
EXACTI 


LES DFS ROULENT DE NOUVEAU... 


mn nm 
n 


=? 7 


NON, COMPTEZ LFS POINTS ET DONNEZ UNE AUTRE REPONSF,. 


=? 5 
NON, LA RFPONSE EST 6 


LES NES ROULENT DE NOUVEAU... 





B.10 PRINT TAB(31);"MATH DICE" 
PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
265 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
375 
380 
381 
40n 
410 
500 
510 
520 
530 
540 
541 
550 
560 
570 
5RO 
590 
600 
601 
610 
615 
620 
999 


105 


PRINT:PRINT:PRINT 


PRINT "CE PROGRAMME GENERE LES IMAGES SUCCESSIVES DE DEUX DES." 


PRINT “QUAND DEUX DES, UN SIGNE EGAL SUIVIS D'UN POINT D'INTERROGATION" 
PRINT “ONT FTE AFFICHES, TAPEZ VOTRE REPONSE ET APPUYEZ SUR ‘RETURN'." 
PRINT “POUR METTRE FIN À LA LEÇON, APPUYER SUR CONTROL-C." 
PRINT 
PRINT 

N=N+41 

D=INT(6*RND(1)4+1) 

PRINT" ----- ” 

IF D=1 THEN 200 

IF D=2 THEN 180 

IF D=3 THEN 180 

PRINT ET UE" 

GOTO 210 

PRINT “I * 1° 

GOTO 210 

PRINT “I 1" 

IF D=2 THEN 260 

IF D=4 THEN 260 

IF D=6 THEN 270 

PRINT “I ” 1” 

GOTO 2R0 

PRINT “I x” 

GOTO 280 

PRINT “I * * 1" 

IF D=] THEN 350 

IF D=2 THEN 330 

IF D=3 THEN 330 

PRINT “I * * I° 

GOTO 360 

PRINT "I *"L" 

GOTO 360 

PRINT "I 1" 

PRINT “ ----- ds 

PRINT 

IF N=2 THEN 500 

PRINT * +" 

PRINT 

A=D 

GOTO 100 

T=D+A 

PRINT " ="; 

INPUT TI 

IF Tl=T THEN 590 

PRINT "NON, COMPTEZ LES POINTS FT DONNEZ UNE AUTRE REPONSE." 
PRINT * ="; 

INPUT T2 

IF T2=T THEN 590 

PRINT "NON, LA RFPONSE EST";T 
GOTO 600 

PRINT “EXACTI" 

PRINT 

PRINT "LES DES ROULENT DF NOUVEAU..." 
PRINT 

N=0 

GOTO 100 

END 


Mugwump 





Votre but dans ce jeu est de trouver les 
quatre Mugwumps qui se cachent dans di- 
vers carrés d’une grille de 10 sur 10. Leur 
repaire (en bas à gauche) est le point 
d'origine (0,0) et vous utilisez deux 
nombres entiers (de O à 9) séparés par 
une virgule pour deviner leur position. Le 
premier nombre est le nombre d'unités à 
droite du point origine et le deuxième 
nombre est la distance au-dessus du point 
origine. 

Vous avez dix essais pour situer les 
quatre Mugwumps. Après chaque essai, 
l'ordinateur vous dit la distance qui vous 
sépare de chaque Mugwump. Jouer à 
l’aide de papier graphique et d’un compas 
devrait vous permettre de trouver tous les 
Mugwumps en 6 ou 7 déplacements, en 
utilisant la triangulation similaire à la navi- 
gation radio de Loran. 

Si vous voulez rendre le jeu quelque 
peu plus difficile, vous pouvez imprimer la 
distance entre chaque Mugwump et le 
nombre entier le plus proche, soit en ar- 
rondissant soit en tronquant. L'instruction 
se imprimera soit INT (D+5) soit INT (D). 0 01 

e programme a été légèrement modi- ] 4 7 ] 1 12 13 14 
fié par Bob Albrecht de la People's Com- 23 $ 6 8 9 21 5 
puter Company. I! fut à l'origine écrit par 
des étudiants de Bud Valenti de Project Utilisez cette échelle avec un compas 
SOLO à Pittsburgh, Pennsylvanie. pour vous aider à trouver les Mugwumps 
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MUGWUMP 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DANS CE JEU IL S'AGIT DE TROUVFR QUATRE ‘MUGWUMPS' CACHES 
SUR UNE GRILLE 10 X 10. LE REPAIRE EST LA POSITION 0,0 

TOUS VOS ESSAIS DOIVENT COMPRENDRE 2 NOMBRES, CHACUN ETANT 
COMPRIS ENTRE O & 9 INCLUSIVEMENT. LF PREMIER NOMBRE 

EST LA DISTANCF. À DROITE DU REPAIRE ET LE SFCOND CELUI NE LA 
DISTANCE ‘AU DESSUS' DU REPAIRF. 


VOUS AVEZ DROIT À 10 ESSAIS. APRES CHAQUE ESSAI, JF VOUS DIRAI 
LA PISTANCF QUI VOUS SEPARFE DE CHAQUE MUGWUMP. 


TOUR NO. 1 QUE PROPOSEZ VOUS? 5,5 
VOUS ETES À 5.8 UNITES DU MUGWUMP 
VOUS FTES A 2.8 UNITES DU MUGWUMP 
VOUS FTFS À 2.2 UNITES DU MUGWUMP 
VOUS ETES À 2 UNITES DU MUGWUMP 4 


w D 


TOUR NO. 2 QUF PROPOSEZ VOUS? 0,0 
VOUS FETES À 2 OUNITES DU MUGWUMP 1 
VOUS FTES À 7.6 UNITES DU MUGWUMP 2 
VOUS ETES A 5 UNITES DU MUGWUMP 3 
VOUS FETES À 5.8 UNITES DU MUGWUMP 4 


TOUR NO. 3 QUE PROPOSEZ VOUS? 9,8 
VOUS ETES À 10.6 UNITES DU MUGWUMP 1 
VOUS ETFS À 6 UNITES DU MUGWUMP 2 
VOUS ETES À 7.2 UNITES DU MUGWUMP 3 
VOUS ETES À 6.4 UNITES DU MUGWUMP 4 


TOUR NO, 4 QUE PROPOSEZ VOUS? 9,9 
VOUS ETES A 11.4 UNITES DU MUGWUMP 1 
VOUS FETES À 6.3 UNITES NU MUGWUMP 2 


VOUS ETES À 7.8 UNITES DU MUGWUMP 3 1 PRINT TAB(33);"MUGWUMP" 
VOUS FTES À 7,2 UNITES DU MUGWUMP 4 2 PRINT TAB(15);:"CRFATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

3 PRINT:PRINT: PRINT 

4 REM COURTESY PEOPLE'S COMPUTER COMPANY 
TOUR NO. 5 QUE PROPOSEZ VOUS? 8,8 10 DIM P(4,2) 
VOUS FTES À 10 UNITES DU MUGWUMP 1 20 PRINT "DANS CE JEU IL S'AGIT DE TROUVER QUATRE ‘MUGWUMPS' CACHES" 
VOUS ETES À 5 UNITES DU MUGWUMP 2 30 PRINT “SUR UNF GRILLE 10 X 10. LE REPAIRE EST LA POSITION 0,0" 
VOUS ETFS À 6.4 UNITFS DU MUGWUMP 3 40 PRINT "TOUS VOS ESSAIS DOLVENT COMPRENDRE 2 NOMBRES, CHACUN ETANT" 
VOUS FTES À 5.8 UNITES DU MUGWUMP 4 50 PRINT "COMPRIS ENTRE O & 9 INCLUSIVFMENT. LE PREMIER NOMBRE" 


GA PRINT "EST LA DISTANCF À DROITF NU REPAIRE FT LF SECOND CELUI DE LA" 
70 PRINT "DISTANCF ‘AU DFSSUS' DU REPAIRE." 
TOUR NO. 6 QUE PROPOSEZ VOUS? 5,6 80 PRINT 


VOUS ETES À 6.7 UNITES DU MUGWUMP 1 90 PRINT “VOUS AVFZ DROIT À 10 FSSAIS. APRFS CHAQUE FSSAI, JE VOUS DIRAI" 
VOUS ETES À 2.2 UNITES DU MUGWUMP 2 100 PRINT “LA DISTANCE QUI VOUS SFPARE NE CHAQUE MUGWUMP." 
VOUS ETES À 2.8 UNITES DU MUGWUMP 3 110 PRINT 
VOUS FTES À 3 UNITES DU MUGWUMP 4 240 GOSUR 1000 
250 T=0 
260 T=T+1 
TOUR NO. 7 QUE PROPOSFZ VOUS? 3,5 270 PRINT 
VOUS ETES À 5 UNITES DU MUGWUMP 1 275 PRINT 
VOUS ETES À 2 UNITES DU MUGWUMP 2 290 PRINT “TOUR NO.";T;"QUF PROPOSEZ VOUS"; 


300 INPUT M,N 

310 FOR I=1 TO 4 

320 IF P(I,1)=-1 THEN 400 
330 IF P(I1,1)<>M THFN 380 
TOUR NO. 8 QUE PROPOSEZ VOUS? 2,5 340 1F P(1,2)<>N THEN 380 
VOUS ETES À 5 UNITES DU MUGWUMP 1 350 P(I1,1)=-1 


VOUS ETES À 1 UNITES DU MUGWUMP 3 
VOUS FETES À 2.R UNITES DU MUGWUMP 4 


VOUS FETES A 2.2 UNITES DU MUGWUMP 2 360 PRINT “VOUS AVFZ TROUVF LE MUGWUMP";I 
VOUS ETES À 1.4 UNITES DU MUGWUMP 3 370 GOTO 400 
VOUS FTES À 3.6 UNITES DU MUGWUMP 4 380 D=SOR((P(1,1)-M)f2+(P(1,2)-N)?2) 
390 PRINT "VOUS FETES A"; (INT(D#10))/10;"UNITES DU MUGWUMP";1 
400 NFXT I 
TOUR NO. 9 QUE PROPOSEZ VOUS? 3,6 410 FOR J=] TO 4 
VOUS FTES À 6 UNITES DU MUGWUMP 1 420 IF P(J,1)<>-1 THEN 470 
VOUS ETFS À 1 UNITES DU MUGWUMP 2 . 430 NEXT J 
VOUS FTES À 2 UNITES DU MUGWUMP 3 440 PRINT 
VOUS ETES À 3.6 UNITES DU MUGWUMP 4 450 PRINT "VOUS LES AVEZ TOUS TROUVES EN";T; "TOURS!" 
460 GOTO 580 
470 IF T<10 THFN 260 
TOUR NO. 10 QUE PROPOSEZ VOUS? 4,6 480 PRINT 
VOUS ETES À 6.3 UNITES DU MUGWUMP 1 490 PRINT "DESOLF, CELA FAIT 10 FSSAIS,. VOILA OU ILS SE CACHAIENT" 
VOUS ETES À 1.4 UNITES DU MUGWUMP 2 540 FOR I=1 fo 4 
VOUS ETES À 2.2 UNITES DU MUGWUMP 3 550 IF P(I,1)=-1 THEN 570 
VOUS ETES À 3.1 UNITES DU MUGWUMP 4 560 PRINT “LF MUGWUMP";I; "EST EN (":p(1,1);",";P(I,2);")" 
570 NEXT I 
DESOLF, CELA FAIT 10 ESSAIS. VOILA OU ILS SE CACHAIENT 580 PRINT 
LE MUGWUMP 1 EST EN ( 2, O ) 600 PRINT "C'ETAIT AMUSANT!  REJOUONS....... à 
LE MUGWUMP 2 EST EN ( 3 , 7 ) 610 PRINT “QUATRF AUTRFS MUGWUMPS SONT MAINTENANT CACHES." 
LE MUGWUMP 3 EST EN ( 3 , 4 ) 630 GOT 240 
LE MUGWUMP 4 EST EN ( 5 , 3 ) 1000 FOR J=1 TO 2 
1910 FOR I=1 TO 4 
C'ETAIT AMUSANTI!I REJOUONS....... 1020 P(I,J)=INT(I0O#RND(1)) 
QUATRF AUTRES MUGWUMPS SONT MAINTENANT CACHES. 1030 NEXT I 


1040 NEXT J 
1050 RFTURN 
TOUR NO. 1 QUE PROPOSEZ VOUS? 1099 ENN 
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Name 





Name est un petit briseur de glace rigolo 
qui a pour but d'établir une relation entre 
un ordinateur et un humain timide. L'algo- 
rithme de tri utilisé est très inefficace — 
comme tout lecteur de Creative Compu- 
ting pourrait vous le dire — et c'est le pire 
pour la vitesse. Cependant, le programme 
constitue un bon amusement et c'est ce 
qui compte ici. 

Name a été écrit à l'origine par Geoffrey 

















NAME 
CRFATIVE COMPUTING MORRISTOWN, NEW JERSEY 


HELLO. 
MON NOM C'EST ‘L'ORDINATFUR CREATIF'. 
COMMENT VOUS APPELEZ VOUS (PRENOM FT NOM? NEPOMUCENE VISTAMBOIR 


MERCI, RIOBMATSIV ENFCUMOPEN. 
HOULALA! J'AI L'IMPRESSION QUE JE L'AI COMPRIS A L'ENVERS. 
UN ORDINATEUR DE 1ER CHOIX COMME MOI EST IMPAPRDONNARLE! 


MAIS JF VIENS JUSTF DF REMARQUER QUE VOS LFTTRES FTAIFNT EN DESORDRF. 
JE VAIS LFS REMFTTRE DANS LE BON ORDRE COMME CECI:  ARCEFEIIMMNNOOPRSTUV 


Chase de l'Abbaye, Portsmouth, lle de VOUS NE LES TROUVEZ PAS MIEUX COMME CA? N 

Rhodes. JE SUIS NAVRE QUE VOUS NE LES AIMIEZ PAS COMME CA. 
J'AI FTE FENCHANTE DE FAIRE VOTRE CONNAISSANCE NEPOMUCENE VISTAMROIR. 
PASSEZ UNE RONNE JOURNEE! 
Ok 

1 PRINT TAR(34);"NAMF" 

2 PRINT TAB(15):"CREATIVE COMPUTING MORRISTOWN, NEW JFRSEY" 

3 PRINT: PRINT: PRINT 

5 DIM RS(40) 

10 PRINT "HFLLO.": PRINT "MON NOM C'EST ‘L'ORDINATEUR CREATIF 

20 PRINT “COMMENT VOUS APPELEZ VOUS (PRENOM ET NOM";: INPUT AS: L=[LFN(AS) 

30 PRINT: PRINT “MERCI, "; 

40 FOR TO Le: RS(T)=MINS(AS,I,1): NEXT I 

50 FOR I=L TO 1 STFP -l: PRINT RS(I):: NEXT I! 

60 PRINT".":PRINT “HOULALA! J'AI L'IMPRESSION QUE JF L'AI COMPRIS À L'ENVERS." 

70 PRINT "UN ORDINATEUR DF 1ER CHOIX COMMF MOI FST IMPARDONNABLE PRINT 

80 PRINT'MAIS JF VIENS JUSTE DE REMARQUER QUE VOS LETTRES ETAIENT EN DESORDRE." 

9Q PRINT "JF VAIS LES REMETTRE DANS LF BON ORDRE COMME CFCI: 

100 FOR J=2 TO L: I=J-1: TS=BS(J) 

110 IF TS>RS(I) THEN 130 

120 RS(141)=RS(I): I=]-): IF 1>0 THEN 110 

130 RS(I+1)=TS: NFXT J 

140 FOR I=1 TO L: PRINT RS(I);: NEXT I: PRINT: PRINT 

150 PRINT "VOUS NE LES TROUVFZ PAS MIEUX COMME CA":: INPUT DS 

160 1F D$="Y" THEN 180 

170 PRINT: PRINT "JE SUIS NAVRE QUE VOIS NH LES AIMISZ PAS COMME CA.": GOTO 200 

IRAQ PRINT: PRINT "JE SAVAIS QUE VOUS SFRIEZ D'ACCORDI!" 

200 PRINT: PRINT "J'AI FTF ENCHANTE DE FAIRF VOTRE CONNAISSANCE ":AS:"." 

210 PRINT “PASSFZ UNF RONNF JOURNEE!" 

999 ENN 
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Nicomachus 





L'une des formes les plus anciennes du 


puzzle arithmétique est quelquefois assi- 
milée au « boomerang ». À un moment 
donné on a demandé à chacun de penser 


à 


un nombre et, après avoir procédé à 


quelques calculs personnels, dénoncer le 
résultat d’après lequel le questionneur 
vous dit rapidement le nombre auquel 
vous avez pensé initialement. Il y a des 
centaines de variétés du puzzle. 


Le plus vieil exemple connu est en fait 


celui donné dans Arithmetica de Nicoma- 
chus, mort vers l'année 120. |! vous dit de 
penser à un nombre entier compris entre 1 


et 


100 et de le diviser successivement par 


8,5 et 7 en lui donnant le reste à chaque 
fois. En recevant ces informations, il dé- 
couvre rapidement le nombre auquel vous 
aviez pensé. 


Pouvez-vous découvrir une méthode 


simple pour réaliser de tête cet exploit ? Si 
non, vous pouvez voir comment le vieux 
mathématicien y est parvenu en regardant 
les lignes 80-100 du programme. 
Nicomachus a été écrit par David Ahl. 


NICOMA 
CRFATIVE COMPUTING MORRISTOWN, NEW JERSEY 


PROBLFMF BOOMFRANG TIRE DE L'ARITHMETIQUE DE NICOMACHUS - 90 AP. 


PENSEZ À UN NOMRRE FNTRE 1 FT 100, JE VOUS PRIF. 
VOTRE NOMRRF DIVISF PAR 3 DONNE UN RESTE DE? 1 
VOTRE NOMBRE DIVISE PAR 5 DONNE (IN RESTE DE? 0 
VOTRE NOMBRE DIVISE PAR 7 DONNE UN RESTE DE? 5 


LAISSFZ MOI REFLECHIR UN INSTANT... 


POKE 37,201 
2 PRINT TAB(33);"NICOMA" 


4 PRINT TAR(15);"CREATIVE COMPUTING MORRISTOWN, 
6 PRINT: 


10 


NEW JERSEY" 
PRINT: PRINT 
PRINT 
PRINT 
PRINT "PENSEZ À UN NOMBRE ENTRE 1 ET 100, JE VOUS PRIE." 
PRINT "VOTRE NOMBRE DIVISE PAR 3 DONNE UN RESTE DE"; 
INPUT A 

PRINT "VOTRE NOMBRE DIVISE PAR 5 DONNE UN RESTE DE"; 
INPUT BR 

PRINT "VOTRE NOMRRE DIVISE PAR 7 DONNE UN RESTE DE"; 
INPUT C 

PRINT 

PRINT "LAISSEZ MOI REFLECHIR UN INSTANT..." 
FOR 1=1 TO 1500: NEXT 1 
D=70*A+21#*B+15*C 

IF D<=105 THEN 140 

D=D-105 

GOTO 110 

PRINT “VOTRE NOMBRE ETAIT";D;", 
INPUT AS 

PRINT 

IF A$="Y" THEN 220 

IF AS="N" THEN 240 

PRINT “FH? JF NE COMPRENDS PAS '" 
GOTO 140 

PRINT "PAS MAI, N'EST CE PASII" 
GOTO 250 

PRINT “JE CRAINS QUE VOTRE ARITHMETIQUE NE SOIT DEFFCTUEUSE." 
PRINT 

PRINT “ESSAYONS EN UN AUTRE." 

GOTO 20 

END 


CORRECT" ; 





3A$;"' UTILISEZ 'Y' OÙ 'N'." 
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“PROBLEME BOOMERANG TIRE DE [,'ARITHMETIQUE DE NICOMACHUS - 90 AP. JCI" 


VOTRE NOMBRF FTAIT 40 , 
PAS MAL N'EST CE PASII 
ESSAYONS FN UN AUTRF. 

PENSEZ A UN NOMBRF ENTRE 1 FT 100, 
VOTRF NOMBRE DIVISE PAR 3 DONNE UN 


VOTRF NOMBRF NIVISE PAR 5 DONNE UN 
VOTRE NOMBRE DIVISE PAR 7 DONNE UN 


LAISSEZ MOI RFFLECHIR UN INSTANT... 


VOTRE NOMBRE ETAIT 100 ,  CORRECT? 


PAS MAL N'FST CF PASII 

FESSAYONS EN UN AUTRE. 

PENSEZ A UN NOMBRE ENTRE 1] ET 100, 
VOTRE NOMRRE DIVISE PAR 3 DONNE UN 
VOTRE NOMBRE DIVISFE PAR 5 DONNE UN 
VOTRE NOMBRE DIVISFE PAR 7 DONNE UN 


LAISSEZ MOI REFLECHIR UN INSTANT.. 
VOTRE NOMBRF FTAIT 39 , 


CORRECT? Y 


CORRECT? N 


JE VOUS PRIE. 
RESTF DE? ] 
RESTE DE? 0 
RESTF DE? 2 


JE VOUS PRIE. 
RESTF DE? O0 
RESTE DE? 4 
RESTE DE? 4 


JE CRAINS OUF VOTRE ARITHMETIQUE NE SOIT DEFECTUEUSE. 


ESSAYONS EN UN AUTRE. 


PENSEZ À UN NOMRRE FNTRF 1 ET 100, 
VOTRE NOMBRE DIVISE PAR 3 DONNE IN 
VOTRE NOMBRE DIVISE PAR 5 DONNE UN 
VOTRE NOMBRF DIVISE PAR 7 DONNE UN 


LAISSEZ MOI REFLFCHIR UN INSTANT... 


VOTRE NOMBRE FTAIT 1 ,  CORRECT? Y 
PAS MAL N'EST CE PASII 
ESSAYONS EN UN AUTRE. 


PENSEZ A UN NOMBRE ENTRE 1 ET 100, 
VOTRE NOMBRE DIVISE PAR 3 DONNE UN 


JE VOUS PRIF. 
RESTE DE? 1 
RESTF DE? 1 
RESTE DE? 1 


JE VOUS PRIE. 
RESTE DE? 


JcI 





Nim est l'un des plus vieux jeux à deux NIN 
connus de l'homme. On pense qu'il a été CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
découvert dans la Chine ancienne. Le 
nom, qui a été inventé par le premier SE ai Ant PP DIE 
mathématicien l'ayant analysé, vient d'un ne en Rte Rte à vrR RER EI fat 
verbe anglais archaïque qui signifie : voler LA MACHINE TOUR A TOUR. QUAND C'EST A VOUS DE JOUER? VOUS POUVEZ 
ou emmener. Les objets sont installés par RE 
rangée entre les deux adversaires, LORS D'UN TOUR DONNE. VOUS DR NS Se 
comme le montre l'exemple suivant : SEC NOMBRE SE RANGERS ET COMBTEN D'OBJETS IL Y A, AU DEBUT, 
XXXXXXX Rangée 1 ns 7 objets DR LE NOMBRE D'OBJETS DE CHAQUE RANGEE 
XXXXX Rangée 2—5 objets LA MACHINE INDIQUERA SON COUP EN AFFICHANT LE NOMBRE DES 
XXX Rangée 3 Er 3 objets DRE. RESTANT DANS CHAQUE RANGEE APRES CHACUN DE SES 
X . Rangée 4 FE 4 objet ENTREZ L'OPTION GAGNANTE -1 PRENDRE LE DERNIER, 2 L'EVITER? 2 
Les adversaires enlèvent les objets cha- ENTREZ LE NOMBRE DE RANGEES? 4 
cun leur tour, jusqu'à ce qu'il n'y en ait TAILLE DRSSRANORES 
plus. Celui qui enlève le dernier objet a 228 
agné. Les enlèvements se font selon les in 
x règles suivantes : TE TONER PERRIN 
1. A chaque tour donné, seuls les objets 1 10 
d'une seule rangée peuvent être ôtés. 7 ë 
Iln'y a pas de restriction quant à la ran- 4 3 en 
gée que vous choisissez et au nombre SE ne VU ra np 
d'objets que vous enlevez. Bien sûr, ; L 
vous ne pouvez pas en enlever plus 3 1 
qu'il y en a dans la rangée. C'EST À VOUS - RANGEE, NOMBRE À ENLEVER? 2,2 
2. Vous ne pouvez ni passer un tour ni RANGEE  NBRE 
enlever aucun objet. 2 
La stratégie pour gagner peut être défi- 3 à 
nie mathématiquement. Cependant, plutôt C'EST A VOUS - RANGEE, NOMBRE A ENLEVER? 3,1 


LA MACHINE GAGNE 
Desireriez vous jouer une autre partie? N 


que de la présenter ici, nous préférons 
vous laisser la trouver vous-même. 
CONSEIL: jouez quelques parties avec 
l'ordinateur et recopiez sur un bout de pa- 
pier le nombre d'objets dans chaque pile 
(en binaire !) après chaque déplacement. 
Voyez-vous un modèle apparaître ? 

Ce jeu de NIM vient du Dartmouth Col- 
lege et est un jeu généralisé qui vous 
permet de spécifier la taille de vos quatre 
piles de départ ainsi qu'une option ga- 
gnante. Pour jouer au NIM traditionnel, 
vous spécifierez simplement 7, 5, 3 et 1 et 
l'option gagnante 1. 


110 


100 
110 
120 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
88n 
890 


910 
920 
930 
940 
950 
960 
970 
980 
990 


PRINT 
PRINT 
PRINT 
DIM À 
PRINT 
PRINT 
INPUT 


IF Z$= 


TAR(33):;"NIM" 

TAR(15):"CREATIVF COMPUTING MORRISTOWN, NEW JERSEY" 
: PRINT: PRINT 

(100),R(100,10),D(2) 

"CECI EST LE JEU DE NIM." 

"VOULEZ VOUS LFS REGLES"; 

zS 





THEN 440 


IF Z$="n" GOTO 440 


IF 2S= 
1F Z$= 


PRINT 


“yY" THEN 310 
y" GOTO 310 
"JE VOUS PRIE. Y OU N'"; 





GOTO 240 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


"LE JEU SE JOUE AVEC UN CERTAIN NOMBRES DE RANGEES D'OBJETS." 

“UN NOMBRE QUELCONQUE D'OBJETS EST ENLEVE D'UNE RANGFE PAR VOUS ET" 
“LA MACHINE TOUR À TOUR. QUAND C'EST A VOUS DE JOUER, VOUS POUVEZ" 
"PRENDRE CE QUI RESTE D'UNE RANGEE MAIS VOUS NEVFZ PRENDRE AU MOINS" 
"UN OBJET, ET VOUS NE POUVEZ PRENDRE QUE DANS UNE RANGFE" 

"LORS D'UN TOUR DONNF. VOUS DEVEZ PRECISER SI LE GAGNANT EST CELUI" 
"OUI PREND OÙ CELUI QUI NF PREND PAS LE DERNIER ORJET, AINSI QUE" 
"LE NOMRRE DEF RANGFES, FT COMBIEN N'ORJETS IL Y À , AU DEBUT," 

“DANS CHAQUE RANGFF. LF NOMBRRE D'ORJRTS DE CHAQUE RANGEE" 

"EST VARIABLE," 

"LA MACHINF. INDIOUERA SON COUP EN AFFICHANT LE NOMBRE DES" 

“"ORJETS RESTANT DANS CHAQUE RANGFE APRES CHACUN DE SES" 

"coups." 


"ENTREZ L'OPTION GAGNANTE - 1 PRENDRF LE DERNIER, 2 L'EVITER":; 
wW 


IF W=1 THEN 490 
IF W<>2 THEN 450 


PRINT 
INPUT 


"ENTREZ LE NBRE DFE RANGEES"; 
N 


IF N>100 THEN 490 
IF N<l THEN 490 
IF N<>INT(N) THEN 490 


PRINT 


"TAILLE DES RANGEES" 


FOR I=1l TO N 


PRINT 
INPUT 


1: 
A(1) 


1F A(1)>2000 THEN 560 


IF A( 


1)<1 THEN 560 


IF A(I)<>INT(A(I)) THEN 560 


NEXT 
PRINT 
INPUT 


1F Q9$S=" 
1F Q9$ 
IF Q9S=" 


I 
“VOULEZ VOUS JOUER EN PREMIER"; 
192$ 








“ GOTO 1450 
‘y" GOTO 1450 
“ GOoTO 700 








IF O9$="n" GOTO 700 


PRINT 


"JE VOUS EN PRIF, Y OU N":; 


GOTO 630 


IF W= 


1 THEN 940 


LET C=0 
FOR I=1 TO N 


IF A( 


1)=0 THEN 770 


LET C=C+1 
IF C=3 THEN 840 


LFT N 
NEXT 
1F C= 


(C)=1 
I 
2 THEN 920 


IF A(D(1))>1 THEN 820 


PRINT 


“LA MACHINE PERD" 


GOTO 1640 


PRINT 
GOTO 
LET C 


FOR 1=1 TO N 


IF A( 
IF A( 
LET C 
NEXT 

IF C/ 


GOTO 940 

IF A(D(1))=1 THEN 820 
IF A(N(2))=1 THEN 820 
=1 TON 

LET F=A(1) 

FOR J=0 TO 10 


FOR 1! 


LET F 
LET BR 
LET E 


1000 NEXT 
1010 NEXT 
1020 FOR 


1030 


1040 LET 
1050 FOR 
1060 1F R 


1070 


1080 1F À 
1090 LET 
1100 LET 
1110 NEXT 


1120 


1130 NEXT 
1140 LET 


1150 


1160 LET 
1170 LET 


1180 


1190 LET 
1200 FOR 


LET C=0 


LET C=C+1 


IF C/2<>INT(C/2) THEN 1190 


1F A(E)=0 THEN 1140 


GOTO 1380 


“LA MACHINE GAGNE" 
1640 
=0 


1)>1 THEN 940 

1)=0 THEN 890 

=C+]1 

1 

2<>INT(C/2) THEN 800 


=E/2 
(1,J)=2*(F-INT(F)) 
=INT(F) 

J 

I 
J=10 TO O0 STEP -] 


H=0 
1=l TO N 
(1,J)=0 THEN 1110 


(1)<=H THEN 1110 
H=A(1) 
G=1 

1 


J 
E=INT(N*RND(1)+1) 


F=INT(A(E)*RND(1)+1) 
A(E)=A(E)-F 


A(G)=0 
J=0 TO 10 


111 


1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1359 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 


LET B(G,J)=0 


LET C=0 

FOR 1=1 TO N 

IF B(1,J)=0 THEN 1260 
LET C=C4] 

NEXT I 

LET A(G)=A(G)+2*(C/2-INT(C/2))*2°*J 
NEXT J 

IF W=1 THEN 1380 

LET C=0 

FOR I=] TO N 

IF A(1)>1 THEN 1380 

IF A(I1)=0 THEN 1350 
LET C=C+#] 

NEXT 1 

IF C/2<>INT(C/2) THEN 1380 
LET A(G)=1-A(G) 

PRINT “RANGEE NRRE" 
FOR I=] TO N 

PRINT 1;" “?A(1) 
NEXT 1! 

IF W=2 THEN 1450 

GOSUB 1570 

IF 7=1 THEN 820 

PRINT “C'EST À VOUS - RANGEE, NOMBRE À ENLEVER"; 
INPUT X,Y 

IF X>N THEN 1450 

1F X<1 THEN 1450 

IF X<>INT(X) THEN 1450 
IF Y>A(X) THEN 1450 

IF Y<l THEN 1450 

IF Y<>INT(Y) THEN 1450 
LET A(X)=A(X)-Y 

GOSUB 1570 

1F Z=] THEN 800 

GOTO 700 

LET 7Z=0 

FOR I=1 TO N 

IF A(I1)=0 THEN 1610 
RETURN 

NEXT 1 

LET Z=] 

RETURN 

PRINT "Desireriez vous jouer une autre partie"; 
INPUT Q9$ 

IF Q9$="Y" GOTO 1720 
IF Q9$="y" GOTO 1720 
1F Q9$="N" GOTO 1730 
IF Q9$="n" GOTO 1730 
PRINT "Je vous en prie. Y ou N": 
GOTO 1650 

GOTO 440 

END 








ES 


Ÿ IL PARAIT QUE LR REVOLUTION 


ENDUSTRTELLE EST TERMINEE 


ET QU'ELLE A GAGNE .. 


r 
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Number (Jeu des nombres) 





A l'inverse des autres jeux où l'on doit 
deviner des nombres et où vous continuez 
à deviner jusqu'à ce que vous trouviez le 
nombre choisi aléatoirement par l'ordina- 
teur (GUESS, TRAP, STARS, etc.), vous 
n'avez droit, dans ce jeu, qu'à un essai 
par partie et vous gagnez ou perdez des 
points selon que le nombre que vous avez 
deviné est plus ou moins proche du 
nombre choisi par l'ordinateur. Vous ob- 
tiendrez occasionnellement un gros lot qui 
doublera le total de vos points. Vous avez 
gagné lorsque vous atteignez 500 points. 

Tom Adametx a écrit ce programme 
lorsqu'il était étudiant à Curtis Junior High 
School à Sudbury, Massachusetts. 


NUMBER 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


VOUS AVEZ 100 POINTS. EN PROPOSANT DES NBRES DE 1 À 5, 
GAGNER OÙ PERDRE DES POINTS SELON LA DISTANCE QUI VOUS SEPARE D'UN 


NBRE AU HASARD CHOISI PAR L'ORDINATEUR. 


EVENTUFLLEMENT VOUS GAGNEREZ UN GROS LOT QUI DOUBLERA( 1) 
VOTRE NOMBRE DE POINTS. VOUS GAGNEZ QUAND VOUS AVEZ 500 POINTS. 


PROPOSEZ UN NBRE DE 1 À 5? 2 
VOUS AVEZ 95 POINTS. 
PROPOSEZ UN NBRE DE 1 À 5? 2 
VOUS TOUCHEZ LR GROS LOTIII 
VOUS AVEZ 190 POINTS. 
PROPOSFZ UN NBRE DE 1 À 5? 4 
VOUS AVFZ 185 POINTS. 
PROPOSEZ UN NBRE DE 1 À 5? 5 
VOUS AVEZ 190 POINTS. 
PROPOSEZ UN NBRE DE 1 À 5? 1 
VOUS AVEZ 185 POINTS. 
PROPOSEZ UN NBRE DE 1 À 5? 1 
VOUS TOUCHEZ LR GROS LOTIII 
VOUS AVEZ 370 POINTS. 
PROPOSEZ UN NBRE DE 1 À 5? 2 
VOUS AVEZ 365 POINTS. 
PROPOSEZ UN NBRE DE 1 À 5? 2 
VOUS AVEZ 366 POINTS. 
PROPOSEZ UN NBRE DE 1 À 5? 2 
VOUS TOUCHEZ LR GROS LOTII1! 
LITIVOUS GAGNEZIIII AVEC 732 POINTS. 
Ok 


mn 0 D, OU BU N 


1 


PRINT TAB(33);"NUMBER" 
PRINT TAR(15);"CREATIVF COMPUTING MORRISTOWN, NEW JERSEY" 
PRINT:PRINT:PRINT 
PRINT "VOUS AVEZ 100 POINTS. EN PROPOSANT DES NARES DE 1 À 5, VOUS POUVEZ" 
PRINT "GAGNFR OU PERDRE DES POINTS SELON LA DISTANCE QUI VOUS SEPARE D'UN" 
PRINT "NBRE AU HASARD CHOISI PAR L'ORDINATEUR.": PRINT 
PRINT "EVENTUFLLEMENT VOUS GAGNEREZ UN GROS LOT QUI DOUBLERA(1)" 
PRINT “VOTRE NOMRRE DE POINTS. VOUS GAGNEZ QUAND VOUS AVEZ 500 POINTS." 
PRINT: P=100 

DFF FNR(X)=INT(S*RND(1)+1) 

INPUT “PROPOSEZ UN NBRE DE 1 À 5";G 

R=FNR(1) 

S=FNR(1) 

T=FNR(1) 

U=FNR(1) 

V=FNR(1) 

IF G=R THEN 30 

IF G=S THEN 40 

IF G=T THEN 50 

IF G=U THEN 60 

IF G=V THEN 70 

IF G>5 THEN 12 

P=P-5 

GOTO 80 

P=P45 

GOTO RO 

P=P4+P 

PRINT “VOUS TOUCHEZ LR GROS LOTI11" 

GOTO AO 

P=P+] 

GOTO 80 

P=P-(p*.5) 

IF P>500 THEN 90 

PRINT "VOUS AVFZ";P; "POINTS." 

GOTO 12 

PRINT "“I1IIVOUS GAGNEZI111 AVEC ";P;"POINTS." 

END 


13 


One Check 
(Le damier solitaire) 





Dans ce jeu ou puzzle, 28 pions sont RS Te ee D de SR na ee 2 


placés sur les deux rangées extérieures 





| : 041 1 1 1 0T. Ac-1 0 0 0 1 0 1 1 0 
d'un damier standard de 64 carrés, 1 0 1 1 1 1 1 1 1 0 1 0 1 0 0 0 
: 4 ni. ! 1° 1: 1..070-0-1 1 1: Ode À OT CE 1 
comme il est montré ci-dessous : op F0 0 12 Ne 0 0e DT LT 
1.1 .0.0 0-0 À 1 1 1 0 0 0 0 1 
1 1 0 0 0 0 1 1 Éd CL 0:20 1 PT, 1 
2, MT CI AA LOL Te he 0 1 
Dot CT CT A A ed ® À, À Ad 11 à 0 
SAUT A PARTIR DF? 4 
VERS? 18A 
SAUT À PARTIR DE? 2 
VERS? 20 0 0 0 0 0 1 1 0 
1 0 0 0 1 0 0 0 
0 0-2 “1, À. 101 Foi LL 1 1 1. 
Le :010-"2 dd <1 À 1 0 1 0 0 0 1 1 1 
1 1 1 1 0 0 1 1 1 1 0 0 0 0 1 1 
1 1 0 0 0 0 1 1 1 1 1 0 0 1 1 1 
12 1 0: 0 :0/ 0: 1-1 1 0 1 1 1 1 0 1 
1 1 0 0 0 0 1 1 9 1 1 1 1 1 1 0 
à "1-1: 1 1101 
DOÙ D 1 À 1 à SAUT À PARTIR DE? 49 
VERS? 35 
SAUT À PARTIR DE? 3 
VERS? 21 0 0, 202" 0: 0 1 CE 0 
1 0 0 Q 1 0 6 0 
0 0 0 1 1 1 1 1 11 1 1 1 1 1 1 
LT GOUT I CE À 90 1 0 0 0 1 1 1 
L + 1 1 0.1 1 1-01 1 0 00 à, 1 
L1 1-0: 0° +0: 0! ‘1: À 1. 202 21,0: - A, A 1 
1 1 0 0 0 0 1 1 0140: <L- 1; 1) À: 0: :1 
1: ‘1. :0° 0 0 0: 1 1 0 ] 2-1: dE “10 
OR ER 
1 1 1 11 1 11 SAUT À PARTIR DE? 41 
: , 
Le but du jeu est d'enlever le plus de VERS? 27 
; | ; SAUT À PARTIR DE? 8 
pions possible par des sauts en diagonale VFRS? 22 0 0 0 0 0 1 1 0 
(comme au jeu de dames normal). : D 0 04 D 1 470 RER: F 44 
C'est facile d'enlever de 30 à 39 pions, 1 0 0 0 1 1 0 1 DRE TECS 
mais cela devient nettement plus difficile TS Gino LI 0 0 1 0 0 1 11 
d'en enlever 40 à 44 et c'est un exploit 1.1 9 0 0 0 1 1 QE SE LAS OR 
: 4e ; 1 1 0 0 0 0 1 1 0 1 1 1 1 1 1 0 
considérable d'en enlever 45 ou 47. du 1 A9 À (A 2e 1 A Ar 
Re Le 2 iSe IR DE? 
Ce programme a été créé et écrit par PE EE ENS VERS. 44 $ 
David Ahl. SAUT À PARTIR DF? 16 
VERS? 30 A 0 0 0 0 1 1 0 
1 0 0 0 1 0 0 0 
0 0 0 1 1 1 1 0 1 1 1 1 1 1 1 1 
1 0 0 0 1 1 0 0 0 1 1 0 0 1 1 1 
M “À: 1 cd A4 0.1 1 0 1 0 0 0 1 1 
1. D: :0 07:06 di 1 1 CHNSERE RS COR RS 
1 1 0 0 0 0 1 1 0° “0.°/0: 4. du" T , 0: 
À 1 -0: 0.10: 0 1 1 OO _ùe Ÿ.1 1.50 
À: A 2-1 10 121 
1- AA À 1-4 1 SAUT À PARTIR DE? 26 
VERS? 11 
SAUT À PARTIR DF? 64 
ONE CHE 
CREATIVE COMPUTING | MORRISTOMN, NEM JERSEY VERS? 46 COR ENTERDETS SeRECOMNENCEA re 
SAUT À PARTIR DE? 26 
0 0 0 1 1 1 1 0 VERS? 12 
1 0 0 0 1 1 0 0 
SOLITAIRE CHECKER PUZZLE RY DAVID AHL 1 1 1 1 1 1 0 1 95 92,9 07:65 TEE, 0 
1 1 6 0 0 1 1 1 1 O0 0 1 1 0 0 0 
4R PIONS DF DAME SONT PLACES SUR LES 4 COTES D'UN DAMIER 1 1 0 0 0 0 1 1 do h0 0 4 CE de 4 
STANDARD de 64 CASFS. IL FAUT ENLFVER LE MAXIMUM DE PIONS 1 1 0 0 0 1 1 1 9: qe OS OR LEE 
EN LES PRENANT PAR DFS SAUTS EN DIAGONALE 1 1 1 1 1 1 0 1 1: 20721 50, 0 2 1 
(COMME DANS LES DAMES ORDINAIRES). LF TARLEAU NUMEROTE VOUS 11 1 11 1 1 0 050 Lie 0 0 A 
INDIQUE LES CARRFS DEPART ET ARRIVEE. SUR LE DAMIFR AFFICHE 9 0 0 1 1 1 90 1 
A CHAQUE TOUR ‘l' INDIQUE UN PION ET ‘*O' UNE CASE SAUT À PARTIR DE? 5 QON AS de LE le 9 
VIDE. QUANQ VOUSNE POUVEZ PLUS PRENDRE, VERS? 23 
FNTREZ UN ‘O' EN REPONSE À LA OQUFSTION SAUT A PARTIR DE? 2 
"SAUT À PARTIR DE ?' 9 0 0 1 0 1 1 0 VERS? 4 
: 0 0 [al 1 0 0 0 
*RFTURN ‘POUR VOIR LE TABLEAU NUMERIQUE: DO O1 1 1 1 1 1 COUR INTERDIT:  PRECOMMRNCEZ 5 
1 1 0 0 0 1 1 1 SAUT À PARTIR DE? 22 
1 1 0 0 0 0 1 1 VERS? 4 
1 2 3 4 5 6 7 8 1 1 0 0 0 1 1 1 
9 10 11 12 13 14 15 16 1 1 1 1 1 1 0 1 DO OT DE RO 
17 18 19 20 21 22 23 24 10 2 1. E A. “0 1 0 0 1 0 6 0 0 
25 26 27 28 29 30 31 32 sde COUT ds 10, 
33 34 35 36 37 38 39 40 SAIT À PARTIR NF? 57 9 0 1 A 0 1 1 1 
41 42 43 44 45 46 47 48 VERS? 51 1 0 1 0 0 0 1 1 
49 50 51 52 53 54 55 56 0 0 1 1 0 1 1 1 
57 58 59 60 61 62 63 64 COUP INTERDIT.  RECOMMENCEZ. .. 0 0 0 1 1 1 0 1 
SAUT À PARTIR DE? 57 GTA A CL AAC 0 
ET VOICI LA SITUATION INITIALE DU DAMIER. VERS? 43 
ds vd ct. De Le (À 0 0 0 1 0 1 1 0 
DL DT DEA 1 0 0 0 1 0 0 o 
1 1 0 0 0 0 1 1 Lo d'A E + SL doi 
1 1 0 0 0 0 1 1 J “2 O0 © (6 1 1 1 
de -0 000 50: x à 22 0,0 10:-<05 0! 1 #1 
1 1 0 0 0 0 1 1 LA 00 0: ‘le + À] 
de del EL 4 d/À 200241. 1 10 1 
VD dd dal) 1 6<1,#1%17 & «+ 410 


_ 
_ 
B 


SAUT À PARTIR DE? 59 SAUT À PARTIR DE? 48 2 PRINT TAB(30):"ONE CHECK" 

VERS? 45 VERS? 30 4 PRINT TAB(15):"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
6 PRINT: PRINT: PRINT 

8 DIM A(64) 











0 0 0 1 6 1 1 o 0 O0 1 1 O0 1 1 0 4 . 
1. 10 01 -L 0.107 6-0 1 0 1 0 0 0 0 o 10 PRINT “SOLITAIRE CHECKER PUZZLE BY DAVID AHL 
11 ®1 05/14/10 0: 1 1 0 0 0 0 0 0 O© 1 15 PRINT 
role Ann pd Ci 0 0 60 D 0 110 20 PRINT “48 PIONS DE DAME SONT PLACES SUR LES 4 COTES D'UN DAMIER 
2 OA CO: 00 1e A 1: 0: 1 0 À L 601 25 PRINT “STANDARD de 64 CASES. IL FAUT ENLEVER LE MAXIMUM DE PION 
GOT LA TA LU T À à 0 20 20 Li 20 0 30 PRINT “EN LES PRENANT PAR DES SAUTS EN DIAGONALE" 
DO 0.0 À ic 0e | 02070210 170 0 35 PRINT “(COMME DANS LES DAMES ORDINAIRES). LE TABLEAU NUMEROTE 
OÙ I SOA UT 1400 PR PES CES TE 40 PRINT “INDIQUE LES CARRES DEPART ET ARRIVEE. SUR LE DAMIER AFIN 
DR TR te mon 
. E : 
Drbes Je 0e Es 2 NT lee dt 55 PRINT “ENTREZ UN ‘O' EN REPONSF À LA QUESTION" 
péio ei 60 PRINT "‘SAUT À PARTIR DE ?'" 
0 0 0 1 0 1 1 0 Où 0. 17-11 001, 10 #2 PRINT J ». 
À 0 SO 0 00 20 Ÿ 00 1/0 07:00! 0 $ PRINT ‘RETURN ‘POUR VOIR LE TABLEAU NUMERIQUE:":LINE INPUT BES 
10e Qi rl 0-1: 1 0 0 0 0 0 0 0 1 66 PRINT 
D 0000 0 PS CD 1 d 00 00 Li ‘1 70 FOR J=1 TO 57 STEP 8 
12.50: 2 L 0: 0-2T 1 CO UE: 0: 14 LOT 74 PRINT J;TAB(5);:J+1;TAB(9);:J+2;TAR(13):J+3;TAB(17):J+4;TAB(21);:J +5; 
0-0 TL: dd: A: Le À 0 O0 O0 1 1 1 © o 75 PRINT TAR(25):J+6:;TAB(29);J4+7 
0 0 0 0 1 1 0 1 0 0 0 0 0 1 0 0 7 ts 
ND LE EE ARS DENON LE QE 0 78 PRINT “FT VOICI LA SITUATION INITIALE DU DAMIER." 
SAUT À PASTIR PF? 21 SAUT À PARTIR DE? 44 TONERINT 
80 FOR J=1, TO 64 
VERS? 3 VERS? 26 82 A(J)=1 
B4 NEXT J 
0 0 1 1 0 1 1 0 On ON GRO EEE KO R6 FOR J=19 TO 43 STEP 8 
1 0 0 0 0 0 0 0 1207 50.0-0r-0.- 07.0 88 FOR I=J TO J+43 
140 0: 1: (00-11 0, 50.20: 0-9; 707; 0 + 90 A(1)=0 
0 9 0 0 0 1 1 1 9 1 0 0 0 1 1 1 92 NEXT I 
1 0 1 1 0 O0 1 1 1 0 0 0 1 1 0 1 Q4 NEXT J 
05.0: éd vle LL - 0 + 0 0 0 0 1 1 0 0 96 M=0 
0 9 9 0 1 1 0 1 Dé, DO NO Or LIQES Q 98 GOTO 340 
0 0 1 AE dr 6 po 0 C0 200 100 INPUT "SAUT À PARTIR DE";F 
105 IF F=0 THEN 500 
SAUT À PARTIR DE? 4R ARS DE Din 2E7 49 110 INPUT “VERS";T 
VERS? 30 112 PRINT 
0 0 1 1 0 1 1 0 118 REM *** CONTROLE NF LA ‘LEGALITE' DU COUP 
COUP INTERDIT. RECOMMENCEZ... ] Q 1 06 0 0 0 0 120 FI=INT((F-1)/R) 
SAUT À PARTIR DF? 56 00° 0.0 0 1 0: 1 130 F2=F-R*F] 
VERS? 38 0 1 0 0 0 1 0 1 140 TI=INT((T-1)/8) 
D DO LT À 00 20 150 T2=T-R#T] 
0 9 1 1 0 1 1 0 D eo 160 1F Fl>7 THEN 230 
1 0 0 0 0 0 0 0 170 IF T1>7 THEN 230 
1 0 6 1 0 0 1 1 Qu 2020 0x0 NI: 0 180 IF F2>R THEN 230 
0 6 6 0 0 1 1 1 0: 90" EN QE TE :0 190 IF T2>R THEN 230 
1 0 1 1 0 1 1 1 200 IF ARS(F1-Tl)<>2 THEN 230 
O0 0 1 1 1 1 0 1 SAUT A PARTIR: DE? 33 210 IF ARS(F2-T2)<>2 THEN 230 
0 0 0 0 1 1 0 0 VERS? 19 212 IF A((T+F)/2)=0 THEN 230 
0 0 0 1 1 1 1 0 215 IF A(F)=0 THEN 230 
9 0 1 1 0 1 1 0 220 IF A(T)=1 THEN 230 
SAUT À PARTIR DE? 23 1 0 1 0 0 0 0 0 225 GOTO 250 
VERS? 37 0 0 1 0 0 1 0 1 230 PRINT "COUP INTERDIT.  RECOMMENCEZ. . ." 
0 0 0 0 0 1 0 1 240 GOTO 100 
0 0 1 1 0 1 1 0 0 0 0 0 1 1 0 0 245 REM *** MISE À JOUR DU TABLEAU 
1 0 0 0 0 0 0 a 0 0 0 0 1 1 0 0 250 A(T)=1 
1 0 0 1 0 0 0 1 0 0 0 0 0 1 © 0 260 A(F)=0 
0 6 0 0 6 à 1 1 0 0 0 1 1 0 1 0 270 A((T+F)/2)=0 
L7 OL: D À 1 1 290 M=M+1 
0 0 1 1 1 1 0 1 RENTE pere 310 REM *** AFFICHER LE TABLEAU 
9 0 0 0 1 1 0 0 VERS? 340 FOR J=1 TO 57 STEP 8 
Rae noire EE Ra 
SAUT À PARTIR DE? 43 L ê n à 2 o : F 370 NEXT I 
FU RS SR EDR 390 NEXT 3 
0 0 1 1 0 1 1 0 EE cn 400 PRINT 
1 O0 0 0 6 6 0 0 50-00 702 00 -0 410 GOTO 100 
1 9 0 1 0 0 0 1 6.<0 0 1-1: 0! À 0 490 REM *** RESUME DFE FIN DE PARTIE 
0 0 0 0 1 0 1 1 500 s=0 
1 20 de O0 l S1 de 1 > 510 FOR I=1 TO 64 
0 O0 0 1 1 1 O 1 SA DRE ED PRE 46 520 S=S+A(1) 
90 0 0 0 1 1 O0 0 d 530 NFXT I 
0 0 0 1 1 1 1 o 608 12 to Ut D 540 PRINT "VOUSAVEZ FAIT":M;"DEPLACEMENTS ET SUR LE DAMIER," 
ÿ PQ 21 0: 0: 077 :0 70 550 PRINT "IL VOUS RESTF";S;"PIONS." 
SAUT A PARTIR DE? 44 0 0 1 0 0 1 0 1 560 PRINT 
VERS? 26 Sd OX 0 2 6 à 562 INPUT “ON RECOMMENCE" ; AS 
570 IF AS " THEN 70 
00: 1: 5 0 À -d-2 0 On ee to 00 0 575 IF AS="N" THEN 600 
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 580 PRINT “PLEASE ANSWER ‘'Y' OÙ ‘'N'." 
1 0 0 1 0 0 0 1 D= 0 «0 1. 0 CL O0 590 GOTO 562 
0 1 0 0 1 0 1 1 600 PRINT 
1 0 0 0 1 1 1 1 SXUPZR PARTIR DES OLO 610 PRINT “O.K. J'ESPERE QUE VOUS VOUS ETES BIEN AMUSEI 1" 
0 0 0 0 1 1 0 À VERS? 37 999 END 
0 0 A 0 1 1 0 0 
0 0 0 1 1 1 1.0 6° 0: “Ÿ 1 0 ro 
1 0 1 6 6 0 0 o 
SAUT À PARTIR DEF? 17 0 0 0 0 0 1 0 1 
VERS? 35 0 Q 0 0 0 1 0 1 
0 0 0 1 1 1 O0 0 
0 0 1 1 O0 1 1 o 0 0 0 0 0 0 0 0 
1 0 0 0 0 0 o o 0 0 0 0 0 0 0 0 
0 0 0 1 0 0 0 1 00, 9 1 1° 0 T 9 
0 0 0 0 1 0 1 1 
1 0 1 © 1 1 1 1 SAUT À PARTIR DE? 63 
0 0 0 0 1 1 Oo 1 VERS? 45 
0 0 0 0 1 1 © o 
0 © O0 1 1 1 1 o COUP INTERDIT.  RECOMMENCEZ. . . 
SAUT À PARTIR DE? 32 
SAUT À PARTIR DE? 29 VERS? 6 
VERS? 11 
COUP INTERDIT.  RFCOMMENCEZ. .. 
0 0 1 1 0 1 1 0 SAUT À PARTIR DE? 0 
1 O0 1 0 0 0 0 0 VOUSAVEZ FAIT 32 DEPLACEMENTS ET SUR LE NAMIER, 
0 0 0 0 0 0 0 1 IL VOUS RESTE 16 PIONS. 
0 0 0 0 0 0 1 1 
1 0 1 0 1 1 1 1 ON RECOMMENCE? N 
0 0 0 06 1 1 0 1 
0 O0 0 0 1 1 0 0 O.K. J'ESPERE QUE VOUS VOUS ETES BIEN AMUSEI ! 
0 0 0 1 1 1 1 o ok 
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Orbit (Orbite) 





ORBIT vous met au défi de visualiser 
des positions spatiales en coordonnées 
polaires. Le but du jeu est de faire détoner 
une bombe à photons à une certaine dis- 
tance d'un vaisseau spatial de Romulus 
chargé de bacilles. Ce vaisseau décrit une 
orbite autour d'une planète à une altitude 
orbitale constante (degrés/heure). Un dis- 
positif de camouflage rend le vaisseau in- 
visible, mais après chaque bombe, il vous 
est dit à quelle distance du vaisseau enne- 
mi votre bombe a explosé. Vous êtes au 
défi de toucher une cible mobile invisible 
en un nombre de tirs limité. 

La planète peut être remplacée par un 
point en son milieu (appelé origine), en- 
suite la position du vaisseau peut être 
donnée par rapport à l'origine et à un 
angle entre sa position et le côté est de la 
planète. 


direction vaisseau 
de l'orbite nn." 
angle 
E 


La distance séparant la bombe du vais- 
seau est calculée en utilisant la loi des co- 
sinus (voyez la ligne 430 du listing). Voici 
la loi des cosinus : 

D=VR**2+D1**2+R*D1*COS(A-A1) 
D est la distance entre le vaisseau et la 
bombe, R est l'altitude du vaisseau, D1 
est l'altitude de la bombe et A-A1i est 
l'angle entre le vaisseau et la bombe. 







bombe 
vaisseau 


E 


Problème de pratique indépendant : 

La navigation aérienne apparaît sur un 
radar sous forme de spots : « = ». Quelle 
est la distance entre la TWA et la compa- 
gnie United que vous voyez sur l'écran du 
radar à votre droite ? 


ORBIT était à l’origine appelé GUERRE 
SPATIALE et fut écrit par Jeff Lederer de 
Project SOLO Pittsburgh, Pennsylvanie. 


CRFATIVE COMPUTING MORRISTOWN, NEW JERSEY 


AU DESSUS DE VOTRE PLANFTFE SE TROUVE UN VAISSEAU DE ROMULUS. 


CE VAISSFAU SUIT UNE ORBITE POLAIRE. SA DISTANCE DU 
CENTRE DE VOTRE PLANETE VARIE NE 10,000 À 30,000 MILES 
FT À SA VITFSSE ACTUELLE PEUT FAIRE LE TOUR DE 

VOTRF PLANETE TOUTES LES 12 À 36 HEURES. 


MALHEUREUSEMENT, ILS UTILISENT UN DISPOSITIF DE CAMOUFLAGE QUI 
LES REND INVISIBLES, MAIS GRACE À UN INSTRUMENT SPECIAL VOUS 
POURREZ CONNAITRE LA DISTANCE DU VAISSEAU À LAQUFLLF AURA EXPLOSE 
VOTRE BOMBE A PHOTONS. VOUS AVEZ 7 HEURES AVANT QUE LA PUISSANCE 
QU'ILS ACCUMULENT NE LEUR PERMETTE DE S'ARRACHER À LA GRAVITE 

DE VOTRE PLANFTE. 


"RETURN' POUR LA SUITE 
VOUS AVFZ LA PUISSANCFE NECESSAIRE POUR LANCER UNE BOMBE PAR HEURE. 


AU DEBUT DE CHAQUE HEURE, ON VOUS DEMANDERA UN ANGLE 

(ENTRE O ET 360) ET UNE DISTANCE EN UNITES DE 100 MILES 

(FT COMPRISE ENTRF 100 AND 300), APRES QUOI LA DISTANCE ENTRE 
VOTRE BOMBF FT LE VAISSFEAU ENNEMI SERA DONNEE. 


UNE EXPLOSION À MOINS DE 5,000 MILES NU VAISSEAU DE ROMULUS 
NFTRUIRA CELUI-CI. 


CI-APRES UN DIAGRAMME POUR MONTRER TOUT LE FACHEUX DE LA SITUATION. 


"RETURN' POUR LA SUITF 


90e 
0000000000000 
0000000000000000000 
000000 000000 
00000 00000 
00000 XXXXXXXXXXX 00000 
00000 XXXXXXXXXXXXX 00000 
0000 XXXXXXXXXXXXXXX 0000 
0000 XXXXXXXXXXXXXXXXX 0000 
0000 XXXXXXXXXXXXXXXXXXX 0000 
1RO<== 00000 XXXXXXXXXXXXXXXXXXX 00000 ==>0 
0000 XXXXXXXXXXXXXXXXXXX 0000 
0000 XXXXXXXXXXXXXXXXX 0000 
0000 XXXXXXXXXXXXXXX 0000 
00000 XXXXXXXXXXXXX 00000 
00000 XXXXXXXXXXX 00000 
00000 00000 
000000 000000 
0n0000000n0000000000 
X - VOTRE PLANFTE 0000000000000 Q - ORBITE DES ROMULIENS 
2701! 
“RETURN' POUR LA SUITE 


270 
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CI-DESSUS, LE VAISSEAU TOURNE DS LE SENS INVERSE DES AIGUILLES 169 PRINT * 904" 


D'UNE MONTRE AUTOUR DE VOTRE PLANETE. N'OUBLIEZ PAS QUE 170 PRINT * 0000000000000" 
QUE SANS PUISSANCE SUFFISANTE, L'ALTITUDE DU VAISSFAU NE ROMULUS Ur ss L LAPS OOR OPA ne 
ET SA VITESSE SUR ORRITE RESTERONT CONSTANTES. nine 600û 0000 
174 PRINT " 00000 XXXXXXXXXXX 00000" 
RONNE CHANCF. LA FEDERATION COMPTE SUR VOUS. RENE va 50600 Re 0000 
176 PRINT * 0000 XXXXXXXXXXXXXXX 0000". 
HEURE NR 1 , À QUEL ANGLE VOULEZ VOUS ENVOYER VOTRE 177 PRINT * 0000 XXXXXXXXXXXXXXXXX 0000". 
BOMBE À PHOTONS? 90 178 PRINT " 0000 XXXXXXXXXXXXXXXXXXX 0000 = 
À QUELLE DISTANCE VOULEZ VOUS LA FAIRE EXPLOSER? 250 179 PRINT "“1RO<== 00000 XXXXXXXXXXXXXXXKXXX 00000 ==>0 
180 PRINT * 0000 XXXXXXXXXXXXXXXXXXX 0000" 
181 PRINT * 0000 XXXXXXXXXXXXXXXXX 0000" 
VOTRE BOMBE À PHOTONS À EXPLOSE À 63.225 #*10P2 MILES DU 182 PRINT " 0000 XXXXXXXXXXXXXKX 0000" 
VAISSEAU ROMULIEN. 183 PRINT “ 00000 XXXXXXXXXXXXX 00000 
184 PRINT “ 00000 XXXXXXXKIUX 00000" 
185 PRINT * 00000 00000" 
HEURE NR 2 , À QUEL ANGLE VOULEZ VOUS ENVOYER VOTRE 186 PRINT * 000000 000000" 
ROMRF À PHOTONS? 260 187 PRINT * 0000000000000000000 “ 
À OUELLF DISTANCE VOULEZ VOUS LA FAIRE EXPLOSER? 200 188 PRINT “X - VOTRF PLANETE  0000000000000 O - ORBITE DES ROMULIENS" 
189 PRINT * 270!" 
190 LINE INPUT"'RETURN' POUR LA SUITE":;JULESS 
VOTRE BOMBE À PHOTONS À EXPLOSE À 433.7 *10f2 MILES DU 192 PRINT CHRS (26) 
VAISSEAU ROMULIFN. 195 ‘####PRINT “X - YOUR PLANET" 
196 ‘#*#*##PRINT “O - THE ORBIT OF THE ROMULAN SHIP" 
197 PRINT 
HEURE NR 3 , À QUEL ANGLE VOULFZ VOUS ENVOYER VOTRE 198 PRINT "CI-DESSUS, LE VAISSEAU TOURNE DS LE SENS INVERSE DES AIGUILLES" 
BOMRE À PHOTONS? 35 199 PRINT “D'UNE MONTRE AUTOUR DE VOTRE PLANETE. N'OUBLIEZ PAS QUE" 
À QUELLF DISTANCE VOULFZ VOUS LA FAIRF EXPLOSER? 200 200 PRINT “QUE SANS PUISSANCE SUFFISANTE, L'ALTITUDE DU VAISSEAU DE ROMULUS" 
210 PRINT "FT SA VITESSE SUR ORBITE RESTERONT CONSTANTES . " 
220 PRINT 
VOTRE ROMRE À PHOTONS À EXPLOSE À 357.829 *1042 MILES DU 230 PRINT “BONNE CHANCE. LA FEDERATION COMPTE SUR VOUS." 
VAISSEAU ROMULIFEN. 270 A=INT(360*RND(1)) 


280 D=INT(200*RND(1)+200) 
290 R=INT(20#*RND(1)+10) 


HEURE NR 4 , À QUEL ANGLE VOULFZ VOUS ENVOYER VOTRE 300 H=0 
ROMBE À PHOTONS? 20 310 IF H=7 THEN 490 
A QUELLE DISTANCE VOULEZ VOUS LA FAIRE EXPLOSER? 300 320 H=H+1 
325 PRINT 
326 PRINT 
VOTRE BOMBE À PHOTONS À EXPLOSE À 512.744 *10f2 MILES DU 330 PRINT “HEURE NR":H:", À QUEL ANGLE VOULEZ VOUS ENVOYER VOTRE" 
VAISSFEAU ROMULIEN. 335 PRINT "BOMBE À PHOTONS"; 


340 INPUT Al 
350 PRINT “A QUELLE DISTANCE VOULEZ VOUS LA FAIRE EXPLOSER"; 


HEURE NR 5 , À QUEL ANGLE VOULEZ VOUS ENVOYER VOTRE 360 INPUT D1 
BOMRE À PHOTONS? 40 365 PRINT 
À QUELLE DISTANCE VOULEZ VOUS LA FAIRE EXPLOSER? 100 366 PRINT 
370 A=A+R 
380 IF A<360 THEN 400 
VOTRE ROMRE À PHOTONS À EXPLOSE À 332.052 *10#2 MILES DU 390 A=A-360 
VAISSEAU ROMULIFN. 400 T=ARS(A-Al) 


410 IF T<l8O THEN 430 
420 T=360-T 


HEURE NR 6 , À QUFL ANGLF VOTLEZ VOUS ENVOYER VOTRE 430 C=SQR(D#*D+D1#*D1-2*D#*D1#*COS(T*3.14159/180)) 
ROMBF À PHOTONS? 55 440 PRINT “VOTRE BOMBE À PHOTONS À EXPLOSE A";C;"#*10#2 MILES DU" 
À QUELLF DISTANCE VOULEZ VOUS LA FAIRE FXPLOSER? 209 445 PRINT "VAISSEAU ROMULIEN." 


450 IF C<=50 THEN 470 

460 GOTO 310 
VOTRE BOMBE À PHOTONS À FXPLOSE À 424.805 *10f2 MILES DU 470 PRINT “VOUS AVEZ REMPLI VOTRE MISSION AVEC SUCCES." 
VAISSEAU ROMULIEN. 480 GOTO 500 

490 PRINT “VOUS AVEZ LAISSE LES ROMULIENS S'ENFUIR." 

500 PRINT "UN AUTRE VAISSEAU DE ROMULUS S'EST PLACE EN ORBITE." 


HEURE NR 7 , À QUEL ANGLE VOULEZ VOUS ENVOYER VOTRE 510 PRINT "“DESIREZ VOUS LE DETRUIRE"; 
BOMBE À PHOTONS? 20 520 INPUT CS 
À QUELLE DISTANCE VOULEZ VOUS LA FAIRE EXPLOSER? 100 530 1F C$="Y" THEN 270 

540 PRINT “AU REVOIR." 

999 END 


VOTRE BOMBE À PHOTONS À EXPLOSE À 361 *10 2 MILES DU 

VAISSEAU ROMULIEN. 

VOUS AVEZ LAISSFE LFS ROMULIENS S'ENFUIR. 

UN AUTRE VAISSEAU DE ROMULUS S'EST PLACE EN ORBITE. 

DESIREZ VOUS LE DETRUIRE? JE DETESTE LES ORDINATEURS QUI ONT TOUJOURS RAISON AU 
REVOIR 

AU REVOIR. 


2 PRINT CHR$S(26);TAB(33);"ORBIT" 
4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


6 PRINT:PRINT:PRINT 
10 PRINT “AU DESSUS DE VOTRE PLANETE SE TROUVE UN VAISSEAU DE ROMULUS." 


15 PRINT 

20 PRINT "CE VAISSEAU SUIT UNE ORRITE POLAIRE. SA DISTANCE DU" 

25 PRINT "CENTRE DE VOTRE PLANETE VARIE DE 10,000 À 30,000 MILES" 

30 PRINT "ET À SA VITESSE ACTUELLE PEUT FAIRE LE TOUR DE" 

31 PRINT "VOTRE PLANETE TOUTES LES 12 À 36 HEURES." 

35 PRINT 

40 PRINT "MALHEUREUSEMENT, ILS UTILISENT UN DISPOSITIF DE CAMOUFLAGE QUI" 

45 PRINT "LES REND INVISIBLES, MAIS GRACE À UN INSTRUMENT SPECIAL VOUS" 

50 PRINT "POURREZ CONNAITRE LA DISTANCE DU VAISSEAU À LAQUELLE AURA EXPLOSE" 
55 PRINT "VOTRE BOMBE À PHOTONS. VOUS AVFZ 7 HEURES AVANT QUE LA PUISSANCE" 
60 PRINT "QU'ILS ACCUMULENT NE LEUR PERMETTE DE S'ARRACHER À LA GRAVITE" 

65 PRINT "DE VOTRE PLANETE." 

70 PRINT:LINE INPUT"'RETURN' POUR LA SUITE";JULES:PRINT CHRS(26) 

75 PRINT "VOUS AVEZ LA PUISSANCE NECESSAIRE POUR LANCER UNE BOMRE PAR HEURE." 
80 PRINT 

85 PRINT "AU DEBUT DE CHAQUE HEURE, ON VOUS DEMANDERA UN ANGLE" 

90 PRINT “(ENTRE O ET 360) ET UNE DISTANCE EN UNITES DE 100 MILES" 

95 PRINT "(FT COMPRISE ENTRE 100 AND 300), APRES QUOI LA DISTANCE ENTRE" 

100 PRINT “VOTRE BOMRE ET LE VAISSEAU ENNFMI SERA DONNEE." 

105 PRINT 

110 PRINT "UNE EXPLOSION À MOINS DE 5,000 MILES DU VAISSEAU DE ROMULUS" 

111 PRINT "DETRUIRA CELUI-CI." 

114 PRINT 

115 PRINT "CI-APRES UN DIAGRAMME POUR MONTRER TOUT LE FACHEUX DE LA SITUATION." 
116 PRINT 

117 PRINT:LINE INPUT"'RETURN' POUR LA SUITE" ;JULESS 

168 PRINT CHRS (26) 
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Pizza 





Dans ce jeu, vous prenez des com- 
mandes de pizzas pour des personnes ha- 
bitant à Hyattsville. Muni d’un plan de la 
ville, vous devez dire ensuite à votre cour- 
sier où la pizza devra être livrée. Si elle est 
livrée à l'adresse exacte, le client vous té- 
léphone et vous remercie. Sinon, vous de- 
vez donner au chauffeur l'adresse exacte 
jusqu'à ce que la pizza soit livrée. 

Quelques modifications intéressantes 
apparaissent d’elles-mêmes pour ce pro- 
gramme : les pizzas peuvent refroidir 
après deux livraisons incorrectes ou bien 
vous pouvez prendre trois commandes ou 
plus à la fois et essayer de trouver le che- 
min le plus court pour aller livrer. Envoyez- 
nous vos modifications ! 

Ce programme semble provenir à l'ori- 
gine de l'université de Georgia à Athens, 
Georgia. L'auteur est inconnu. 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


JEU NE LA LIVRAISON DES PIZZAS 
QUEL EST VOTRE PRENOM? JULOT 
HI, JULOT. DANS CE JEU VOUS PRENEZ NES COMMANDES POUR DES P1ZZAS 


IL VOUS FAUT ALORS INDIQUER A UN GARCON DE COURSES OÙ LIVRER 
LES PIZZAS COMMANDEFS. 


“RETURN' POUR VOIR LA CARTE NE LA VILLE 


Se 1----- 2----- 3----- 4 
M N Oo P 4 
1 J K L 3 
F F G H 2 
A B Cod D 1 
de 1-=--- 2----- 3----- 4----- ‘RETURN POUR LA SUITE 


LA CARTE CI-DESSUS MONTRE LES MAISONS OÙ 
VOUS DEVEZ LIVRER LES PIZZAS. 


IL VOUS FAUT DONNER À UN CHAUFFEUR DE CAMIONNETTE 
L'EMPLACEMENT (LES COORDONNEFS) DE LA MAISON 
QUI COMMANDE LA PI7ZA. 


VOULEZ VOUS D'AUTRES EXPLICATIONS? N 


HELLO LA PIZZERIA DE JULOT ICI C'EST D. S'IL VOUS PLAIT, ENVOYEZ MOI UNE PIZZA. 
CHAUFFEUR À JULOT. OU HABITE DONC CE D? 4,3 

ICI C'FST L. JF N'AI PAS COMMANDE DE PIZZA. 

J'HARITE EN 4 , 3 
CHAUFFEUR À JULOT. OÙ HARITE DONC CE D? 3,4 

ICI C'EST O. JF N'AI PAS COMMANDE DE PIZZA. 

J'HABITE EN 3 , 4 
CHAUFFEUR À JULOT. OU HABITE DONC CE D? 4,1 

HELLO JULOT. ICI C'EST D, MERCI POUR LA PIZZA. 


HELLO LA PIZZERIA DE JULOT ICI C'EST E. S'IL VOUS PLAIT, ENVOYEZ MOI UNE PIZZA. 
CHAUFFEUR À JULOT. OÙ HABITE DONC CE E? 1,2 
HELLO JULOT. ICI C'EST E, MERCI POUR LA PIZZA. 


HELLO LA PIZZERIA DE JULOT ICI C'EST E. S'IL VOUS PLAIT, ENVOYEZ MOI UNE PIZZA. 


118 


_.. 

















5 PRINT CHRS(26);TAB(33);"P1ZZA" 500 PRINT "L'EMPLACEMENT (LES COORDONNEES) DE LA MAISON" 

10 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 510 PRINT "QUI COMMANDE LA PIZZA.": PRINT 

15 PRINT: PRINT: PRINT 520 INPUT "VOULEZ VOUS D'AUTRES EXPLICATIONS" ;AS$ 

20 DIM S$(16),M$(4) 530 IF AS$= THEN 590 

30 PRINT "JEU DE LA LIVRAISON DES PIZZAS": PRINT 540 IF AS="N" THEN 750 

50 INPUT "QUEL EST VOTRE PRENOM";N$: PRINT 550 PRINT “'Y' OU 'N' JE VOUS PRIE, ALLONS Y,": GOTO 520 

80 PRINT "HI, ":N$;". DANS CE JEU VOUS PRENEZ DES COMMANDES POUR DES P1ZZAS" 590 PRINT: PRINT “QUELQU'UN COMMANDE UNE PIZZA." 

90 PRINT “IL VOUS FAUT ALORS INDIQUER À UN GARCON DE COURSES OU LIVRER" 600 PRINT “ALORS UN GARCON DE COURSES VOUS DEMANDERA" 

100 PRINT "LES PIZZAS COMMANDEES.": PRINT: PRINT 610 PRINT “L'ADRESSE.": PRINT " EXEMPLE :" 

113 LINE INPUT"'RETURN' POUR VOIR LA CARTE DE LA VILLE";JOJO$:PRINT CHR$(26) 620 PRINT “ICI C'EST J. S'IL VOUS PLAIT LIVREZ MOI UNE PIZZA." 
140 FOR I=1 TO 16 640 PRINT “CHAUFFEUR À “;N$;". OU HABITE J?" 

150 READ S$(1) 650 PRINT "VOTRE REPONSE DEVRAIT ETRE 2,3": PRINT 

160 NEXT I 660 INPUT “VOUS PIGEZ";AS 

170 FOR I=l TO 4 670 IF AS="Y" THEN 690 

180 READ MS(1I) 680 PRINT “CETTE AFFAIRE DEPASSE LARGEMENT VOS CAPACITES. MERCI QUAND MEME" 
190 NEXT I 685 GOTO 999 

200 DATA "A","B","C","D","E","p","G","H", "1", "J","K","L®,"M®,"N", #0" 690 PRINT “BIEN. VOUS ETES MAINTENANT PRET À PRENDRE DES COMMANDES.": PRINT 
210 DATA "P","1","2","3","4" 700 PRINT “BONNE CHANCEI1": PRINT 

230 ‘##*#**PRINT “MAP OF THE CITY OF HYATTSVILLE": PRINT 750 FOR I=1 TO 5 

250 PRINT " ----- 1 2----- 3 4 " 760 S=INT(RND(1)*16+1): PRINT 

260 K=4 770 PRINT “HELLO LA PIZZERIA DE ";N$;" ICI C'EST ";S$(S);"."; 
270 FOR I=1 TO 4 775 PRINT “ S'IL VOUS PLAIT, ENVOYEZ MOI UNE PIZZA." 

280 PRINT "-": PRINT "-": PRINT"-"'####*, PRINT "=" 780 PRINT “ CHAUFFEUR À ";N$:". OU HABITE DONC CE ":S$(S): 

320 PRINT M$(K);: 790 INPUT A(1),A(2) 

330 S1=16-4*1+1 870 T=A(1)+(A(2)-1)*4 

340 PRINT " ";SS(S1);" ":SS$S(S1+1):" "3SS$S(S142);" ": 880 IF T=S THEN 920 

350 PRINT S$(S1+3);" ":MS(K) 890 PRINT “ICI C'EST ":SS(T): JE N'AI PAS COMMANDE DE PIZZA." 
380 K=K-1 900 PRINT “J'HABITE EN ":A(1):",":A(2) 

390 NEXT 1 910 GOTO 780 

400 PRINT "-": PRINT “-": PRINT "-"'####*; PRINT "-" 920 PRINT “HELLO "NS;". ICI C'EST “;S$(S);", MERCI POUR LA PIZZA." 
440 PRINT “ s'#***: PRINT 930 NEXT I 

447 LINE INPUT"'RETURN POUR LA SUITE" :;JOJO$ : PRINT CHR$(26) 940 PRINT: INPUT “DESIREZ VOUS LIVRER D'AUTRES PIZZAS";AS$ 

460 PRINT "LA CARTE CI-DESSUS MONTRE LES MAISONS OU" 960 IF A$="Y" THEN 750 

470 PRINT "VOUS DEVEZ LIVRER LES PIZZAS.": PRINT 970 PRINT: PRINT “O.K. ";NS:", A UN DE CES JOURS!" 

490 PRINT “IL VOUS FAUT DONNER À UN CHAUFFEUR DE CAMIONNETTE" 999 END 


119 


Poetry (Poésie) 


Ce programme produit des vers, de fa- 
çon aléatoire, qui peuvent être vaguement 
considérés comme du style japonais Haîï- 
ku. |! utilise 20 phrases en 4 groupes de 5 
et repasse généralement dans les 
groupes par ordre. || insère des virgules 
(hasard-19 % du temps), des alinéas et 
commence de nouveaux paragraphes 
(18% de probabilité mais au moins une 
fois toutes les vingt phrases). 

Les phrases dans POETRY évoquent 
quelque peu Edgar Allen Poe. Essayez-le 
avec des phrases de technologie informa- 
tique, d'amour et de romance, des mots 
d'enfants et de tout autre sujet. Envoyez- 
nous le résultat. 


10 PRINT TAB(30);"POETRY" 
20 PRINT TAB(15):;"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT:PRINT:PRINT 


90 ON I GOTO 100,101,102,103,104 
100 PRINT "MINUIT LUGUBRE";:GOTO 210 


101 PRINT "YEUX ETINCELANTS";:GOTO 210 
102 PRINT "OISEAU OU DEMON";:GOTO 210 

103 PRINT “CREATURE DU MALIN“;:GOTO 210 

104 PRINT "PROPHETE";:GOTO 210 

110 ON I GOTO 111,112,113,114,115 

111 PRINT "QUI M'ENSORCELE";:U=2:GOTO 210 
112 PRINT "QUI M'A TERRORISE";:GOTO 210 

113 PRINT “TOUJOURS IMMOBILE....";:GOTO 212 
114 PRINT “NE VOLTIGEANT JAMAIS"::U=2:GOTO 210 
115 PRINT "S'EST CONSUME";:GOTO 210 

120 ON I GOTO 121,122,123,124,125 

121 PRINT "ET MON AME";:GOTO 210 

122 PRINT “DANS CETTE OBSCURITE";:GOTO 210 
123 PRINT "SERA ENPORTE";:GOTO 210 

124 PRINT “DIT LE CORBFAU";:GOTO 210 

125 IF U=0 THEN 210 

126 PRINT "SIGNE DE SEPARATION";:GOTO 210 
130 ON I GOTO 131,132,133,134,135 

131 PRINT "RIEN DE PLUS"; :GOTO 210 

132 PRINT "DE NOUVEAU, CEPENDANT";:GOTO 210 
133 PRINT “RAMPANT LENTEMENT"; :GOTO 210 

134 PRINT "...A TOUT JAMAIS";:GOTO 210 

135 PRINT "JAMAIS PLUS"; 

210 IF U=0 OR RND(1)>.19 THEN 212 

211 PRINT ",";:U=2 

212 IF RND(1)>.65 THEN 214 

213 PRINT “ ";:U=U+1:GOTO 215 

214 PRINT : U=0 

215 I=INT(INT(1O*RND(1))/2)+1 

220 J=J+1 : K=K+1 

230 IF U>O OR INT(J/2)<>J/2 THEN 240 

235 PRINT * Le 

240 ON J GOTO 90,110,120,130,250 

250 J=0 : PRINT : IF K>20 THEN 270 

260 GOTO 215 

270 PRINT : U=O : K=0 : GOTO 110 

999 END 


Voici quelques phrases bucoliques à 
essayer : 
Tapis de fougères Chênes puissants 


Rosée du matin Grâce et beauté 
Senteur du cré- Chantant silencieuse- 


puscule ment 

Pins oscillants La nature parlant 
Me pénètre Pure, immaculée 
M'apaisant Ombre de vert 
Feuilles frémis- Tranquillité 
santes … Si paisible 
Dégage la séré- 

nité 


L'auteur original de ce programme est 
inconnu. Celui-ci a été modifié et retra- 
vaillé par Jim Bailey, Peggy Ewing et Dave 
Ahl à DEC. 


POETRY 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


MINUIT LUGUBRE YEUX ETINCELANTS NE VOLTIGEANT JAMAIS SIGNE DE SEPARATION 


RIEN DE PLUS 
MINUIT LUGUBRE 
TOUJOURS IMMOBILE.... 


RAMPANT LENTEMENT 

MINUIT LUGUBRE 
QUI M'A TERRORISE DANS CETTE OBSCURITE 
JAMAIS PLUS 

PROPHETE NE VOLTIGEANT JAMAIS DIT LE CORBEAU 
RAMPANT LENTEMENT 


MINUIT LUGUBRE NE VOLTIGFANT JAMAIS 
ET MON AME 
RIFEN DE PLUS 


QUI M'ENSORCELE 
PROPHETE QUI M'A TFRRORISF, 
DIT LE CORBEAU JAMAIS PLUS 


PROPHETE NE VOLTIGEANT JAMAIS 


RIEN DE PLUS 
YEUX ETINCELANTS QUI M'ENSORCELE 
DANS CETTE OBSCURITE DE NOUVEAU, CEPENDANT, 


OISEAU OÙ DEMON 

TOUJOURS IMMOBILE. ... 
DANS CETTE OBSCURITE RIEN DE PLUS, 
MINUIT LUGUBRF, TOUJOURS IMMOBILE.... 
DIT LE CORBFAU ...A TOUT JAMAIS 


TOUJOURS IMMORILE.... 


MINUIT LUGUBRE NE VOLTIGEANT JAMAIS, DANS CFTTE OBSCURITE RIEN DE PLUS 
YEUX FTINCELANTS, S'EST CONSUME SIGNE DE SEPARATION ...A TOUT JAMAIS 


PROPHETF 
QUI M'ENSORCELE 
DANS CETTE OBSCURITE DE NOUVEAU, CEPENDANT, 


MINUIT LUGUBRE NE VOLTIGEANT JAMAIS, SIGNE DE SEPARATION, JAMAIS PLUS 


OISEAU Ol DEMON S'EST CONSUME FT MON AME, : 
DE NOUVEAU, CEPENDANT 


QUI M'A TERRORISE 

OISEAU OU DEMON NE VOLTIGEANT JAMAIS ET MON AME 
RAMPANT LENTEMENT 

YEUX FTINCELANTS 
QUI M'ENSORCELE 

ET MON AME RAMPANT LENTEMENT, 


OISEAU OU DEMON TOUJOURS IMMOBILE.... SIGNE DE SEPARATION JAMAIS PLUS, 


YEUX ETINCELANTS QUI M'ENSORCELE DIT LE CORBEAU 
RIEN DE PLUS 
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Poker 





Dans ce jeu de Poker, vous et l’ordina- 
teur êtes adversaires. Au début du jeu, 
chaque joueur reçoit $ 200. Le jeu se ter- 
mine quand l’un de vous deux est à cours 
d'argent, quoique si vous êtes fauché, l'or- 
dinateur vous proposera d'acheter votre 
montre ou votre épingle à cravate en dia- 
mant. 

L'ordinateur ouvre les paris avant le ti- 
rage, vous ouvrez après. Si vous n'avez 
pas une main valable et que vous vouliez 
passer, misez 0. Avant le tirage, pour voir, 
vous pouvez miser .5. Bien sûr, si l’ordina- 
teur a fait une mise, vous devez vous ali- 
gner afin de faire le tirage, ou bien si vous 
avez une bonne main, vous pouvez aug- 
menter la mise à n'importe quel moment. 

L'auteur est A. Christopher Hall de Tri- 
nity College, Hartford, Connecticut. 


POKER 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


BIENVENUE AU CASINO. NOUS AVONS CHACUN $200 
J'OUVRIRAI AVANT LE TIRAGE; VOUS OUVRIREFZ APRES 
QUAND VOUS PASSEZ, MISEZ 0; POUR VOIR, MISEZ .5 
ASSEZ PARLE -- PASSONS AUX CHOSES SERIEUSFS 


LA MISE INITIALE EST DE $5. JE BATS LES CARTES 


VOTRE MAIN: 
2 DE COEUR 2 -- 2 DE PIQUE 
6 DF PIQUE 4 -- S DE PIQUE 





5 DE CARREAU 


J'OUVRIRAI AVEC 26 
QUE MISEZ VOUS? 50 
JE VAIS VOUS VOIR, FT JE VOUS RELANCF DE 29 
QUE MISEZ VOUS? 29 


MAINTENANT NOUS TIRONS -- COMBIEN DE CARTES VOULEZ VOUS? 1 
QUELS SONT LEURS NUMEROS REPERES 
2. -3 
VOTRE NOUVELLE MAIN: 
1 -- 2 DE COEUR 2:== 2 DE PIQUE 


3 DE CARREAU 4 -—- 5 DF PIQUE 
5 DE CARREAU 





JF PRENDS 1 CARTE 
QUE MISEZ VOUS? 5 
JE VAIS VOUS VOIR, ET JF VOUS RELANCE DF 6 
QUE MISEZ VOUS? 6 


MAINTENANT NOUS COMPARONS LES MAINS 





MA MAIN: 

6 -- 6 DE COEUR 

7 6 DE TREFLE 8 -- 7  DF TREFLF 
9 -- VALET DE TREFLE 10 -- AS DE COEUR 


VOUS AVEZ DEUX PAIRES, 5 S 

ET J'AI UNE PAIRE DE 6 S 

VOUS AVEZ GAGNE 

J'AI MAINTENANT 105 $ FT VOUS AVEZ 295 S. 
DESIREZ VOUS CONTINUER? Y 


LA MISE INITIALE EST DE $5. JE BATS LFS CARTES 


VOTRE MAIN: 





1 -- 2 DE TREFLE 2 -- 6 DE PIQUE 
3 DAME DE COEUR 4 -- 10 DF COEUR 
5 —- 7 DE TREFLE 

JE VOIS 


QUF MISEZ VOUS? 0 


JE GAGNE 
J'AI MAINTENANT 110 $ ET VOUS AVEZ 290 S. 
DESIREZ VOUS CONTINUER? Y 


LA MISF INITIALE EST DE $5. JE BATS LES CARTES 


VOTRE MAIN: 

1 -- 3 DF TREFLE 2 -- 5 DE TREFLE 
10 DE CARREAU 4 -- AS DF CARREAU 
10 DE TREFLE 
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J'OUVRIRAI AVEC 29 
QUE MISEZ VOUS? 29 


MAINTENANT NOUS TIRONS -- COMBIEN DE CARTFS VOULEZ VOUS? 3 
OUFLS SONT LEURS NUMEROS RFPERES 
? 1 
?2 
? 4 
VOTRE NOUVELLE MAIN: 
1 -- DAME DE TREFLE 2 -- 2 DE PIQUE 
3 -- 10 NE CARREAU 4 —- 7 DE PIQUE 
5 -- 10 DE TREFLE 


JF PRENDS 1 CARTE 
QUE MISEZ VOUS? .5 
JE VAIS MISFR 34 

QUE MISEZ VOUS? 0 


JE GAGNE 
J'AI MAINTENANT 144 $ ET VOUS AVEZ 256 S. 
DESIREZ VOUS CONTINUER? Y 


LA MISF INITIALE EST DE $S5. JF RATS LES CARTES 


VOTRE MAIN: 
1 -- ROI DFE PIQUE 2 -- 7 DE COEUR 
3 —- 10 DE COEUR 4 -- 10 DE CARREAU 
5 -- 7 DE CARREAU 


J'OUVRIRAI AVEC 31 
QUE MISEZ VOUS? 50 
JF VAIS VOUS VOIR, ET JE VOUS RFLANCE DE 27 
QUE MISEZ VOUS? 27 


MAINTENANT NOUS TIRONS -- COMRIEN DE CARTES VOULEZ VOUS? 1 
QUELS SONT LEURS NUMEROS RFPERES 
2 1 
VOTRE NOUVELLE MAIN: 
1 -- 4 DE TREFLE 2 -- 7 DE COEUR 
3 -- 10 DE COEUR 4 -- 10 DE CARREAU 
5 —- 7 DE CARREAU 


JE PRENDS 1 CARTE 
OUF MISEZ VOUS? .5 
JE VAIS MISER 32 

QUE MISEZ VOUS? 32 


MAINTENANT NOUS COMPARONS LES MAINS 


MA MAIN: 

6 -- 7  DF TRFFLF 

7 -- 9 DE TRFFLE 8 -- 10 DF TRFFLE 
9 -- DAME DEF COEUR 10 -- AS NE TREFLE 


VOUS AVEZ DEUX PAIRES, 10 S 
FT J'AI SCHMALTZ, AS LA PLUS FORTE 
VOUS AVF7 GAGNF 


J'AI MAINTENANT 30 $ ET VOUS AVEZ 370 S. 
DESIREZ VOUS CONTINUFR? Y 
LA MISE INITIALF EST DE $5. JF BATS LES CARTES 


VOTRE MAIN: 


1 -- 7 DE PIQUF 2 = 10 DE CARRFAU 
3 -- 8 DE COEUR 4 -—- 2 DE TREFLE 
5 -- 5 DE PIQUE 

JF VOIS 


QUE MISEZ VOUS? 0 

JF GAGNE 

J'AI MAINTENANT 35 $ ET VOUS AVEZ 365 $. 
DESIREZ VOUS CONTINUER? Y 

LA MISE INITIALF EST DFE $5. JE RATS LES CARTES 


VOTRE MAIN: 


1 -- 2 DFE PIOUF 2 -- 6 DE TREFLE 
3 -- RDF PIQUE 4 -—- 9 NF TREFLE 
S -- VALET DE PIQUE 

JF VOIS 


QUF MISEZ VOUS? 0 

JF. GA@NE 

J'AI MAINTENANT 40 $ ET VOUS AVEZ 360 $. 
DESIREZ VOUS CONTINUER? Y 

LA MISE INITIALE EST NE S5. JE BATS LES CARTES 


VOTRE MAIN: 


1 -—- 4 DF COFUR 2. == 10 (DE CARREAU 
3 -- 8 DE TRFFLE 4 -- 6 DE CARREAU 
S -- DAME DF TREFLE 

JF VOIs 


QUE MISEZ VOUS? 50 
JF VAIS VOUS VOIR 


MAINTENANT NOUS TIRONS -- COMBIEN DE CARTES VOULEZ VOUS? 0 


JF PRENDS 1 CARTE 

QUF MISEZ VOUS? 150 

JF SUIS LESSIVE. FFLICITATIONS! 
Break in 3680 

Ok 


2 PRINT TAB(33):"POKER" 


4 PRINT TAR(15);"CREATIVE COMPUTING MORRISTOWN, 


6 P 
10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
‘90 
100 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
san 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
A30 
840 
850 
R60 
870 
A80 
R90 
900 
910 
920 
930 
940 
950 
960 
970 
980 
9930 


1000 
1010 


102 


1030 


104 


1050 


106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116. 
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NEW JERSEY" 
RINT: PRINT: PRINT 
DIM A(50),B(15) 
DEF FNA(X)=INT(1O#RNN(1)) 
DFF FNB(X)=X-100*INT(X/100) 
PRINT "RIENVENUF AU CASINO. NOUS AVONS CHACUN $200" 
PRINT “J'OUVRIRAI AVANT LE TIRAGE; VOUS OUVRIREZ APRES" 
PRINT "QUAND VOUS PASSEZ, MISEZ O; POUR VOIR, MISEZ .5" 
PRINT “ASSEZ PARLE -- PASSONS AUX CHOSES SERIEUSES" 
PRINT 
LET O=1 
LET C=200 
LET S=200 
LET P=0 
REM 
PRINT 
IF C<=5 THEN 3670 
PRINT "LA MISE INITIALE FST DE $5. 
PRINT 
IF S>5 THEN 200 
GoSUB 3830 
LET P=P+10 
LET S=S-5 
LET C=C-5 
FOR Z=1 TO 10 
GOSUB 1740 
NEXT Z 
PRINT 
N=1 
GOSUR 1850 
N=6 
1=2 
GOSUR 2170 
PRINT 
IF 1<>6 THEN 470 
1F FNA(O)<=7 THEN 
LET X=11100 
GOTO 420 
IF FNA(O)<=7 THEN 
LET X=11110 
GOTO 420 
IF FNA(Q)>=1 THEN 
X=11111 
1=7 
2=23 
GOTO 580 
Z=1 
GOTO 510 
IF U>=13 THEN 540 
IF FNA(O)>=2 THEN 
GOTO 420 
Z=0 
K=0 
PRINT "JE VOIS" 
GOTO 620 
IF U<=16 THEN 570 
7=2 
IF FNA(Q)>=1 THEN 
2=35 
V=7+FNA(O) 
GOSUB 3480 
PRINT “J'OUVRIRAI 
K=Vv 
GOSUR 3050 
GosuB 650 
GOTO 820 
IF 1<>3 THEN 760 
PRINT 
PRINT 
C=Cc+P 
PRINT 
PRINT 
INPUT 
IF HS “THEN 120 
IF HS="N" THEN 4100 
PRINT "REPONNEZ PAR Y OÙ N, JE VOUS PRIE." 
GoTO 700 
IF I<>4 THEN 810 
PRINT 
PRINT “VOUS AVEZ 
S=S+P 
GoTo 690 
RETURN 
PRINT 
PRINT “MAINTENANT NOUS TIRONS -- COMBRIEN DE CARTES VOULEZ VOUS"; 
INPUT T 
IF T=0 THEN 980 
Z=10 
IF T<4 THEN 900 
PRINT "VOUS NF POUVEZ TIRER PLUS DE 3 CARTES" 
GOTO 840 
PRINT "OUELS SONT LEURS NUMEROS REPERES" 
FOR Q=1 TO T 
INPUT U 
GosUB 1730 
NEXT Q 
PRINT "VOTRE NOUVELLE MAIN:" 
N=1 
GOSUR 1850 
Z=1O4T 
FOR U=6 TO 10 
IF INT(X/10%(U-6))<>10*INT(X/10*(U-5)) THEN 1020 
GOSUR 1730 
O NEXT U 
PRINT 
O PRINT "JF PRENDS"7-10-T"'CARTE"; 
IF Z=114T THEN 1090 
Q PRINT “S" 
0 PRINT 
0 GOTO 1100 
O PRINT 
0 N=6 
Q V=I 
0 1=1 
O GOSUR 2170 
O0 R=U 
O0 M=D 
O IF V<>7 THEN 1190 
0 7=28 


JE BATS LES CARTES" 


“VOTRE MAIN:" 


370 


400 


450 


500 


580 


AVEC "V 


"JF GAGNE" 


“J'AI MAINTENANT"C"S ET VOUS AVEZ"S"S." 
“"DESIREZ VOUS CONTINUER"; 
HS 





GAGNE" 


1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1662 
1664 
1670 
16R0 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1765 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
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GoTo 1330 
IF 1<>6 THEN 1220 

Z=1 

GOTO 1330 

IF U>=13 THEN 1270 

Z=2 

IF FNA(O)<>6 THEN 1260 
Z=19 

GOTO 1330 

IF U>=16 THEN 1320 
Z=19 

IF FNA(O)<>8 THEN 1310 
Z=11 

GOTO 1330 

7=2 

K=0 

GostB 3050 

IF T<>.5 THEN 1450 

IF V=7 THEN 1400 

IF 1<>6 THEN 1400 
PRINT “JE VAIS VOIR" 
GOTO 1460 

V=Z+FNA(O) 

GOSUR 3480 

PRINT “JE VAIS MISER"V 
K=V 
GOSUR 
GOSUR 
PRINT 
PRINT 
JS=H$ 
KS=IS 
PRINT 
N=6 
GOSUR 
N=1 
GOSUR 
PRINT 
PRINT 
K=D 
GOSUR 
HS=JS 
1S=KS 
K=M 
PRINT "ET J'AI “; 

GOSUR 3690 

IF B>U THEN 670 

IF U>R THEN 780 

IF HS="UN FLUS" THEN 1700 

IF FNR(M)<FNB(D) THEN 780 

IF FNR(M)>FNR(D) THEN 670 

PRINT "LES MAINS SONT EGALES" 

PRINT “POUS LES"P"S RESTENT DANS LE POT" 
GOTO 140 

IF FNB(M)>FNB(D) THEN 670 

IF FNB(D)>FNB(M) THEN 780 

GOTO 1670 

72=24+1 
A(Z)=100#*INT(4#*RND(1))+INT(100*RND(1)) 

1F INT(A(Z)/100)>3 THEN 1740 

IF A(Z)-100*INT(A(Z)/100)>12 THEN 1740 

IF Z=] THEN 1840 

FOR K=1 TO Z-1 

1F A(Z)=A(K) THEN 1740 

NEXT K 

IF Z<=10 THEN 1840 

N=A(U) 

A(U)=A(Z) 

A(Z)=N 

RETURN 

FOR Z=N TO N+4 

PRINT Z"—— "; 

GOSUB 1950 

PRINT “ DE“; 

GoSUB 2070 

IF Z/2<>INT(Z/2) THEN 1920 

PRINT 

NEXT Z 

PRINT 

RETURN 

K=FNB(A(Z)) 

IF K<>9 THEN 1980 

PRINT “VALET"; 

IF K<>10 THEN 2000 

PRINT "DAME"; 

IF K<>11 THEN 2020 

PRINT “ROI"; 

IF K<>12 THEN 2040 

PRINT "AS"; 

IF K>=9 THEN 2060 

PRINT K+2; 

RETURN 

K=INT(A(Z)/100) 

IF K<>O THEN 2100 

PRINT “ TREFLE", 

IF K<>1 THEN 2120 

PRINT “ CARREAU", 

IF K<>2 THEN 2140 

PRINT “ COEUR", 

IF K<>3 THEN 2160 

PRINT “ PIQUE", 

RETURN 

U=0 

FOR Z=N TO N+4 

B(Z)=FNB(A(Z)) 

IF Z=N+4 THEN 2230 

IF INT(A(Z)/100)<>INT(A(Z+1)/100) THEN 2230 
U=U+1 

NEXT Z 

IF U<>4 THEN 2310 

X=11111 

D=A(N) 

H$="UN FLUS" 

IS="H DANS" 

U=15 

RETURN 

FOR Z=N TO N+3 

FOR K=Z+1 TO N+4 

1F B(Z)<=R(K) THEN 2390 

X=A(Z) 


3060 
650 


“MAINTENANT NOUS COMPARONS LES MAINS" 


“MA MAIN:" 
1850 

2170 

“VOUS AVEZ "; 


3690 


2350 A(Z)=A(K) 3230 G=G+T 


2360 R(Z)=B(K) 3240 IF G=K THEN 3380 
2370 A(K)=X 3250 IF Z<>l THEN 3420 
2380 R(K)=A(K)-100#*INT(A(K)/100) 3260 IF G>5 THEN 3300 
2390 NEXT K 3270 IF Z%>=2 THEN 3350 
2400 NEXT Z 3280 V=5 
2410 X=0 3290 GOTO 3420 
2420 FOR Z=N TO N+43 3300 IF Z=1 THEN 3320 
2430 IF B(Z)<>B(Z+1) THEN 2470 3310 IF T<=25 THEN 3350 
2440 X=X+11*10%(7-N) 3320 1=4 
2450 D=A(Z) 3330 PRINT "JE PASSF" 
2460 GOSUB 2760 3340 RETURN 
2470 NEXT Z 3350 IF Z=2 THEN 3430 
2480 IF X<>0 THEN 2620 3360 PRINT "JE VAIS VOUS VOIR" 
2490 IF B(N)+3<>B(N+3) THEN 2520 3370 K=G 
2500 X=1111 3380 S=S-G 
2510 U=10 3390 C=C-K 
2520 IF B(N+1)+3<>R(N+4) THEN 2620 3400 P=P+G+K 
2530 IF U<>10 THEN 2600 3410 RETURN 
2540 U=14 3420 IF G>3*7Z THEN 3350 
2550 H$="REGUL" 3430 V=G-K+FNA(O) 
2560 IS="IER" 3440 GOSUR 3480 
2570 X=11111 3450 PRINT “JE VAIS VOUS VOIR, ET JE VOUS RELANCE DE"V 
2580 D=A(N+4) 3460 K=G+V 
2590 RETURN 3470 GOTO 3060 
2600 U=10 3480 IF C-G-V>=0 THEN 3660 
2610 X=11110 3490 IF G<>0 THEN 3520 
2620 IF U>=10 THEN 2690 3500 v=C 
2630 N=A(N+4) 3510 RETURN 
2640 H$="SCHMAL" 3520 IF C-G>=0 THEN 3360 
2650 IS="TZ, 3530 IF (0/2)<>INT(O/2) THEN 3600 
2660 U=9 3540 PRINT “VOULEZ VOUS RACHETER VOTRE MONTRE POUR 50$"*: 
2670 X=11000 3550 INPUT J$ 
2680 GOTO 2740 3560 IF JS$="N" THEN 3600 
2690 IF U<>1N THEN 2720 3570 C=C4+50 
35RO 0=0/2 


2700 IF I=]l THEN 2740 

2710 GOTO 2750 3590 RETURN 

2720 IF U>12 THEN 2750 3600 IF O/3<>INT(O/3) THEN 3670 

2730 IF FNB(D)>6 THEN 2750 3610 PRINT “VOULEZ VOUS RACHETER VOTRE EPINGLE DE CRAVATE POUR 50$"; 
3620 INPUT JS 


2740 1=6 
2750 RETURN 3630 IF J$="N" THEN 3670 
2760 IF U>=1l THEN 2810 3640 C=C+50 

2770 U=]1 3650 0=0/3 


3660 RETURN 


2780 H$="UNE PAIRF" 
3670 PRINT "JE SUIS LESSIVE. FELICITATIONS! * 


2790 I$=" DE * 


2800 RETURN 3680 STOP 

2810 IF U<>11 THEN 2910 3690 PRINT HS:1$; 

2820 IF B(Z)<>B(Z-1) THEN 2870 ur bag A al THEN 3750 
2830 HS="TROIS" = 

2840 I$=" " 3720 GOSUB 2080 

2850 U=13 3730 PRINT 

2860 RETURN 3740 RETURN 

2870 HS="DEUX P* 3750 K=FNB(K) 

2880 IS="AIRES, " 3760 GOSUR 1960 

2890 U=12 3770 IF HS="SCHMAL" THEN 3790 
2900 RETURN 37RO IF HS<>"REGUL" THEN 3810 
2910 IF U>12 THEN 2960 3790 PRINT “ LA PLUS FORTE" 
2920 U=16 3800 RETURN 


3810 PRINT “S* 
3820 RETURN 
3830 PRINT 


2930 HS="FULL H" 
2940 IS="OUSE, " 


2950 RETURN 
2960 IF R(Z)<>B(Z-1) THEN 3010 3840 PRINT “VOUS NE POUVEZ PARIER CE QUE VOUS NE POSSEDFZ PAS* 


2970 U=17 350 IF O/2=INT(O/2) THEN 3970 
2980 H$="OUATRE" 3860 PRINT "VOUDRIFZ VOUS VENDRE VOTRE MONTRE"; 
3870 INPUT JS 


2990 1$=" " 
3000 RETURN 3880 IF J$="N" THEN 3970 
3010 U=16 3890 IF FNA(O)>=7 THEN 3930 


3020 H$="FULL H* 3900 PRINT “JE VOUS EN DONNE 75$* 


3030 IS="OUSF, " 3910 S=5+75 
3040 RETURN 3920 GOTO 3950 


3050 G=0 3930 PRINT “C'EST UNE JOLIE PETITE MONTRE - JE VOUS EN DONNE 25$" 
3060 PRINT "QUE MISEZ VOUS"; 3940 S=5+25 


3070 INPUT T 3950 O=0#*2 

3080 IF T-INT(T)=0 THEN 3140 3960 RETURN 

3090 IF K<>0O THEN 3120 3970 1F 0/3<>INT(0/3) THEN 4090 

3100 IF G<>0 THEN 3120 3980 PRINT “VOUS SEPARERIEZ VOUS DE CETTE EPINGLE DE CRAVATE EN DIAMANT‘: 
3110 1F T=.5 THEN 3410 3990 INPUT JS 

3120 PRINT "PAS DE PETITE MONNAIE, JE VOUS PRIE" 4000 IF .I$="N" THEN 4080 

3130 GOTO 3060 4010 IF FNA(O)>=6 THEN 4050 

3140 IF S-G-T>=0 THEN 3170 4020 PRINT “VOUS ETES MAINTENANT PLUS RICHE DFE 1005 
3150 GOSUR 3830 4030 S=5+100 

3160 GOTO 3060 4040 GOTO 4070 

3170 IF T<>0 THEN 3200 4050 PRINT "C'EST DU TOC. 25S" 

3180 1=3 4060 S=5+25 

3190 GOTO 3380 4070 O=0%3 


4080 RETURN 
4090 PRINT "VOUS ETFS LFSSIVE. AU REVOIR, PIGEONI* 
4100 END 


3200 IF G+T>=K THEN 3230 
3210 PRINT "SI VOUS NE POUVEZ VOIR MA MAIN, ALORS PASSEZ" 
3220 GOTO 3060 
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Queen (La reine) 





Ce jeu est basé sur les possibilités de 
déplacements de la reine aux échecs — 
c'est-à-dire le long de toute verticale, hori- 
zontale ou diagonale. Dans ce jeu, la reine 
ne peut se déplacer que vers la gauche, 
vers le bas, en diagonale vers le bas et à 
gauche. 

Le but du jeu est d'amener la reine (une 
seulement) dans le carré inférieur gauche 
(n° 158) en jouant tour à tour avec l'ordina- 
teur. Le gagnant est celui qui place la 
reine à l'endroit prévu. 

Vous jouez le premier et mettez la reine 
dans n'importe lequel des carrés de la 
rangée supérieure ou de la colonne de 
droite. Ceci constitue votre premier dépla- 92 82 72 62 52 42 32 22 
cement. On peut battre l'ordinateur mais 103 93 A3 73 63 53 43 33 
cela prend pas mal de temps pour trouver 
la méthode. Voyez si vous pouvez inven- 
ter une stratégie pour gagner. 


“RETURN' POUR LA SUITE 


81 71 61 51 41 31 21 11 


114 104 94 84 74 64 54 44 
125 115 105 95 85 75 65 55 
136 126 116 106 96 86 76 66 
147 137 127 117 107 97 87 77 


158 148 138 128 118 108 98 88 


QUF CHOISISSEZ VOUS COMME POSITION DE DEPART? 44 

L'ORDINATEUR VA EN POSITION 54 
QUE JOUFZ VOUS? 65 
L'ORDINATEUR VA EN POSITION 75 
QUE JOUEZ VOUS? 85 
L'ORDINATEUR VA EN POSITION 127 

CREATIVE COMPUTING MORRISTOWN, NEW JERSEY QUE JOUEZ VOUS? 138 
L'ORDINATEUR VA EN POSITION 158 


RELLE TENTATIVE, MAIS IL SEMBLE QUF J'AI GAGNE. 


DESIREZ VOUS DES INSTRUCTIONS? Y MERCI POUR LA PARTIE. 
NOUS ALLONS JOUER À UN JEU BASE SUR L'UN DES MOUVEMENTS DU JEU 
D'ECHECS. NOTRE DAME NE POURRA SE DEPLACER QUE VERS LA GAUCHE, QUELQU'UN D'AUTRE VOUDRAIT ESSAYER? Y 


VERS LE BAS, OU EN DIAGONALE VERS LE BAS ET LA GAUCHE. 
QUE CHOISISSEZ VOUS COMME POSITION NE DEPART? 31 


LE BUT DU JEU EST D'AMENER LA DAME EN BAS ET À GAUCHE, EN JOUANT L'ORDINATEUR VA EN POSITION 75 

TOUR À TOUR AVEC L'ORDINATEUR QUE JOUEZ VOUS? 95 

LE PREMIER À PLACER LA DAME À L'ENDROIT PREVU, À GAGNE. L'ORDINATEUR VA EN POSITION 158 

VOUS JOUEZ LE PREMIER EN PLACANT LA DAME À L'UNE DES POSITIONS BELLF TENTATIVE, MAIS IL SFMBLE QUE J'AI GAGNE. 
DE LA RANGEE SUPERIEURE OU DE LA COLONNE DE DROITE. MERCI POUR LA PARTIE. 

CECI CONSTITUERA VOTRE PREMIER COUP. 

NOUS JOUONS TOUR À TOUR. QUELQU'UN D'AUTRE VOUDRAIT ESSAYER? N 

VOUS POUVEZ ARANDONNER EN TAPANT ‘O' COMME VALEUR DE VOTRE COUP. 

N'OURLIEZ PAS D'APPUYER SUR ‘RETURN' APRES CHAQUE REPONSE. OK --- MERCI ENCORE. 
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1 PRINT CHRS(26) TAR(33);"QOUEEN" 

2 PRINT TAR(15);"CREATIVE COMPUTING 
3 PRINT:PRINT:PRINT 

10 PIM S(64) 

11 FOR I=l TO 64 

12 RFAD S(1) 

13 NEXT I 

14 DATA 
15 PATA 
16 DATA 
17 DATA 
18 DATA 
19 DATA 
20 DATA 


MORRISTOWN, NEW JERSEY" 


11 
22 
33 
44 
55 
66 
77 
88 


71, 
82, 
93, 
104, 
115, 
126, 
147, 137, 
21 DATA 158, 148, 
22 INPUT "DESIRFZ 
23 IF W$="N" THEN 
IF W Y" THEN 
PRINT “RFPONDEZ 
GOTO 22 
GOSUB 5000 
GOTO 100 
GOSUR 5150 
RFM CONTROLE VALIDITE 

PRINT “OUE CHOISISSEZ VOUS COMME POSITION DFE DEPART"; 
INPUT Ml 

IF Ml=0 THEN 232 

TI=INT(MI/10) 

Ul=M1-10#T] 

IF Ul=]l THEN 200 

IF Ul=Tl THEN 200 

PRINT "VEUILLEZ RELIRF LES INSTRUCTIONS, JE VOUS PRIE." 
PRINT "VOTRE COUP DE DEPART EST INTERDIT." 

PRINT 

GOTO 100 

GOSUR 2000 

PRINT “L'ORDINATEUR VA EN POSITION";M 

IF M=15R THEN 3400, 

PRINT "OUF JOUEZ VOUS"; 

INPUT Ml 

IF Ml<>O THEN 239 

PRINT 
PRINT 
PRINT 
GaTo 4000 

IF Ml<=M THEN 3200 
TI=INT(MI/10) 
U1=MI-10*T1 

P=Ul-U 

IF P<>0 THEN 300 

=TI-T 

IF Le<=0 THEN 3200 
GOTO 200 
IF TI-T 
GOTO 200 
IF TI-T 
GOTO 200 
REM 
1F 
1F 
1F 
1F 
1F 
1F 
IF 
c=0 
FOR K=7 TO 1 STEP -] 
U=U1 
T=T1+K 
GOSUR 3500 

IF C=1 THEN 2160 
U=U+K 
GOSUR 3500 

IF C=1 THEN 2160 
T=T+K 
GOSUB 3500 

IF C=l THEN 2160 
NEXT' K 
GOTO 2180 
c=0 
RETURN 
GOSUR 3000 
RETURN 
REM 
Z=RND(1) 
IF Z>.6 THEN 3110 
1F Z2>.3 THEN 3070 
U=U]l 
T=TI+1 
M=10#T4U 
RETURN 
U=U14+1 
T=T1+2 
M=10O*T4+4U 
RETURN 
U=U14+1 
T=T1+1 
M=1O#T4U 
RETURN 
REM 
PRINT 
PRINT "VOUS AVEZ TRICHE... 
GOTO 230 

RFM 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO 4000 


61, 
72, 
83, 
94, 

105, 

116, 

127, 

138, 

VOUS 

30 

28 
PAR 


51, 
62, 
73; 
84, 
95, 
106, 
117, 107, 97, 87, 
128, 118, 108, 98, 
DES INSTRUCTIONS";:WS 


31, 
42, 
53, 
64, 
75, 
R6, 


21, 
32, 
43, 
54, 
65, 
76, 


81, 
92, 
103, 
114, 
125, 
136, 





"Y' OÙ 'N', JE VOUS PRIF." 


215 

220 

230 

231 

232 

233 

234 

235 

239 

240 

250 

260 

270 

280 

290 

295 

300 

310 

320 

330 

1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2065 
2070 
2080 
2090 
2100 
2105 
2110 
2120 
2125 
2130 
2140 
2145 
2150 
2155 
2160 
2170 
2180 
2190 
29an 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3190 
3200 
3210 
3220 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 


“IL SEMBLE BIEN QUE JE GAGNE GRACE À VOTRE ABANDON." 


<>P THEN 320 
<>2*P THEN 3200 


DETFRMINER 
M1=41 THEN 2180 
Ml1=44 THEN 2180 
M1=73 THEN 2180 
M1=75 THEN 21R0 
M1=126 THEN 2180 
M1=127 THEN 2180 
M1=158 THEN 3300 


COUP À JOUER PAR ORDINATEUR 


COUP AU HASARD 


MESSAGE COUP INTERDIT 

RECOMMENCEZ" ; 
LE JOUEUR GAGNE 

*FELICITATIONS.. ." 

"TRES BIEN JOUE--VOUS AVEZ GAGNE." 


“IL SEMBLE OUF J'AI TROUVE MON EGAL." 
“MERCI POUR LA PARTIF---JE NE PEUX PAS GAGNER TOUT LE TEMPS." 


3390 
3400 
3410 
3420 
3430 
3440 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
35690 
3570 
3580 
3990 
4000 
4010 
4020 
4030 
4040 
4042 
4045 
4050 
4060 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5185 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
9999 
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RFM 
PRINT 
PRINT “BFLLF TENTATIVE, MAIS IL SEMBLE QUE J'AI GAGNE." 


L'ORDINATEUR GAGNE 


PRINT “MERCI POUR LA PARTIE." 
PRINT 

GOTO 4000 

REM ESSAI COUP DE L'ORDINATEUR 
M=lO*T4+U 


IF M=158 THEN 3570 
IF M=127 THEN 3570 
IF M=126 THEN 3570 
IF M=75 THEN 3570 
IF M=73 THEN 3570 


RETUPN 

C=1 

GOTO 3560 

REM UNF AUTRE PARTIE??? 

PRINT "QUELQU'UN D'AUTRE VOUDRAIT ESSAYER"; 
INPUT OS 

PRINT 

IF Q$="Y" THEN 100 


IF QS="N" THEN 4050 


PRINT “REPONDFZ PAR 'Y' OU PAR 'N', JE VOUS PRIE." 


GOTO 4000 

PRINT “OK --- MERCI ENCORE." 

STOP 

RFM INSTRUCTIONS 

PRINT “NOUS ALLONS JOUER À UN JEU BASE SUR L'UN DES MOUVEMENTS DU JEU" 
PRINT "D'ECHFCS. NOTRE DAME NE POURRA SE DEPLACER QUF VERS LA GAUCHE,“ 
PRINT “VERS LE BAS, OU EN DIAGONALE VERS LF RAS ET LA GAUCHE." 

PRINT 

PRINT “LF BUT DU JEU EST D'AMENER LA DAME EN BAS ET À GAUCHE, EN JOUANT" 


PRINT “TOUR A TOUR AVEC L'ORDINATEUR" 

PRINT “LE PREMIER À PLACER LA DAME À L'ENDROIT PREVU, À GAGNE." 

PRINT 

PRINT “VOUS JOUEZ LF PREMIER EN PLACANT LA DAME À L'UNE DES POSITIONS" 
PRINT “DE LA RANGEE SUPERIEURE OU DF LA COLONNE DE DROITE." 

PRINT “CFCI CONSTITUERA VOTRE PREMIER COUP." 

PRINT “NOUS JOUONS TOUR À TOUR." 

PRINT “VOUS POUVEZ ABANDONNER EN TAPANT ‘O' COMME VALEUR DE VOTRE COUP." 
PRINT “N'OUBLIEZ PAS D'APPUYER SUR 'RETURN' APRES CHAQUE REPONSE." 
PRINT 

PRINT 

PRINT: LINE INPUT"'RETURN' POUR LA SUITE";JOJO$: PRINT CHR$(26) 


FOR A=0 TO 7 
FOR B=1 TO 8 

1=8*A+B 

PRINT USING"#4##4##";S(1I); 
NEXT R 

PRINT 

"***PRINT 

PRINT 

NEXT À 

PRINT 

RETURN 

END 


Reverse (Jeu d'adresse) 





Le jeu de REVERSE vous demande 
d'ordonner une suite de nombres en ordre 
croissant à partir de la gauche. Pour jouer, 
vous dites à l'ordinateur combien de 
nombres il faut inverser ( à partir de la 
gauche). Si par exemple la liste en cours 
est : 

2234516789 
et que vous en inversiez 4, le résultat se- 
ra : 

5432116789 
maintenant, si vous en inversez 5, vous 
gagnez ! 

Il y a beaucoup de façons de « mater » 
le jeu, mais les approches ont tendance à 
être soit algorithmiques soit heuristiques. 
Le jeu offre pourtant la possibilité d'utiliser 
ces concepts dans un contexte pratique 
(plutôt que théorique). 

Une approche algorithmique garantit 
une solution en un nombre prévisible de 
coups, étant donné le nombre d'éléments 
de la suite. Par exemple, une méthode ga- 
rantit une solution en 2N — 3 coups 
quand la liste contient N nombres. La qua- 
lité de l'approche algorithmique est que 
vous savez à l'avance ce que sera votre 
prochain coup. On pourrait facilement pro- 
grammer un ordinateur pour faire cela. 

Une approche heuristique tire profit des 
« classements partiels » de la liste à n'im- 
porte quel moment. En utilisant ce type 
d'approche, votre prochain déplacement 
dépend de la manière dont la liste apparaît 
généralement. Cette façon de résoudre le 
problème ne garantit pas de solution en un 
nombre de déplacements prévisibles, 
mais si vous êtes intelligent et que vous 
ayez de la chance, il se peut que vous de- 
vanciez les solutions algorithmiques. On 
ne pourrait pas aussi facilement program- 
mer cette méthode. 

Dans la pratique, beaucoup de joueurs 
adoptent une stratégie « mixte », compor- 
tant à la fois des approches algorithmi- 
ques et heuristiques. Est-ce mieux qu'une 
stratégie « pure » ? 

Le programme a été créé par Peter Ses- 
sions de la People's Computer Company 
et les notes ci-dessus ont été adaptées 
d’après l'original. 
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REVERSE 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


REVERSE -- UN JEU D'ADRESSE 


VOULEZ VOUS LIRE LES REGLES? Y 


VOICI LE JEU DE ‘REVERSE'. POUR GAGNER, TOUT CE QUE VOUS AVEZ 
À FAIRE EST DE REORDONNER UNE SUITE DE NOMBRES (DE 1 À 9 ) 
EN ORDRE CROISSANT À PARTIR DE LA GAUCHE. POUR JOUER, VOUS ME 
DITES COMBIEN DE NOMBRES (A PARTIR DE LA GAUCHE), IL FAUT 


INVERSER. SI, 


23451678 


9 


PAR EXEMPLE LA LISTE EN COURS EST: 


ET QUE VOUS EN INVERSIEZ 4, LE RESULTAT SERA: 


54321678 


9 


PUIS SI MAINTENANT VOUS EN INVERSEZ 5, VOUS GAGNEZ! 


12345678 


9 


VOUS AIMERFEZ CERTAINEMENT CE JEU, MAIS SI VOUS VOULEZ ABANDONNER 


RETOURNEZ O (ZERO). 


ALLONS Y... LA LISTE EST: 


3 5 1 8 4 
COMBIEN VAIS-JE 
2.6. .7.,:9:, #4 
COMBIEN VAIS-JE 
9 7 6 2 4 
CLOMBIEN VAIS-JE 
3 5 1 8 4 
COMBIEN VAIS-JE 
8 1 5 3 4 
COMBIFEN VAIS-JE 
7 6 2 4 3 
COMBIEN VAIS-JE 
1 5 3 4 2 
COMBIEN VAIS-JE 
5 1 3 4 2 
COMBIEN VAIS-JE 
2 4 3 1 5 
COMBIEN VAIS-JE 
4 2 3 1 5 
COMBIEN VAIS-JE 
1 3 2 4 5 
COMRIEN VAIS-JE 
3. 1 2-4 5 
COMRIEN VAIS-JE 
2 3.4 5 
COMBIEN VAIS-JE 
1 2 3, 4-5 


VOUS AVEZ GAGNE 


VOUS RECOMMENCEZ? N 


9 


EN 


8 


EN 


8 


EN 


2 


EN 


6 


EN 


7 6 2 
INVERSER? 9 
1 5 3 


INVERSER? 


> 


L::5:.3 


INVERSER? 9 


6 7 9 


INVERSER? 4 


6 7 9 


INVERSER? 8 


1: :8: 9 


= 


INVERSFR? 


7 8 9 


INVERSER? 


n 


7 ‘8.29 


un 


INVERSER? 


7 B 9 


n 


INVERSER? 
7 8 9 
INVERSER? 4 
704849 


INVERSER? 


n 


7 8 9 


INVERSER? 


w 


7 8 9 


INVERSER? 


n 


7% -87:9. 


13 COUPSIII 


O.K. J'ESPERE QUF VOUS VOUS FETES AMUSEI 1! 


ok 


54321689 


10 PRINT TAB(32);"REVERSE" 

20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT:PRINT:PRINT 

100 PRINT "REVERSE -- UN JEU D'ADRESSE" : PRINT 

130 DIM A(20) 

140 REM *** N=NOMBRE DE NOMBRES 

150 N=9 

160 PRINT “VOULEZ VOUS LIRE LES REGLES"; 

170 INPUT AS 
180 IF LEFTS(AS,1)=" 
190 GOSUB 710 
200 REM *** FAIRE UNE LISTE AU HASARD DE A(1) À A(N) 

210 A(1)=INT((N-1)*RND(1)+2) 

220 FOR K=2 TO N 

230 A(K)=INT(N*RND(1)+1) 

240 FOR J=1 TO K-1 

250 IF A(K)=A(J) THEN 230 

260 NEXT J:NEXT K 

280 REM *** AFFICHAGE DE LA LISTE INITIALE ET DEBUT DE LA PARTIE 

290 PRINT:PRINT "ALLONS Y... LA LISTE EST:" 

310 T=0 

320 GOSUB 610 

330 PRINT "COMBIEN VAIS-JE EN INVERSER": 

340 INPUT R 

350 IF R=0 THEN 520 

360 IF R<=N THEN 390 

370 PRINT "OOPS!I C'EST TROPI JE PEUX EN INVERSER AU PLUS";N:GOTO 330 
390 T=T+1 

400 REM *** INVERSER R NOMBRES ET AFFICHER LA NOUVELLE LISTE 

410 FOR K=1 TO INT(R/2) 

420 Z=A(K) 

430 A(K)=A(R-K+1) 

440 A(R-K+1)=7 

450 NEXT K 

460 GOSUB 610 

470 REM *** VERIFIER SI C'EST GAGNANT 

480 FOR K=1 TO N 

490 IF A(K)<>K THEN 330 

500 NEXT K 

510 PRINT “VOUS AVEZ GAGNE EN";T;"COUPSI 1 1":PRINT 

520 PRINT 

530 PRINT “VOUS RECOMMENCEZ"; 

540 INPUT AS 

550 IF LEFTS(AS,1)="Y" THEN 210 

560 PRINT:PRINT “O.K. J'ESPERE QUE VOUS VOUS ETES AMUSEI!":GOTO 999 
600 REM *** ROUTINE POUR AFFICHER LA LISTE 

610 PRINT:FOR K=1 TO N:PRINT A(K)::NEXT K 

650 PRINT:PRINT:RETURN 

700 REM *** ROUTINE POUR AFFICHER LES REGLES 

710 PRINT:PRINT "VOICI LE JEU DE ‘REVERSE'. POUR GAGNER, TOUT CE QUE VOUS AVEZ 
720 PRINT “A FAIRE EST DE REORDONNER UNE SUITE DE NOMBRES (DE 1 A":N:") 
730 PRINT “EN ORDRE CROISSANT A PARTIR DE LA GAUCHF. POUR JOUER, VOUS ME 
740 PRINT “DITES COMBIEN DE NOMBRES (A PARTIR DE LA GAUCHE), IL FAUT" 
750 PRINT “INVERSER. SI, PAR EXEMPLE LA LISTE EN COURS EST:" 

760 PRINT:PRINT "2 3 4 5 1 6 7 8 9" 

770 PRINT:PRINT "ET QUE VOUS EN INVERSIEZ 4, LE RESULTAT SERA:" 

780 PRINT:PRINT "5 4 3 2 1 6 7 8 9" 

790 PRINT:PRINT "PUIS SI MAINTENANT VOUS EN INVERSEZ 5, VOUS GAGNEZ!" 
800 PRINT:PRINT “1 2 3 4 5 6 7 8 9":PRINT 

810 PRINT "VOUS AIMEREZ CERTAINEMENT CE JEU, MAIS SI VOUS VOULEZ ABANDONNER 
820 PRINT “RETOURNEZ O (ZERO) .":PRINT: RETURN 

999 END 
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* THEN 210 





Rock, Scissors, Paper 
(Pierre, Ciseaux, Papier) 





Rappelez-vous du jeu de pierre- 
ciseaux-papier. Vous et votre adversaire 
faites un geste que vous répétez trois fois 
avec vos poings, ensuite vous montrez 
une main, vous la tendez ou la posez à 
plat : cela représente le papier ou bien 
vous montrez le poing (la pierre) ou en- 
core deux doigts (les ciseaux). Selon ce 
que l'on montre on est à égalité, c'est-à- 
dire qu'on montre la même chose, ou bien 
quelqu'un gagne. Le « papier » enveloppe 
la pierre, donc gagne. Les ciseaux cou- 
pent le papier, donc gagnent. Et la pierre 
casse les ciseaux et par conséquent 
gagne. 

Dans cette version informatisée de 
pierre-ciseaux-papier, vous pouvez jouer 
avec ou contre l'ordinateur 10 fois de 
suite. 

Charles Lund a écrit ce jeu lorsqu'il était 
à l'Ecole Américaine de La Haye aux 
Pays-Bas. 


10 PRINT TAR(21):"GAME OF ROCK, SCISSORS, PAPER" 
20 PRINT TAR(15);"CRFEATIVE COMPUTING MORRISTOWN, 


25 PRINT:PRINT:PRINT 
30 INPUT “"COMBIFEN DE PARTIES";Q 
40 IF Q<11 THEN 60 


5Q PRINT “DFSOLE, MAIS NOUS N'AVONS PAS LF DROIT D'EN JOUER AUTANT.": 


60 FOR G=1 TO Q 

70 PRINT: PRINT “PARTIF NUMERO" :G 

80 X=INT(RND(1)*3+1) 

90 PRINT "3=PIERRE...2=CISEAUX...1=PAPIER" 

100 INPUT "1...2...3...QUEL EST VOTRE CHOIX";K 
110 IF (K-1)*(K-2)*(K-3)<>0 THEN PRINT “FAUX.": 
120 PRINT "VOICI MON CHOIX..." 

130 ON X GOTO 140,150,160 

140 PRINT “...PAPIER": GOTO 170 

150 PRINT “...CISEAUX": GOTO 170 

160 PRINT "...PIERRE" 

170 IF X=K THEN 250 

1RO IF X>K THEN 230 

190 IF X=1 THEN 210 

200 PRINT "VOUS AVEZ GAGNEII1":H=H+l1: GOTO 260 
210 IF K<>3 THEN 200 

220 PRINT "WOWI J'AI GAGNEI11":C=C+1:GOTO 260 
230 IF K<>1 OR X<>3 THEN 220 

240 GOTO 200 

250 PRINT “PARTIE NULLE. PAS DE GAGNANT." 

260 NEXT G 





NEW JERSEY" 


GOTO 90 


270 PRINT: PRINT “VOICI LE SCORE FINAL DES PARTIES:" 


280 PRINT "J'AI GAGNE":C;"PARTIE(S)." 
290 PRINT "VOUS AVEZ GAGNE":H;"PARTIE(S)." 


300 PRINT "ET IL Y À EU";Q-(C+H);"PARTIE(S) NULLES."* 


310 PRINT: PRINT “MERCI D'AVOIR JOUEI I" 
320 END 


GOTO 30 
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GAME OF ROCK, 
CREATIVE COMPUTING 


COMBIEN DF PARTIES? 10 


PARTIE NUMERO 1 
3=PIERRE...2=CISEAUX. ..1=PAPIER 
1...2...3...QUEL EST VOTRE CHOIX? 
VOICI MON CHOIX... 

+.+.PAPIER 

PARTIE NULLE. PAS DE GAGNANT. 


PARTIE NUMERO 2 
3=PIERRE...2=CISEAUX...1=PAPIER 
1...2...3...QUEL EST VOTRE CHOIX? 
VOICI MON CHOIX... 

+. PAPIER 
PARTIE NULLE. PAS NE GAGNANT. 


PARTIE NUMFRO 3 
3=PIFRRE...2=CISEAUX...1=PAPIER 
1...2...3...QUEL EST VOTRE CHOIX? 
VOICI MON CHOIX... 

++. PAPIER 

VOUS AVEZ GAGNEIII 


PARTIF NUMERO 4 
3=PIERRE...2=CISEAUX...]1=PAPIER 
1...2...3...QUEL FST VOTRE CHOIX? 
VOICI MON CHOIX... 

+..CISEFAUX 

VOUS AVEZ GAGNEIII 


PARTIE NUMERO 5 
3=PIERRE...2=CISEAUX...1=PAPIER 
1...2...3...QUEL EST VOTRE CHOIX? 
VOICI MON CHOIX... 

+..PAPIER 

PARTIE NULLE. PAS DE GAGNANT. 


PARTIE NUMERO 6 

3=PIERRE...2=CISEAUX...1=PAPIER 
.-.2...9...QUEL EST VOTRE CHOIX? 

VOICI MON CHOIX... 

++.PIERRE 

WOWI J'AI GAGNEIII! 


PARTIF NUMERO 7 
3=PIFRRE...2=CISEAUX. ..1=PAPIER 
1...2...3...QUEL EST VOTRE CHOIX? 
VOICI MON CHOIX... 

+..CISEAUX 

PARTIE NULLE. PAS DE GAGNANT. 


PARTIE NUMERO 8 
3=PIERRF...2=CISEAUX...1=PAPIER 
1...2...3...QUEL EST VOTRE CHOIX? 
VOICI MON CHOIX... 

+..CISEAUX 

PARTIE NULLE. PAS NE GAGNANT. 


PARTIE NUMERO 9 
3=PIERRE...2=CISEAUX...1=PAPIER 
1...2...3...QUFL EST VOTRE CHOIX? 
VOICI MON CHOIX... 

+..PIERRE 

VOUS AVEZ GAGNEIII 


PARTIE NUMERO 10 
3=PIERRE...2=CISEAUX...1=PAPIER 
1...2...3...QUEL EST VOTRE CHOIX? 
VOICI MON CHOIX... 

.+.PIERRE 

PARTIE NULLE. PAS DF GAGNANT. 


VOICI LE SCORE FINAL DES PARTIES: 
J'AI GAGNE 1 PARTIE(S). 

VOUS AVEZ GAGNE 3 PARTIE(S). 

ET IL Y À EU 6 PARTIE(S) NULLES. 


MERCI D'AVOIR JOUEII 
Ok 


SCISSORS, PAPER 
MORRISTOWN, NEW JERSEY 


Roulette 





Ce jeu est une simulation de la Roulette 
américaine; « américaine » parce qu'elle 
comporte 38 compartiments chiffrés (de 1 
à 36 plus le O et le 00). La Roulette euro- 
péenne n’en comporte que 37 (de 1 à 36 
et le 0). Les Bahamas, Porto Rico et les 
pays d'Amérique du Sud se sont lente- 
ment tournés vers la Roulette américaine 
parce qu'elle permettait de faire rentrer 
des pourcentages plus importants. Le long 
du plateau tournant, chiffres impairs et 
pairs sont alternés ainsi que les rouges et 
les noirs. Cette disposition permet une 
très grande fiabilité du hasard dans le ti- 
rage des nombres. En fait, les « rou- 
lettes » sont parfois utilisées pour la géné- 
ration de tables de nombres aléatoires. 

Dans ce jeu vous pouvez miser de 5 à 
500 dollars, sur le rouge, sur le noir, le 
pair, l'impair, 18 nombres premiers ou se- 
conds, colonne, ou un simple numéro. 
Vous pouvez miser n'importe quelle 
somme à chaque tour. 

Il n'y a pas vraiment de stratégie ga- 
gnante pour la Roulette. Cependant ce 
qu'on appelle le « doublage » est une tac- 
tique acceptable. Au premier tour misez 
1 dollar sur impair/pair (impair, pair, rouge 
ou noir). Si vous perdez, doublez votre 
mise à 2 dollars. Si vous perdez encore 
misez 4 dollars. Continuez à doubler votre 
mise jusqu'à ce que vous gagniez, c'est- 
à-dire jusqu'à ce que vous cassiez une 
période de malchance). Dès que vous 
commencez à gagner misez de nouveau 
1 dollar et après chaque victoire encore un 
dollar : pas plus d'un dollar tant que vous 
n'avez pas récupéré les pertes provo- 
quées par le doublage. Ne tentez pas 
autre chose que la mise pair/impair. 
Bonne chance ! 


ROULETTE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


ENTREZ LA DATE DU JOUR (COMME ‘23 JANVIER, 1978‘) -? 2 DECEMBRE, 1977 


BIENVENUE À LA TABLE DE ROULETTE 


DESIREZ VOUS DES INSTRUCTIONS? Y 


VOICI LE TAPIS DES MISES 


(*=ROUGE ) 
1* 2 3* 
4 5* 6 
7* 8 9* 


16* 17 18* 
19* 20 21* 
22 23* 24 
25* 26 27* 
28 29 30* 
31 32* 33 
34* 35 36* 
00 0 


“RETURN' POUR LA SUITE 


TYPES DE MISES 


LES NOMBRES DE 1 À 36 SIGNIFIENT QUE LA MISE PORTE SIMPLEMENT 


SUR CF NUMERO. CES NUMEROS ‘PLEINS' RAPPORTENT 35:1 


LES CHANCES DOUBLES (2:1) SONT: 
37) 1-12 40) PREMIERE COLONNE 


38) 13-24 41) DEUXIEME COLONNE 
39) 25-36 42) TROISIEME COLONNE 
LES CHANCES SIMPLES SONT: 

43) 1-18 46) IMPAIR 

44) 19-36 47) ROUGE 

45) PAIR 48) NOIR 


49)0 ET 50)00 RAPPORTENT 35:1 
NOTE: O AND 00 NF RAPPORTENT RIEN, SAUF LORSQU'ON 
LES JOUE EN NUMEROS PLEINS 


QUAND JF POSE LA QUESTION, ENTREZ LE CODF ET LE MONTANT 


SEPARES PAR UNE VIRGULE. PAR EXEMPLE :POUR MISER 500$ SUR LES 


NOIRS, TAPEZ 48,500 QUAND JE VOUS DEMANDE VOTRE MISE 
LA MISE MINIMUM EST DE 5$, MAXIMUM DE 500$ 


COMBIEN DF MISES? 2 
MISE NUMERO 1 ? 2,100 
MISE NUMERO 2 ? 46,100 
CA TOURNE 


24 NOIRS 


VOUS PERDEZ 100 DOLLARS SUR LA MISE 
VOUS PERDFZ 100 DOLLARS SUR LA MISE 2 


eu 


TOTAUX: MOI VOUS 
100200 800 

ENCORE? Y 

COMBIEN DE MISES? 4 

MISE NUMERO 1 ? 15,20 

MISE NUMERO 2 ? 21,20 

MISE NUMERO 3 ? 40,100 

MISE NUMERO 4 ? 49,10 

CA TOURNE 


30 ROUGES 


VOUS PERDEZ 20 DOLLARS SUR LA MISE 1] 
VOUS PERDEZ 20 DOLLARS SUR LA MISE 2 
VOUS PERDEZ 100 DOLLARS SUR LA MISE 3 
VOUS PERDEZ 10 DOLLARS SUR LA MISE 4 


TOTAUX: MOI VOUS 
100350 650 
ENCORE? N 
À L'ORDRE DE QUI DOIS JE FAIRE LE CHEQUE? L.ORDINAT 


CHECK NO. 


2 DECEMBRE, 1977 


PAYEZ À L'ORDRE DE----- L.ORDINAT----- $ 650 


THE MEMORY BANK OF VIRGINIA 


L'ORDINATEUR 
PEARL RO ES X=———— 





REVENFZ BIENTOTI 


Ok 
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10 PRINT TAB(32); "ROULETTE" 1800 PRINT "CA TOURNE" 





20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 1810 PRINT 
30 PRINT:PRINT:PRINT 1820 PRINT 

40 PRINT “ENTREZ LA DATE DU JOUR (COMME ‘23 JANVIER, 1978') -"; 1830 S=INT(RND(1)*100) 

50 INPUT DS,ES 1840 IF S=0 OR S>3A THEN 1830 

1000 REM-ROULETTE 1850 X(S)=Xx(S)+1 

1010 REM-DAVID JOSLIN 1860 IF S<37 THEN 1920 

1020 PRINT "BIENVENUE À LA TABLF DE ROULETTE" 1870 IF S=37 THEN 1900 

1030 PRINT 1880 PRINT "O0" 

1040 PRINT "DESIREZ VOUS DES INSTRUCTIONS"; 1890 GOTO 2020 

1050 INPUT YS 1900 PRINT “O" 

1060 IF LFFTS(YS,1)="N" THEN 1550 1910 GOTO 2020 

1070 PRINT CHRS (26) 1920 RESTORE 

1080 PRINT “VOICI LE TAPIS DES MISES" 1930 FOR I1=] TO 18 

1090 PRINT “ (*=ROUGE)" 1940 READ R 

1100 PRINT 1950 IF R=S THEN 2000 

1110 PRINT " 1* 2 3%" 1960 NEXT 11 

1120 PRINT " 4 5* 6 " 1970 AS="NOIRS" 

1130 PRINT “ 7* 8 9%" 1980 PRINT S:AS 

1140 PRINT 1990 GOTO 2020 

1150 PRINT 2000  AS$="ROUGES" 

1160 PRINT 2010 GOTO 1980 

1170 PRINT 2020 PRINT 

1180 PRINT 2030 FOR C=1 TO Y 

1190 PRINT 2040 IF T(C)<37 THEN 2710 

1200 PRINT 2050 ON T(C)-36 GOTO 2090,2190,2220,2250,2300,2350,2400, 2470, 2500 
1210 PRINT 2060 ON T(C)-45 GOTO 2530,2560,2630 
1220 PRINT 2070 GOTO 2710 

1230 PRINT 2080 STOP 

1240 PRINT 2090 REM 1-12(37) 2:1 

1250 "6#+9 2100 IF S <= 12 THEN 2150 

1260 PRINT 2110 PRINT "VOUS PERDFZ";B(C):"DOLLARS SUR LA MISE ":C 
1270 PRINT:LINE INPUT"'RETURN' POUR LA SUITE";JOJOS:PRINT CHRS(26) 2120 D=D+B(C) 

1280 PRINT " TYPES DE MISES" 2130 P=P-B(C) 

1290 ‘#*#*#*#*PRINT 2140 GOTO 2180 

1300 PRINT "LES NOMBRES DE 1 À 36 SIGNIFIENT QUE LA MISE PORTE SIMPLEMENT" 2150 PRINT “VOUS GAGNEZ “;B(C)*2;"DOLLARS SUR LA MISE “:;C 
1310 ‘###*#*PRINT "SUR CE NUMERO" 2160 D=D-B(C)*2 

1320 PRINT “SUR CFE NUMERO. CES NUMEROS ‘PLEINS' RAPPORTENT 35:1" 2170 P=P+B(C)*2 

1330 PRINT 2180 GOTO 2810 

1340 PRINT "LES CHANCES DOURLES (2:1) SONT:" 2190 REM 13-24(38) 2:1 

1350 PRINT “ 37) 1-12 40) PREMIERE COLONNE" 2200 IF S>12 AND S<25 THEN 2150 
1360 PRINT “ 3R) 13-24 41) DEUXIEME COLONNE" 2210 GOTO 2110 

1370 PRINT “ 39) 25-36 42) TROISIEMF COLONNE" 2220 REM 25-36(39) 2:1 

1380 PRINT à 2230 IF S>24 AND S<37 THEN 2150 
1390 PRINT "LES CHANCES SIMPLES SONT:" 2240 GOTO 2110 

1400 PRINT “ 43) 1-18 46) IMPAIR" 2250 REM PREMIERE COLONNE(40) 2:1 
1410 PRINT “ 44) 19-36 47) ROUGE" 2260 FOR I=l TO 34 STEP 3 

1420 PRINT “ 45) PAIR 48) NOIR" 2270 IF S=1 THEN 2150 

1430 PRINT 2280 NEXT I 

1440 PRINT “ 49)0O ET 50)00 RAPPORTENT 35:1" 2290 GOTO 2110 

1450 PRINT “ NOTE: O AND 00 NE RAPPORTENT RIEN, SAUF LORSQU'ON" 2300 REM SECONDE COLONNE(41) 2:1 
1460 PRINT " LES JOUF EN NUMEROS PLEINS" 2310 FOR I=2 TO 35 STEP 3 

1470 PRINT 2320 IF S=1 THEN 2150 

1480 PRINT “QUAND JE POSE LA QUESTION, ENTREZ LE CODE ET LE MONTANT" 2330 NEXT 1 

1490 PRINT "SEPARES PAR UNE VIRGULE. PAR EXEMPLE:POUR MISER 500$ SUR LES" 2340 GOTO 2110 

1500 PRINT “NOIRS, TAPEZ 48,500 QUAND JE VOUS DEMANDE VOTRE MISE" 2350 REM TROISIEME COLONNE(42) 2:1 
1510 ‘#*#*#*#*PRINT “WHEN I ASK FOR À BET" 2360 FOR I=3 TO 36 STEP 3 

1520 ‘#***#*PRINT 2370 IF S=1 THEN 2150 

1530 PRINT * LA MISE MINIMUM EST DE 5$, MAXIMUM DE 500$" 2380 NEXT I 

1540 PRINT 2390 GOTO 2110 

1550 REM-LF PROGRAMME COMMENCE ICI 2400 REM 1-18(43) 1:1 

1560 REM-CHANCES DES TYPES DE MISES (NOMBRE) 2410 IF S<19 THEN 2430 

1570 RFM 2420 GOTO 2110 

1580 DIM B(100),C(100),T(100),X(38) 2430 PRINT “VOUS GAGNEZ “;:B(C);"DOLLARS SUR LA MISE ";C 
1590 DIM A(50) 2440 D=N-B(C) 

1600 FOR I=1 TO 38: X(I1)=0: NEXT I: REM MAT X=ZER 2450 P=P+B(C) 

1610 P=1000 2460 GOTO 2810 

1620 D=]1000001! 2470 REM 19-36(44) 1:1 

1630 PRINT “COMBIEN DE MISES"; 2480 IF S<37 AND S>18 THEN 2430 
1640 INPUT Y 2490 GOTO 2110 

1650 IF Y<l OR Y<>INT(Y) THEN 1630 2500 REM PAIR(45) 1:1 

1660 FOR 1=1 TO 50: A(I)=0: NEXT I: REM MAT A=ZER 2510 IF S/2=INT(S/2) AND S<37 THEN 2430 
1670 FOR C=1 TO Y 2520 GOTO 2110 

1680 PRINT “MISE NUMERO":C: 2530 REM IMPAIR(46) 1:1 

1690 INPUT X,Z 2540 IF S/2<>INT(S/2) AND S<37 THEN 2430 
1700 B(C)=Z 2550 GOTO 2110 

1710 r(C)=Xx 2560 RFM ROUGF(47) 1:1 

1720 IF X<1 OR X>50 OR X<>INT(X) THEN 1680 2570 RESTORE 

1730 IF Z<l OR Z<>INT(Z) THEN 1680 2580 FOR I=l TO 18 

1740 IF Z<5 OR Z>500 THEN 1680 2590 READ R 

1750 IF A(X)=0 THEN 1780 2600 IF S=R THEN 2430 

1760 PRINT “VOUS AVEZ DEJA PARIE LA DESSUS" 2610 NEXT 1 

1770 GOTO 1680 2620 GOTO 2110 

1780 A(X)=1 2630 REM NOIR(48) 1:1 

1790 NEXT C 2640 RESTORE 
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2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 


FOR I=]1 TO 18 


READ R 

IF S=R THEN 2110 
NEXT 1 

IF S>36 THEN 2110 
GOTO 2430 


REM--1T036,0,00(1-36,49,50)35:1 

IF T(C)<49 THEN 2760 

IF T(C)=49 AND S=37 THEN 2780 

IF T(C)=50 AND S=38 THEN 2780 

GOTO 2110 

1F T(C)=S THEN 2780 

GOTO 2110 

PRINT "VOUS AVEZ GAGNE “;B(C)*35;"DOLLARS SUR LA MISE":C 
D=D-B(C)*35 

P=P+B(C)#*35 


NEXT C 
PRINT 
PRINT "TOTAUX:","MOI", "VOUS" 
PRINT “ “,D,P 


IF P>O THEN 2880 

PRINT "“OOPSI VOUS VENEZ DE PERDRE VOTRE DERNIER DOLLAR"* 
GOTO 3190 

IF D>0 THEN 2920 

PRINT “VOUS AVEZ FAIT SAUTER LA BANQUE!" 

P=1010001! 

GOTO 2960 

PRINT "ENCORE"; 
INPUT YS 
IF LEFTS(YS,1)="Y" THEN 1630 

DATA 1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36 
IF P<1 THEN 3190 

PRINT “A L'ORDRE DE QUI DOIS JE FAIRE LE CHEQUE"; 
INPUT B$ 

PRINT 





3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
2420 


FOR I=1 TO 72: PRINT “-";: NEXT I: REM PRINT 72 TIRETS 
PRINT TAB(50)"CHECK NO. “:INT(RND(1)*100) 

PRINT 

GOSUB 3230 
PRINT TAB(40):M$ 

PRINT 

PRINT 

PRINT “PAYEZ À L'ORDRE DE----- VeB$:"---- $ ": 

PRINT P 

PRINT 

PRINT 

PRINT TAB(10),"THE MEMORY BANK OF VIRGINIA"* 

PRINT 

PRINT TAB(40),"L'ORDINATEUR" 

PRINT TAB(40) “---------- X=———— " 

PRINT 
FOR 1=1 TO 72: PRINT “-"; 
PRINT "REVENEZ BIENTOTI" 
GOTO 3210 

PRINT "MERCI POUR VOTRE ARGENT“ 

PRINT "JE L'UTILISERAI POUR ME PAYER UNE ROUE DE ROULETTE EN OR MASSIF" 
PRINT 





: NEXT I 


GOTO 3420 

REM 

REM CETTE ROUTINE RETOURNE LA DATE DU JOUR EN M$ 

REM SI VOTRE SYSTEME À DES POSSIBILITES À CE SUJET, ELLES 

REM PEUVENT ETRE MISES EN OEUVRE ICIE. CEPENDANT DANS CE PROGRAMME 
REM NOUS NOUS SOMMES CONTENTES DE RENTRER LA DATE AU DEBUT DE LA 
REM PARTIE 

REM 

REM LA DATE EST RETOURNEE DANS LA VARIABLE M$ 

M$=D$+", "4ES$ 

RETURN 

END 
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Russian Roulette 





(Roulette russe) 





Dans ce jeu, l'ordinateur vous donne un 


revolver chargé d'une balle et cinq 
chambres vides. Vous faites tourner le 
barillet et appuyez sur la détente en entrant 
un « 1» ou si vous voulez abandonner, 
vous entrez un « 2 ». Vous gagnez si vous 
jouez dix fois et que vous êtes toujours en 
vie. 


Tom Adametx a écrit ce programme 


quand il était étudiant à Curtis Jr High 
School à Sudbury, Massachusetts. 


1 PRINT TAB(28);:"RUSSIAN ROULETTE" " 
2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
3 PRINT:PRINT:PRINT 


5 PRINT “CECI EST UN JEU 


10 
20 
22 
23 


DE >>>>>>>>>>ROULETTE RUSSE." 





PRINT:PRINT "VOICI UN REVOLVER." 

PRINT "TAPEZ ‘l' POUR FAIRE TOURNER LE BARILLET ET APPUYER SUR LA DETENTE." 
PRINT "TAPEZ ‘2° POUR ABANDONNER." 

PRINT “ALLONS Y"; 

N=0 

INPUT I 

IF 1<>2 THEN 35 

PRINT * POLTRONI 1111" 

GOTO 72 

N=N+] 

IF RND(1)>.833333 THEN 70 

IF N>10 THEN 80 

PRINT “- CLICK -" 

PRINT: GOTO 30 

PRINT * BANGIIIII VOUS ETES MORTI" 

PRINT "DES CONDOLEANCES SERONT ENVOYEES AUX MEMBRES DE VOTRE FAMILLE." 








PRINT:PRINT:PRINT 

PRINT "...PROCHAINE VICTIME...":GOTO 20 

PRINT OUS AVEZ GAGNEIIII1" 

PRINT "LAISSEZ QUELQU'UN D'AUTRE SE FAIRE SAUTER LA CERVELLE." 
GOTO 10 

END 


RUSSIAN ROULETTE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


CECI EST UN JEU DE >>>>>>>>>>ROULETTE RUSSE. 


VOICI UN REVOLVER. 


TAPEZ 
TAPEZ 


POUR FAIRE TOURNER LE BARILLET ET APPUYER SUR LA DETENTE. 
POUR ABANDONNER. 


‘1: 
‘2' 


ALLONS Y? 1 


? 


CLICK - 


1 
CLICK 


1 
CLICK 


1 
CLICK - 


1 
CLICK 
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- CLICK - 


CLICK - 


CLICK - 


? 1 
VOUS ETES MORT! 
SERONT ENVOYEES AUX MEMBRES DE VOTRE FAMILLE. 


BANGIIIII 
DES CONNOLEANCES 


-..PROCHAINE VICTIME... 
TAPEZ ‘l' POUR FAIRE TOURNER LE BARILLET ET APPUYER SUR LA DETENTE. 
TAPEZ ‘2' POUR ABANDONNER. 
ALLONS Y? 2 
POLTRON!I1111! 


...PROCHAINE VICTIME... 


TAPEZ 'l' POUR FAIRE TOURNER LE BARILLET ET APPUYER SUR LA DETENTE. 
TAPEZ ‘2' POUR ABANDONNER. 
ALLONS Y? 1 


BANGIIIITL VOUS ETES MORT! 
DES CONDOLEANCES SERONT ENVOYEES AUX MEMBRES DE VOTRE FAMILLE. 


+..PROCHAINE VICTIME... 


TAPEZ ‘l' POUR FAIRE TOURNER LE BARILLET ET APPUYER SUR LA DETENTE. 
TAPEZ ‘2' POUR ABANDONNER. 
ALLONS Y? 1 
- CLICK - 
21 
- CLICK - 
A | 
BANG!IIII VOUS ETES MORT! 


DES CONDOLEANCFS SERONT ENVOYEES AUX MEMBRES DE VOTRE FAMILLE. 


.+..PROCHAINE VICTIME... 

TAPEZ ‘l' POUR FAIRE TOURNER LE BARILLFT ET APPUYER SUR LA DETENTE. 
TAPEZ ‘2° POUR ABANDONNER. 

ALLONS Y? 1 

- CLICK - 


2-71 
BANGIIIII VOUS ETES MORT! 
DES CONDOLEANCES SERONT ENVOYEES AUX MEMBRES DE VOTRE FAMILLE. 


-.PROCHAINF VICTIME... 
TAPEZ ‘l' POUR FAIRE TOURNER LE BARILLET ET APPUYER SUR LA DETENTE. 
TAPEZ ‘2' POUR ABANDONNER. 
ALLONS Y? 2 
POLTRONIIIII 


-..PROCHAINE VICTIME... 
TAPEZ ‘l' POUR FAIRE TOURNER LE BARILLET ET APPUYER SUR LA DETENTE. 
TAPFZ ‘2' POUR ABANDONNER. 
ALLONS Y? 2 
POLTRONIIIII 


...PROCHAINE VICTIME... 

TAPEZ ‘l' POUR FAIRF TOURNER LE BARILLET ET APPUYER SUR LA DETENTE. 
TAPEZ ‘2' POUR ABANDONNER. 

ALLONS Y? 1 

- CLICK - 


21 
RANGIIIII VOUS ETES MORT! 
DES CONDOLEANCES SFERONT ENVOYEES AUX MEMBRES DE VOTRE FAMILLE. 


++.PROCHAINE VICTIME... 
TAPEZ ‘l' POUR FAIRE TOURNER LE BARILLET ET APPUYER SUR LA DETENTE. 
TAPEZ ‘2' POUR ABANDONNER. 
ALLONS Y? 2 
POLTRONI1I111 


...PROCHAINF VICTIMF... 


TAPEZ ‘l' POUR FAIRE TOURNER LE BARILLET ET APPUYER SUR LA DETENTE. 
TAPEZ ‘'2' POUR ABANDONNER. 
ALLONS Y? 


Salvo 





Les règles ne sont pas expliquées dans 
le programme, aussi lisez attentivement 
cette description de Larry Siegel, l'auteur 
du programme. 

On joue au SALVO sur une grille ou ta- 
bleau de 10x10 en utilisant un système 
de coordonnées x, y. Le joueur a 
4 navires : un navire de ligne (5 carrés), 1 
croiseur (3 carrés) et 2 destroyers (2 
carrés chacun). Les navires peuvent être 
placés horizontalement, verticalement, ou 
en diagonale et ne doivent pas se chevau- 
cher. Les navires ne se déplacent pas 
pendant la partie. 

Tant qu'un carré d’un navire de ligne 
subsiste, le joueur a droit à 3 tirs; pour un 
croiseur 2tirs et pour chaque destroyer 
1 tir. Ainsi, au début de la partie, le joueur 
a3+2+1+1-7tirs. Le joueur entre 
tous les tirs et l'ordinateur lui dit ce qui est 
touché. Un tir est entré par ses coordon- 
nées x, y sur la partie. Le vainqueur est 
celui qui coule tous les navires de l’adver- 
saire. 

Note importante : Vos navires et ceux 
de l'ordinateur sont situés sur 2 tableaux 
10x10 séparés. 

L'auteur du programme est Lawrence 
Siegel de Shaker Heights, Ohio. 





AE EN mu 
À EE 
À EE EE EG SU 
À EE 
À ER D A 
ES ER 1 
À 2 


012345678910 











SALVO 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


ENTREZ LES COORDONNEES DU... 
NAVIRE DE LIGNE 
? 10,10 


TOUR 1 
VOUS DISPOSEZ DE 7 COUPS. 


2? 9,9 ? 3,4 

? 8,8 4,4 

? 7,7 2 5,4 

? 6,6 ? 6,4 

CROISEUR ? 7,4 

r 3,5 ? 8,4 

? 2,6 ? 9,4 

? 1,7 VOUS AVEZ TOUCHE MON NAVIRE DE LIGNE. 
DESTROYER<A> JE DISPOSE DE 7 COUPS. 
? 1,10 7 1 

? 2,10 8 2 

DESTROYER<B> 7. 3 

? 6,7 9 1 

? 6,8 9 3 

DESIREZ VOUS COMMENCER? Y 8 4 

VOULEZ VOUS VOIR OU JE TIRE? Y 9 5 


TOUR 2 
VOUS DISPOSEZ DE 7 COUPS. 


EU 
an 


1 

? 6,2 

? 6,3 

? 6,4 
VOUS AVEZ DEJA TIRE ICI AU TOUR 1 
? 6,5 

? 6,6 

? 6,7 

2? 6,8 
VOUS AVEZ TOUCHE MON NAVIRE DFE LIGNE. 
JE DISPOSE DE 7 COUPS. 

10 4 

10 2 

10 6 

10 8 

10 9 

9 9 

10 10 


J'AI TOUCHE VOTRE NAVIRE DE LIGNE 
J'AI TOUCHE VOTRE NAVIRE DE LIGNE 


TOUR 3 
VOUS DISPOSEZ DF 7 COUPS. 


D = N &w BJ 
WDJAUUWN 


JS AVFZ DEJA TIRE ICI AU TOUR 2 
8,1 

E DISPOSE DE 7 COUPS. 

9 2 

10 1 

10 3 

4 


O! 


sous 


5 
6 
7 
J'AI TOUCHE VOTRE NAVIRE DE LIGNE 
J'AI TOUCHE VOTRE NAVIRE DE LIGNE 





9 0 
TOUR 4 
VOUS DISPOSEZ DE 7 COUPS. 
? 1,1 
? 1,2 
? 1,3 
? 1,4 
?-1:5 
? 1,6 
2? 1,7 
JE DISPOSE DE 7 COUPS. 
8 3 
4 3 
3:13 
5 3 
S'.4 
9 4 
8 1 


8 


TOUR 5 
VOUS DISPOSEZ DE 7 COUPS. 
? 3,1 


UN 


Oo! 


au 


[e] 
U W W E W W © W W Ww 
“aa... 


#0 J € 0 + € V0 VU 
02 


VOIS AVEZ TOUCHE MON CROISEUR. 
VOUS AVEZ TOUCHE MON DESTROYER<B>. 


JE DISPOSE DE 7 COUPS. 


ps bé be (D Où Lo 
aupuus » 


6 
DISPOSEZ DE 7 COUPS. 


Q 9 
CC 


LIT a. ne --- 0% 
Bb UN 


o 


u 


SEEN EN £ D <VVVNVE" 
bhhRERCRCRESR 


0-1 


VOIS AVEZ TOUCHE MON CROISEUR. 
VOUS AVEZ TOUCHE MON DESTROYER<B>. 


JE DISPOSE DE 6 COUPS. 
7 10 
2 2 
1,275 
Le 27 
1 8 
1: 9 


J'Al TOUCHE VOTRE CROISEUR 


TOUR 7 
VOUS DISPOSEZ DE 7 COUPS. 
? 5,1 


2 5,2 
25,3 
? 5,4 
VOUS AVEZ DEJA TIRE ICI AU TOUR 1 
25,5 
2 5,6 
2:8:7 
2 5,8 
JE DISPOSE DE 6 COUPS. 

1 1 

3 2 

2 ui 

2 3 

2 7 

3 1 
TOUR 8 
VOUS DISPOSEZ DE 7 COUPS. 
2 6,1 
VOUS AVEZ DEJA TIRE ICI AU TOUR 2 
2 6,2 
VOUS AVEZ DEJA TIRE ICI AU TOUR 2 
2 6,3 
VOUS AVEZ DEJA TIRE ICI AU TOUR 2 
2 7,1 

? 7,2 
VOUS AVEZ DEJA TIRE ICI AU TOUR 3 
2 7,3 
VOUS AVEZ DEJA TIRE ICI AU TOUR 3 
2 7,4 
VOUS AVEZ DEJA TIRE ICI AU TOUR 1 
? 8,1 
VOUS AVEZ DEJA TIRE ICI AU TOUR 3 
? 8,2 
2 8,3 
2 8,4 
VOUS AVEZ DEJA TIRE ICI AU TOUR 1 
2 8,5 
? 8,6 
? 8,7 
? 8,8 
VOUS AVEZ TOUCHE MON NAVIRE DE LIGN 
JE DISPOSE DE 6 COUPS. 

7 4 

2 4 

2 5 

2 6 

2 8 

3 7 


J'AI TOUCHE VOTRE CROISEUR 


AVEZ DEJA TIRE ICI AU TOUR 1 


AVEZ DEJA TIRE ICI AU TOUR 3 


AVEZ DEJA TIRE ICI AU TOUR 1 


AVEZ DEJA TIRE ICI AU TOUR 3 


TOUR 9 TOUR 11 1780 PRINT “CROISEUR"“ 


VOUS DISPOSEZ DE 7 COUPS. VOUS DISPOSEZ DE 5 COUPS. 1790 PRINT F(6):G(6) 
? 9,1 ? 10,6 1800 PRINT F(7):G(7) 
? 9,2 ? 10,7 1810 PRINT F(8):G(8) 
? 9,3 ? 10,8 1820 PRINT "DESTROYER<A» " 
? 9,4 ? 10,9 1830 PRINT F(9):G(9) 
VOUS AVEZ DEJA TIRE ICI AU TOUR 1 ? 10,10 1840 PRINT F(10);:G(10) 
? 9,5 JE DISPOSE DE 2 COUPS. 1850 PRINT “DESTROYER<B> * 
? 9,6 7 2 1860 PRINT F(11):G(11) 
2 9,7 2 10 1870 PRINT F(12):G(12) 
? 9,8 J'AI TOUCHE VOTRE DESTROYER<A> 1880 GOTO 1710 
VOUS AVEZ TOUCHE MON NAVIRE DE LIGNE. 1890 C=0 
VOUS AVEZ TOUCHE MON DESTROYER<A»>. TOUR 12 1900 PRINT “VOULEZ VOUS VOIR OU JE TIRE"; 
VOUS AVEZ TOUCHE MON DESTROYER<A>. VOUS DISPOSEZ DE 5 COUPS. 1910 INPUT K$ 
JE DISPOSE DE 5 COUPS. ? 1,10 1920 PRINT 
7 5 ? 1,9 1930 IF J$<>"y" THEN 2620 
4 7 2 1,8 1940 REM***#ssssannnane tt * DEPART 
6 3 VOUS AVEZ DEJA TIRE ICI AU TOUR 3 1950 IF J$<>"Y" THEN 1990 
: E ? 1,7 1960 C=C+1 
VOUS AVEZ D 1970 PRINT 
J'AI TOUCHE VOTRE CROISEUR ? 1,6 BR PEJAITIRE TOL AU TOUR AE ST DR TNT "TOUR";C 
VOUS AVEZ DEJA TIRE ICI AU TOUR 4 1990 A=0 
TOUR 10 ? 1,5 2000 FOR W=.5 TO 3 STEP .5 
VOUS DISPOSEZ DE 5 COUPS. VOUS AVEZ DEJA TIRE ICI AU TOUR 4 2010 FOR X=1 TO 10 
? 10,1 ? 2,10 2020 FOR Y=1 TO 10 
? 10,2 ? 2,9 2030 IF B(X,Y)=W THEN 2070 
? 10,3 ? 2,8 2040 NEXT Y 
? 10,4 JE DISPOSE DE 2 COUPS. 2050 NEXT X 
? 10,5 6 1 2060 GOTO 2080 
VOUS AVEZ TOUCHE MON NAVIRE DE LIGNE. 6 2 2070 A=A+INT(W+.5) 
JE DISPOSE DE 2 COUPS. 2080 NEXT W 
7 9 2090 FOR W=1 TO 7 
2 9 2100 C(W)=0 


2110 D(W)=0 

2120 F(W)=0 

2130 G(W)=0 

2140 NEXT W 

2150 P3=0 

2160 FOR X=1 TO 10 
2170 FOR Y=1 TO 10 


1000 PRINT TAB(33);"SALVO" 2180 IF A(X,Y)>10 THEN 2200 
1010 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 2190 P3=P341 
1020 PRINT:PRINT:PRINT 2200 NEXT Y 
1030 REM 2210 NEXT X 
1040 DIM A(10,10),B(10,10),C(7),D(7),E(12),F(12),G(12),H(12),K(10,10) 2220 PRINT “VOUS DISPOSEZ DE";A; "COUPS." 
1050 Z8=0 2230 IF P3>=A THEN 2260 
1060 FOR W=1 TO 12 2240 PRINT"VOUS DISPOSEZ DE PLUS DE COUPS QU'IL N'Y À DE CASES ENCORE VIERGES. 
1070 E(W)=-1 2250 GOTO 2890 
1080 H(W)=-1 2260 IF A<>O THEN 2290 
1090 NEXT W 2270 PRINT “J'AI GAGNE." 
1100 FOR X=1 TO 10 2280 STOP 
1110 FOR Y=1 TO 10 2290 FOR W=1 TO À 
1120 B(X,Y)=0 2300 INPUT X,Y 
1130 NEXT Y 2310 IF X<>INT(X) THEN 2370 
1140 NEXT X 2320 IF X>10 THEN 2370 
1150 FOR X=1 TO 12 2330 IF X<l THEN 2370 
1160 F(X)=0 2340 1F Y<>INT(Y) THEN 2370 
1170 G(X)=0 2350 IF Y>10 THEN 2370 
1180 NEXT X 2360 IF Y>=1l THEN 2390 
1190 FOR X=1 TO 10 2370 PRINT “INTERDIT, RECOMMENCEZ." 
1200 FOR Y=1 TO 10 2380 GOTO 2300 
1210 A(X,Y)=0 2390 IF A(X,Y)>10 THEN 2440 
1220 NEXT Y 2400 C(W)=Xx 
1230 NEXT X 2410 D(W)=Y 
1240 FOR K=4 TO 1 STEP -1 2420 NEXT W 
1250 U6=0 2430 GOTO 2460 
1260 GOSUB 2910 2440 PRINT "VOUS AVEZ DEJA TIRE ICI AU TOUR":A(X,Y)-10 
1270 DEF FNA(K)=(5-K)*3-2*INT(K/4)+SGN(K-1)-1 2450 GOTO 2300 
1280 DEF FNB(K)=K+INT(K/4)-SGN(K-1) 2460 FOR W=1 TO À 
1290 IF V+V24V*V2=0 THEN 1260 2470 IF A(C(W),D(W))=3 THEN 2540 
1300 IF Y+V*FNB(K)>10 THEN 1260 2480 IF A(C(W),D(W))=2 THEN 2560 
1310 IF Y+V*FNB(K)<1l THEN 1260 2490 IF A(C(W),D(W))=1 THEN 2580 
1320 IF X+V2*FNB(K)>10 THEN 1260 2500 1F A(C(W),D(W))=.5 THEN 2600 
1330 IF X+V2*FNB(K)<l THEN 1260 2510 A(C(W),D(W))=104C 
1340 U6=U6+1 2520 NEXT W 
1350 IF U6>25 THEN 1190 2530 GOTO 2620 
1360 FOR Z=0 TO FNB(K) 2540 PRINT "VOUS AVEZ TOUCHE MON NAVIRE DE LIGNE." 
1370 F(Z+FNA(K))=X+V2*Z 2550 GOTO 2510 
1380 G(Z+FNA(K))=Y+V*2Z 2560 PRINT “VOIS AVEZ TOUCHE MON CROISEUR." 
1390 NEXT Z 2570 GOTO 2510 
1400 UR=FNA(K) 25RO PRINT "VOUS AVEZ TOUCHE MON DESTROYFR<A> ." 
1405 IF UB>UR+FNB(K) THEN 1460 2590 GOTO 2510 
1410 FOR Z2= U8 TO U8+FNB(K) 2600 PRINT “VOUS AVEZ TOUCHE MON DESTROYER<B>." 
1415 IF U8<2 THEN 1450 2610 GOTO 2510 
1420 FOR Z3=1 TO UB-1 2620 A=0 
1430 IF SOR((F(Z3)-F(Z2))42 + (G(Z23)-G(Z22))2) < 3.59 THEN 1260 2630 IF JS="Y" THEN 2670 
1440 NEXT 23 2640 C=C+1 
1450 NEXT 22 2650 PRINT 
1460 FOR Z=0 TO FNB(K) 2660 PRINT “TOUR";C 
1470 A(F(Z+U8),G(Z+*cw)=.54SGN(K-1)*(K-1.5) 2670 A=0 
1480 NEXT Z 2680 FOR W=.5 TO 3 STEP .5 
1490 NEXT K 2690 FOR X=1 TO 10 
1500 PRINT "ENTREZ LES COORDONNEES DU..." 2700 FOR Y=1 TO 10 
1510 PRINT "NAVIRE DE LIGNE" 2710 1F A(X,Y)=W THEN 2750 
1520 FOR X=1 TO 5 2720 NEXT Y 
1530 INPUT Y,2Z 2730 NEXT X 
1540 B(Y,2Z)=3 2740 GOTO 2760 
1550 NEXT X 2750 A=A+INT(W+.5) 
1560 PRINT "CROISEUR" 2760 NEXT W 
1570 FOR X=1 TO 3 2770 P3=0 
15R0 INPUT Y,Z 2780 FOR X=1 TO 10 
1590 B(Y,2Z)=2 2790 FOR Y=1 TO 10 
1600 NEXT X 2800 IF A(X,Y)>10 THEN 2820 
1610 PRINT “DESTROYER<A»> “ 2810 P3=P3+1 
1620 FOR X=1 TO 2 2820 NEXT Y 
1630 INPUT Y,Z 2830 NEXT X 
1640 B(Y,2Z)=1 2840 PRINT "JE DISPOSE DF";A;"COUPS." 
1650 NEXT X 2850 IF P3>A THEN 2880 
2860 PRINT "JE DISPOSE DE PLUS DE COUPS QU'IL N'Y À DE CASES ENCORE VIERGES." 


1660 PRINT "DESTROYER<B>" 
1670 FOR X=1 TO 2 

1680 INPUT Y,Z 

1690 B(Y,Z)=.5 


2870 GOTO 2270 
2880 IF A<>0 THEN 2960 
2890 PRINT “VOUS AVEZ GAGNE." 


1700 NEXT X 2900 STOP 

1710 PRINT "DESIRFZ VOUS COMMENCER"; 2910 X=INT(RND(1)*104+1) 
1720 INPUT JS$ 2920 Y=INT(RND(1)*10+1) 
1730 IF J$<>"OU SONT VOS NAVIRES?" THEN 1890 2930 V=INT(3*RND(1)-1) 
1740 PRINT "NAVIRE DE LIGNE" 2940 V2=INT(3*RND(1)-1) 
1750 FOR Z=1 TO 5 2950 RETURN 

1760 PRINT F(Z);:G(2Z) 2960 FOR W=1 TO 12 

1770 NEXT Z 2970 IF H(W)>0O THEN 3800 
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2980 NEXT W 
3630 IF H(M2)<>H(Q) THEN 3650 








2990 REM***#*#*##############*AU HASARD 
3000 W=0 3640 M3=M3+1 
3010 R3=0 3650 NEXT M2 
3020 GOSUB 2910 3660 IF M3<>INT(H(Q)+.5)+1#INT(INT(H(Q)+.5)/3) THEN 3470 
3030 RESTORE 3670 FOR M2=1 TO 12 
3040 R2=0 3680 1F H(M2)<>H(Q) THEN 3710 
3050 R3=R3+1 3690 E(M2)=-1 
3060 IF R3>100 THEN 3010 3700 H(M2)=-1 
3070 IF X>10 THEN 3110 3710 NEXT M2 
3080 IF X>0 THEN 3120 3720 GOTO 3470 
3090 X=1+INT(RND(1)*2.5) 3730 NEXT_Q 
3100 GoTO 3120 3740 PRINT “ARRET DU PROGRAMME :" 
3110 X=10-INT(RND(1)*2.5) 3750 FOR Q=1 TO 12 
3120 IF Y>10 THEN 3160 3760 PRINT "E(":Q;:") =";E(Q) 
3130 1F Y>0 THEN 3270 3770 PRINT "H(";:Q:") =";H(Q) 
3140 Y=1+INT(RND(1)*2.5) 3780 NEXT Q 
3150 GOTO 3270 3790 STOP 
3160 Y=10-INT(RND(1)*2.5) 3800 REM**#####nnanmt## ts à x # # #UTILISATIONTABLEAUE 
3170 GOTO 3270 3810 FOR R=1 TO 10 
3180 F(W)=X 3820 FOR S=1 TO 10 
3190 G(W)=Y 3830 K(R,S)=0 
3200 IF W=A THEN 3380 3840 NEXT S | 
3210 IF R2=6 THEN 3030 3850 NEXT R 
3220 READ X1,Y1 3860 FOR U=1 TO 12 
3230 R2=R2+1 3870 IF E(U)<10 THEN 4020 
3240 DATA 1,1,-1,1,1,-3,1,1,0,2,-1,1 3880 FOR R=1 TO 10 
3250 X=X+X1 3890 FOR S=1 TO 10 
3260 Y=Y+Y1 3900 IF R(R,S)<10 THEN 3930 
3270 IF X>10 THEN 3210 3910 K(R,S)=-10000000# 
3280 IF X<1 THEN 3210 3920 GOTO 4000 
3290 IF Y>10 THEN 3210 3930 FOR M=SGN(1-R) TO SGN(10-R) 
3300 IF Y<l THEN 3210 3940 FOR N=SGN(1-S) TO SGN(10-S) 
3310 IF R(X,Y)>10 THEN 3210 3950 IF N+M4N*M=0 THEN 3980 
3320 FOR Q9=1 TO W 3960 IF B(R+M,S+N)<>E(U) THEN 3980 
3330 1F F(Q9)<>X THEN 3350 3970 K(R,S)=K(R,S)+E(U)-S*INT(H(U)+.5) 
3340 1F G(09)=Y THEN 3210 3980 NEXT N 
3350 NEXT 09 3990 NEXT M 
3360 W=W+1 4000 NEXT S 
3370 GOTO 3180 4010 NEXT R 
3380 1F KS<>"y" THEN 3420 4020 NEXT U 
3390 FOR Z5=1 TO À 4030 FOR R=1 TO À 
3400 PRINT F(Z5):G(2Z5) 4040 F(R)=R 
3410 NEXT 75 4050 G(R)=R 
3420 FOR W=1 TO À 4060 NEXT R 
3430 IF R(F(W),G(W))=3 THEN 3500 4070 FOR R=1 TO 10 
3440 IF RB(F(W),G(W))=2 THEN 3520 4080 FOR S=1 TO 10 
4090 Q9=1 


3450 1F B(F(W),G(W) THEN 3560 
3460 1F B(F(W),G(W))=.5 THEN 3540 
3470 R(F(W),G(W))=10+4C 





4100 FOR M=1 TO À 
4110 1F K(F(M),G(M))>=K(F(Q09),G(Q9)) THEN 4130 


3480 NEXT W 4120 Q9=M 
3490 GOTO 1950 4130 NEXT M 
3500 PRINT "J'AI TOUCHE VOTRE NAVIRE DE LIGNE" 4131 IF R>A THEN 4140 
3510 GOTO 3570 4132 IF R=S THEN 4210 
3520 PRINT “J'AI TOUCHE VOTRE CROISEUR" 4140 IF K(R,S)<K(F(Q9),G(Q9)) THEN 4210 
3530 GOTO 3570 4150 FOR M=1 TO A 
3540 PRINT “J'AI TOUCHE VOTRE DESTROYER<B>" 4160 IF F(M)<>R THEN 4190 
3550 GOTO 3570 4170 IF G(M)=S THEN 4210 
3560 PRINT "J'AI TOUCHE VOTRE DESTROYER<A> * 4180 NEXT M 
3570 FOR Q=1 TO 12 4190 F(Q9)=R 
3580 IF E(Q)<>-1 THEN 3730 4200 G(Q9)=S 
3590 F(0)=10+C 4210 NEXT S 
3600 H(Q)=B(F(W),G(W)) 4220 NEXT R 
3610 M3=0 4230 GOTO 3380 

4240 END 


3620 FOR M2=1 TO 12 
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Sine Wave 





Etes-vous déjà allé à une démonstration 
d'ordinateur et vu un groupe de terminaux 
vidéo, attendant désespérément que quel- 
qu'un leur fasse une démo. C'est à un de 
ces moments, lorsque j'étais à DEC, que 
j'ai décidé qu'il fallait leur donner un peu 
d'animation. Et pourquoi pas tracer avec 
des mots plutôt qu'avec les X habituels ? 
C'est ainsi que SINE WAVE est né et vit 
dans des douzaines de versions diffé- 
rentes. Au moins, les terminaux vidéo ne 
paraissent plus sans vie à présent. 


10 PRINT TAB(30):"SINE WAVE" 
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT: PRINT: PRINT: PRINT: PRINT 
40 REM ARQUABLE PROGRAMME DE DAVID AHL 
0 B=0 

100 REM DFBUT GRANDE BOUCLE 

110 FOR T=0 TO 40 STEP .25 

120 A=INT(26+25*SIN(T)) 

130 PRINT TAB(A): 

140 IF R=1 THEN 180 

150 PRINT "CREATIVE" 

160 B=1 

170 GOTO 200 

180 PRINT “COMPUTING" 





190 B=0 
200 NEXT T 
999 END 
SINE WAVE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUT ING 
CREATIVE 
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CREATIVE 
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COMPUTING 
CREATIVE 
COMPUTING 
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Slalom 





Ce jeu simule un slalom comportant de 
une à 25 portes. L'utilisateur choisit le 
nombre de portes et a le contrôle sur la 
vitesse de sa course. 

Si vous n'êtes pas skieur, vous avez ici 
la chance d'essayer avec un risque mini- 
mal. Si vous êtes skieur, il y a de quoi lan- 
cer vos jambes. 

SLALOM a été écrit par J. Panek, lors- 
qu'il était étudiant à Dartmouth College. 


SLALOM 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


COMBIEN DFE PORTES Y A T-IL DANS CETTE COURSE (1 TO 25)? 12 


POUR LES INSTRUCTIONS 

POUR LFS VITESSES MAXI APPROCHEES 
POUR COMMENCER LA COURSE 

INS 


TAPEZ "INS" 
TAPEZ "MAX" 
TAPEZ "RUN" 
COMMANDE--? 


LEL 
VOUS 


C'EST LE SLALOM GEANT DES JEUX OLYMPIQUES D'HIVER DE 1976 
ETES L' ESPOIR DE L'EQUIPE AMERICAINE POUR UNE MEDAILLE D'OR. 


O--TAPEZ 
1--TAPEZ 
2--TAPEZ 
3--TAPEZ 
4--TAPEZ 
5--TAPEZ 
6--TAPEZ 
7--TAPEZ 
8--TAPEZ 


CONNAITRE LE TEMPS DEJA MIS 
ALLER NETTEMENT PLUS VITE 
ALLER UN PEU PLUS VITE 

ALLER À PEINE PLUS VITE 
GARDER LA MEME VITESSE 

ALLER À PEINE PLUS LENTEMENT 
ALLFR UN PEU PLUS LENTEMENT 
ALLER NETTEMENT PLUS LENTEMENT 
TRICHER EN SAUTANT UNE PORTE 


CECI 
CECI 
CECI 
CECI 
CECI 
CECI 
CECI 
CECI 
CECI 


S1 
SI 
S1 
SI 
SI 
S1 
S1 
S1 
SI 


VOUS 
VOUS 
vous 
VOUS 
Vous 
VOUS 
vous 
VOUS 
VOUS 


VOULEZ 
VOULEZ 
VOULEZ 
VOULEZ 
VOULEZ 
VOULEZ 
VOULEZ 
VOULEZ 
VOULEZ 


CES OPTIONS DOIVENT ETRE UTILISEES QUAND L'ORDINATEUR DEMANDE: 
OPTION? 
BONNE CHANCE, 


COMMANDE--? MAX 


PORTE MAX 
No M.P.H. 
1 14 
2 18 
3 26 
4 29 
5 18 
6 25 
7 28 
8 32 
9 29 
10 20 
11 29 
12 29 
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COMMANDE--? RUN 


JUGEZ VOUS COMME SKIEUR, 
LE STARTER COMPTE À REBOURS...5...4...3...2...1.. 


C'EST PARTII 


VOICI LA PORTE 
11 M.P.H. 
OPTION? 3 
12 M.P.H. 


NR 


VOICI LA PORTE 
12 M.P.H. 
OPTION? 2 
15 M.P.H. 


NR 


VOICI LA PORTE NR 
15 M.P.H. 
OPTION? 2 


19 M.P.H. 


VOICI LA PORTE NR 
19 M.P.H. 
OPTION? 5 
18 M.P.H. 
VOICI LA PORTE NR 
18 M.P.H. 
OPTION? 4 
18 M.P.H. 


VOICI LA PORTE 
18 M.P.H. 
OPTION? 1 
26 M.P.H. 


NR 


(1-MINABLE, 


3-SUPER)? 2 


.GOI 


VOUS AVEZ DEPASSE LA VITESSE LIMITE ET ARRACHE UN FANIONI 
VOUS AVEZ MIS 44.9845 SECONDES 
VOULEZ VOUS COURIR DE NOUVEAU? Y 


LE STARTER COMPTE À REBOURS... 


C'EST PARTII 
VOICI LA PORTF NR 
17 M.P.H. 
OPTION? 6 
13 M.P.H. 
VOICI LA PORTE NR 
13 M.P.H. 
OPTION? 2 
16 M.P.H. 


VOICI LA PORTE 
16 M.P.H. 
OPTION? 1 
25 M.P.H. 


NR 


VOICI LA PORTE NR 
25 M.P.H. 
OPTION? 5 
26 M.P.H. 


VOUS AVEZ DEPASSE 


VOICI LA PORTE NR 
26 M.P.H. 
OPTION? 7 
21 M.P.H. 


VOICI LA PORTE NR 
21 M.P.H. 
OPTION? 4 
21 M.P.H. 


VOICI LA PORTE NR 
21 M.P.H. 
OPTION? 3 
24 M.P.H. 
VOUS AVEZ DEPASSE 





LA VITESSE MAXI ET AVEZ 


5 


LA VITESSE MAXI ET AVEZ 


...4...3...2...1...GOI 


PASSE LA PORTE! 


PASSE LA PORTE! 


1020 PRINT S;"M.P.H." 


10 PRINT TAR(33);"SLALOM" 1030 1F S>Q THEN 1290 
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 1040 IF S>Q-1 THEN 1060 
30 PRINT:PRINT:PRINT “. 1050 RETURN 
310 PRINT “COMBIEN DE PORTES Y À T-IL DANS CETTE COURSE (1 TO 25) ? 1060 PRINT "C'EST PASSE PRES!" 
320 INPUT V 1070 RETURN 
330 IF V>25 THEN 360 : : œ « 
1080 PRINT S;"M.P.H. 
340 IF V<l THEN 390 
350 GOTO 1440 1100 Let au neANnEE VOLE 3)+3) 
=S- 5 
360 PRINT "LA LIMITE EST 25" 1110 PRINT S:"M.P.H." } 
370 LET V=25 1120 GOTO 1030 
80 GOTO 1440 : 1130 LET S=S+INT(RND(1)*(10-5)+5) 
220 RE On nr Ne à 1140 GOTO 1080 
1150 LET S=S- *(10- 
410 PRINT “JUGEZ VOUS COMME SKIEUR, (1-MINABLE, 3-SUPER)"; Treo EDR Re NERNDI) (19-3245) 
420 INPUT A 1170 LET S=S+INT(RND(1)*(4-1)+1) 


430 IF A<l THEN 460 

440 IF A>3 THEN 460 

450 GOTO 480 

460 PRINT "LES LIMITES SONT 1-3" 
470 GOTO410 


11R0 GOTO 1110 

1190 LET S=S-INT(RND(1)#*(4-1)+1) 
1200 GOTO 1110 

1210 PRINT "#*#*#*TRCHEUR" 

1220 IF RND(1)<.7 THEN 1260 












480 PRINT "LE STARTER COMPTE À REBOURS...5...4...3... .1...601" { à 

4907 REM .. Ress Y FTES ARRIVEI 

510 LET SINT(RND(1)*(18-9)49) 1250 RETURN 

320 PRINT L 2243 1260 PRINT “UN OFFICIEL VOUS À PRIS LA MAIN DANS LE SACI" 

525 PRINT "C'EST PARTII" 1270 PRINT "VOUS AVEZ MIS"; (T+RND(1));"SECONDES 

530 FOR O=1 TO V 1229/2070. 2790 

540 READ O 1290 IF RND(1)<((S-Q)*.1)+.2 THEN 1320 

550 PRINT . HR "VOUS AVEZ DFPASSE LA VITESSE MAXI ET AVFEZ PASSE LA PORTEI" 
ï 2 ETURN 

see ER NE 8e Mn ROn D NR":STR$(O) 1320 PRINT “VOUS AVEZ DEPASSE LA VITESSE LIMITE ET "; 

570  LET S1=$ 1340 PRINT “AVES RATEÏ“ 

580 PRINT "OPTION"; 1350 PRINT “VOUS AVEZ MIS"; (T+RND(1));"SECONDES" 

590 INPUT O1 1360 GOTO 740 

600 1F O1=0 THEN 970 1370 PRINT “ARRACHE UN FANIONI " 

610 IF O1>8 THEN 1420 1380 GOTO 1350 

620 IF Ol<1 THEN 1420 1390 PRINT "SOYONS REALISTES, OK? FAISONS DEMI-TOUR ET RECOMMENCONS. . ." 

630 GOSURB 990 1400 LET S=S1 

640 IF S<7 THEN 1390 1410 GOTO 550 

650 LET T=T+(Q-S+1) 1420 PRINT "QUOI?" 

660 IF S>Q THEN 1630 1430 GOTO 580 

670 NEXT O 1440 PRINT 

680 PRINT "VOUS AVEZ MIS ";(T+RND(1));"SECONDES" 1445 PRINT "TAPEZ “;CHRS(34);"INS";CHR$(34);:" POUR LES INSTRUCTIONS" 

690 LET M=T 1450 PRINT"TAPEZ ";CHRS(34);"MAX";CHR$(34);" POUR LES VITESSES MAXI APPROCHEES" 

700 LET M=M/V 1460 PRINT "TAPEZ “;CHRS$(34);"RUN":;CHRS(34);" POUR COMMENCER LA COURSE" 

710 IF M<1.5-(A*.1) THEN 1650 1470 PRINT "COMMANDE--"; 

720 IF M<2.9-(A*.1) THEN 1680 1480 INPUT AS 

730 IF M<4.4-(A*.01) THEN 1710 : 1490 REM 

740 PRINT "VOULEZ VOUS COURIR DE NOUVEAU"; nroes 

750 INPUT BS 1510 IF Aë="AAXe THEN 1890 

780 M ans Re 740 1520 IF AS="RUN" THEN 410 : 

1530 PRINT CHRS(34);AS;CHR$(34);" EST UNE COMMANDE NON VALIDE--RECOMMENCEZ" ; 

780 IF B$="Y" THEN 480 1540 GOTO 1480 

790 PRINT "TAPEZ ‘Y' OU 'N', JE VOUS PRIE" 1550 PRINT "PORTE MAX" 

800 GOTO 740 1560 PRINT “ NO  M.P.H." 

810 STOP 1570 PRINT"---------— # 

820 PRINT 1580 FOR B=1 TO V 

825 PRINT "*** C'EST LE SLALOM GEANT DES JEUX OLYMPIQUES D'HIVER DE 1976" 1590 READ Q 

830 PRINT "VOUS FETES L' ESPOIR DE L'EQUIPE AMERICAINE POUR UNE MEDAILLE D'OR." 600 PRINT B:" ":0 

840 PRINT 1610 NEXT B 

845 PRINT " O--TAPEZ CECI SI VOUS VOULEZ CONNAITRE LE TEMPS DEJA MIS" 1620 GOTO 1470 

850 PRINT " 1--TAPEZ CECI SI VOUS VOULEZ ALLER NETTEMENT PLUS VITE" 1630 LET T=T+.5 

860 PRINT " 2--TAPEZ CECI SI VOUS VOULEZ ALLER UN PEU PLUS VITE" 1640 GOTO 670 

870 PRINT " 3--TAPEZ CECI SI VOUS VOULEZ ALLER À PEINE PLUS VITE" 1650 PRINT "VOUS AVEZ GAGNE UNE MEDAILLE D'ORI" 

880 PRINT 4--TAPEZ CECI SI VOUS VOULEZ GARDER LA MEME VITESSE" 1660 LET G(1)=G(1)+1 

890 PRINT " 5--TAPEZ CECI SI VOUS VOULEZ ALLER À PEINE PLUS LENTEMENT" 1670 GoTO 1730 

900 PRINT " 6--TAPEZ CECI SI VOUS VOULEZ ALLER UN PEU PLUS LENTEMENT" 1680 PRINT “VOUS AVEZ GAGNE UNE MEDAILLE D'ARGENT" 

910 PRINT " 7--TAPEZ CECI SI VOUS VOULEZ ALLER NETTEMENT PLUS LENTEMENT" 1690 LET S(1)=S(1)+1 

920 PRINT " 8--TAPEZ CECI SI VOUS VOULEZ TRICHER EN SAUTANT UNE PORTE" 1700 GOTO 1730 

930 PRINT 1710 PRINT "VOUS AVEZ GAGNE UNE MEDAILLE DE BRONZE" 

935 PRINT “ CES OPTIONS DOIVENT ETRE UTILISEES QUAND L'ORDINATEUR DEMANDE :* 1720 LET B(1)=B(1)41 

940 PRINT 1730 GOTO 740 

945 PRINT "OPTION?" 1740 PRINT “MERCI POUR LA COURSE" 

950 PRINT 1750 1F G(1)<l THEN 1770 

955 PRINT “ BONNE CHANCE, “ 1760 PRINT “MEDAILLES D'OR:";G(1) 

957 PRINT 1770 IF S(1)<1 THEN 1790 

960 GOTO 1470 1780 PRINT "MEDAILLES D'ARGENT:":;S(1) 

970 PRINT "VOUS AVEZ MIS"; (T+RND(1) );"SECONDES" 1790 IF B(1)<1 THEN 1830 

980 GOTO 580 1800 PRINT “MEDAILLES DE BRONZE:";B(1) 

990 ON O1 GOTO 1130,1010,1170,1080,1190,1100,1150,1210 1810 DATA 14,18,26,29,18,25,28,32,29,20,29,29,25,21,26,29,20,21,20 

1000 STOP 1820 DATA 18,26,25,33,31,22 

1010 LET S=S+INT(RND(1)*(5-3)+3) 1830 END 
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Slots 





La machine à sous ou le bandit à un 
bras est un appareil mécanique qui ab- 
sorbe des pièces autant que vous pouvez 
lui en donner. Après avoir inséré une 
pièce, vous tirez une manette qui actionne 
trois rouleaux tournants indépendants. Si 
le rouleau s'arrête sur certains symboles 
apparaissant sur la ligne de gains, vous 
obtiendrez une certaine solde. La machine 
à sous originale, appelée « Liberty Bell », 
fut inventée en 1895 par Charles Fey à 
San Francisco. Fey refusa de vendre ou 
de louer les droits de fabrication, aussi 
H. S. Mills à Chicago en construisit une 
similaire mais plus perfectionnée, inactive 
appelée « Operators Bell ». Cette dernière 
a survécu jusqu'à ce jour, presque sans 
changement. 

Sur l'« Operators Bell » et d'autres ma- 
chines à sous standard, il y a 20 symboles 
sur chaque roue mais ils ne sont pas éga- 
lement distribués entre les objets (cerises, 
barres, pommes, etc.). Des 8 000 combi- 
naisons possibles, la chance de gain (pour 
le joueur) est de 7,049 % soit 89 $ 11 pour 
chaque mise de 100 $, ce qui constitue 
l'espérance de gain la plus basse de tous 
les jeux de casinos. 

Dans ce programme, la possibilité de 
gain est beaucoup plus libérale; elle appa- 
raît en faveur du joueur par 11 %, c'est-à- 
dire une espérance de gain de 111 $ pour 
chaque mise de 100 $. 

Le programme à l'origine a été écrit par 
Fred Mirabelle et Bob Harper. 


SLOTS 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


VOUS ETES DANS LE CASINO ‘H&M', FACE À L'UN DE NOS BANDITS 


A UN BRAS (MACHINE À SOUS). MISES DE 1$ A 100$. 


POUR TIRER SUR LE BRAS, APPUYER SUR ‘RETURN' APRES AVOIR MISE. 


VOTRE MISE? 5 


CLOCHE CLOCHE CLOCHE 
**SUPER-DOLLAR** 
VOUS GAGNEZI 

VOUS ETES À 55 $ 
VOUS REJOUEZ? Y 


VOTRE MISE? 10 


CITRON BARRE PRUNE 
VOUS AVEZ PERDU. 
VOUS FTES À 45 $ 
VOUS REJOUEZ? Y 


VOTRE MISE? 50 


ORANGE ORANGE CERISE 
DOUBLE I 1 

VOUS AVEZ GAGNEI 
VOUS ETES À 195 $ 
VOUS REJOUEZ? Y 


VOTRF. MISE? 100 


CERISF PRUNE BARRE 
VOUS AVEZ PERDU. 
VOUS ETES À 95 $ 
VOUS REJOUEZ? Y 


VOTRE MISE? 5 


CERISE BARRE CERISE 


VOUS AVEZ PERDU. 
VOUS ETES À 90 $ 
VOUS REJOUEZ? N 


ALLEZ TOUCHER VOS GAINS À LA CAISSE DU ‘H&M'. 
Ok 





10 PRINT TAR(30);"SLOTS" 


20 PRINT TAB(15);:"CREATIVE COMPUTING 


30 PRINT:PRINT:PRINT 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
330 
390 
450 
460 
470 
480 
500 
510 
520 
530 
540 


REM 
REM CE PROGRAMME SIMULE UNE MACHINE À SOUS 


PRINT "VOUS ETES DANS LE CASINO ‘H&M', FACE À L'UN DE NOS BANDITS* 


PRINT "A UN BRAS (MACHINF À SOUS). MISES DE 1$ À 100$." 


MORRISTOWN, NEW JERSEY" 


550 


780 
790 
800 
R10 
820 
830 
840 
850 
860 
870 
880 
890 
900 


PRINT “POUR TIRER SUR LE BRAS, APPUYER SUR ‘RETURN' APRES AVOIR MISE." 


LET P=0 

PRINT:PRINT “VOTRE MISE"; 
INPUT M 

IF M>100 THEN 860 


IF M<l THEN 880 
M=INT(M) 

GOSUB 1270 

PRINT 

LET X=INT(6*RND(1)+1) 

LET Y=INT(6*RND(1)+1) 

LET Z=INT(6*RND(1)+1) 

PRINT 

ON X GOTO 910,930,950,970,990,1010 

ON Y GOTO 1030,1050,1070,1090,1110,1130 
ON Z GOTO 1150,1170,1190,1210,1230,1250 
IF X=Y THEN 600 

IF X=7 THEN 630 

IF Y=Z THEN 650 

PRINT:PRINT"VOUS AVEZ PERDU." 

LET P=P-M 

PRINT “VOUS ETES A"P"$" 

PRINT "VOUS REJOUEZ"; 

INPUT AS 

1F LEFTS(A$,1)="Y" THEN 160 





PRINT 
IF P<O THEN 670 
IF P=0 THEN 690 


IF P>0O THEN 710 

GOTO 1350 

IF Y=Z THEN 730 

IF Y=i THEN 820 

GOTO 1341] 

IF Z=]1 THEN 820 

GOTO 470 

IF Z=] THEN 820 

GOTO 134) 

PRINT “PAYEZ VOS DETTES! LAISSEZ VOTRE ARGENT SUR LE TERMINAL, 
GOTO 1350 

PRINT “HEY, VOUS VOUS EN TIREZ À ZERO." 

GOTO 1350 

PRINT “ALLEZ TOUCHER VOS GAINS À LA CAISSE DU ‘H&M'." 
GOTO 1350 


IF Z=i THEN 780 
PRINT:PRINT "##SUIPER-DOLLAR**" 
PRINT “VOUS GAGNEZ!" 
P=(((10*M)+M)+P) 
GOTO 510 
PRINT:PRINT “#*##GROS LOT (JACKPOT)**" 
PRINT "VOUS GAGNEZI" 
P=(((100*M)+M)+P) 
GOTO 510 
PRINT:PRINT “#DOUBLE BARRE*" 
PRINT "VOUS GAGNEZ!" 
P=(((5*M)+M)+P) 
GOTO 510 
PRINT "LA LIMITE DE LA MAISON EST DE 100$" 
GOTO 160 
PRINT "LA MISE MINIMUM EST 1$" 
GOTO 160 
GOTO 220 

910 PRINT "BARRE"; :GOSUB 1310 
920 GOTO 330 

930 PRINT "CLOCHE";:GOSUB 1310 
940 GOTO 330 

950 PRINT “ORANGE";:GOSUB 1310 
960 GOTO 330 

970 PRINT "CITRON"; :GOSUB 1310 
980 GOTO 330 

990 PRINT “PRUNE";:GOSUB 1310 
1000 GOTO 330 

1010 PRINT "CERISE";:GOSUB 1310 
1020 GOTO 330 

1030 PRINT “ BARRE";::GOSURB 1310 
1040 GOTO 390 

1050 PRINT “ CLOCHF";:GOSUB 1310 
1060 GOTO 390 

1070 PRINT “ ORANGE"; :GOSUB 1310 
1080 GOTO 390 

1090 PRINT " CITRON"; :GOSUB 1310 
1100 GOTO 390 

1110 PRINT “ PRUNF"::GOSUB 1310 
1120 GOTO 390 

1130 PRINT “ CERISE";::GOSUB 1310 
1140 GOTO 390 

1150 PRINT “ BARRE“ 

1160 GOTO 450 

1170 PRINT “ CLOCHE" 

1180 GOTO 450 

1190 PRINT “ ORANGE" 

1200 GOTO 450 

1210 PRINT “ CITRON" 

1220 GOTO 450 

1230 PRINT “ PRUNE" 

1240 GOTO 450 

1250 PRINT “ CERISE" 

1260 GOTO 450 

1270 FOR Q4=1 TO 10 

1280 PRINT CHRS(7); 

1290 NEXT Q4 

1300 RETURN 

1310 FOR T8=1 TO 5 

1320 PRINT CHR$(7); 

1330 NEXT T8 

1340 RETURN 

1341 PRINT:PRINT “DOUBLEI |" 
1342 PRINT “VOUS AVEZ GAGNEI" 
1343 P=(((2*M)+M)+P) 

1344 GOTO 510 

1350 REM 

9999 END 
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S.Vv.P." 


Splat 





SPLAT simule un saut en parachute 
dans lequel vous essayez d'ouvrir votre 
parachute au tout dernier moment, sans 
vous aplatir et faire « splat » ! Vous pou- 
vez choisir votre propre vitesse limite ou 
en laisser le choix à l'ordinateur. Vous 


pouvez aussi choisir l'accélération due à 
VOUS CHOISISSEZeVOTRE PROPRE VITESSE LIMITE (Y OÙ N)? Y 


la pesanteur ou encore une fois laisser QUELLE VITESSE LIMITE (MI/HR)? 120 
, ; H DESIREZ VOUS C IS L'ACCELE ION DUE LA PESANTEUR (Y OU N)? Y 
ee le Rain . ee QUELLE ACCCLRRAIOS (RÉÉDE LES SEC S 30 a : à 
pourriez bien vous retrouver sur une des RENE ne 
huit planètes (sauf Neptune), la lune ou le VIT. LIMITE = 176 PIFDS/SEC 4-54 
i ACCELFRATION = 30 SEC/ -5% 

Soleil. , e , . REGLEFZ LE CHRONO POUR On UE 

Puis l'ordinateur vous donne l'altitude COMBIEN DE SECONDES? 25 
de laquelle vous sautez et vous demande Qu°X VA: 
de régler le chrono pour votre chute libre. TEMPS (SEC) DIST RESTANTE (PIEDS) 
Il divise ensuite votre temps de chute libre D DT pt oo 

i 3.125 4122.24 
en 8 intervalles et vous donne les rapports VITESSE LIMITE ATTEINTE A T PLUS 5.6R616 SECONDS 
de votre progression lors de votre des- 6.25 3671.9 
cente. L'ordinateur garde aussi la trace de dures RE 
tous les sauts précédents dans le ta- 15.625 2015.05 
bleau A et vous permet de comparer avec EE 0 c46e 
tous les sauts réussis précédemment. Si 25 358.208 
M . PARACHUTE OUVERT 

vous voulez rappeler l'information des STUPEFIANTI11 PAS MAL POUR VOTRE 2EME SAUT REUSSIIII 
exécutions précédentes, vous devrez PESLREZ VOUS. RETOUR EE 
stocker le tableau À sur un fichier disque VOUS CHOISISSEZ VOTRE PROPRE VITESSE LIMITE (Y OU N)? N 
ou une bande et le lire avant chaque exé- OK. VITESSE LIMITE = | MI/HR | ‘ , 
cution. DESIREZ VOUS CHOISIR L'ACCELERATION DUE À LA PESANTEUR (Y OÙ N)?N 


2 VOUS VOICI SUR NEPTUNE. ACCELERATION=39.6 PIEDS/SEC/SEC 
John Yegge a créé ce programme 


quand il était à Oak Ridge Associated Uni- VIT. LIMITE 2 1.46667 PIEDS/SEC 4-58 
versities. ACCELERATION = 39.6 PIENS/SEC/SEC +-5% 


REGLEZ LE CHRONO POUR VOTRE CHUTE LIBRE. 
COMBIEN DE SECONDES? 56 
ON Y VA. 


TEMPS (SEC) DIST RESTANTE (PIFDS) 


0 9725 
VITESSE LIMITE ATTEINTE À T PLUS .0385287 SECONDS 
7 9714.29 
LAT 14 9703.56 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 21 9692.82 
28 9682.08 
35 9671.35 
42 9660.61 
BIENVENU À ‘SPLAT' -- LE JEU SIMULE UN SAUT EN PARACHUTE 49 9649.87 
ESSAYEZ D'OUVRIR VOTRE PEPIN AU TOUT DERNIER MOMEMT SANS CEPENDANT 56 9639.14 
VOUS APLATIR ET FAIRE ‘SPLAT'. PARACHUTE OUVERT 
STUPEFIANTII! PAS MAL POUR VOTRE 3EME SAUT REUSSIIII 


DESIREZ VOUS REJOUER? Y 
VOUS CHOISISSEZ VOTRE PROPRE VITESSE LIMITE (Y OU N)? N 
OK. VITESSE LIMITE = 305 MI/HR 


DESIREZ VOUS CHOISIR L'ACCELERATION DUE À LA PESANTEUR (Y OU N)? N VOUS CHOISISSEZ VOTRE PROPRE VITESSE LIMITE (Y OU N)? N 
OK. VOUS ETES SUR MERCURE. ACCELERATION=12.2 PIEDS/SEC/SEC OK. VITESSE LIMITE = 907 MI/HR 
DESIREZ VOUS CHOISIR L'ACCELERATION DUE À LA PESANTEUR (Y OU N)? N 
ALTITUDE = 3206 PIEDS VOUS VOILA SUR JUPITER. ACCELERATION=85.2 PIEDS/SEC/SEC 
VIT. LIMITE = 447.333 PIEDS/SEC +-5% 
ACCELERATION = 12.2 PIEDS/SEC/SEC +-5% ALTITUDE = 8368 PIEDS 
REGLEZ LE CHRONO POUR VOTRE CHUTE LIBRE. VIT. LIMITE = 1330.27 PIEDS/SEC +-5% 
COMBIFN DE SECONDES? 16 ACCELERATION = A5.2 PIFDS/SEC/SEC +-5% 
ON Y VA. REGLEZ LE CHRONO POUR VOTRE CHUTE LIBRE. 
COMBIEN DE SECONDES? 35 
TEMPS (SEC)  DIST RESTANTE (PIEDS) ON Y VA. 
mms mans. 
0 3206 TEMPS (SEC) DIST RESTANTE (PIEDS) 
| 3181.24 =sxzz=2222= 222222===2=s2=s2222222222= 
4 3106.98 0 8368 
6 2983.2 4.375 7547.07 
8 2809.9 8.75 5084.3 
10 2587.1 13.125 979.668 
12 2314.79 VITESSE LIMITE ATTEINTE À T PLUS 15.4998 SECONDS 
14 1992.96 14.0438 SPLAT 
16 1621.62 MANGE LES PISSENLITS PAR LA RACINE. 
PARACHUTE OUVERT JE VAIS VOUS DONNER UNE AUTRE CHANCE. 
STUPEFIANTI1I PAS MAL POUR VOTRE 1FR SAUT REUSSIIII DESIREZ VOUS REJOUER? N 
DESIREZ VOUS REJOUER? Y S'IL VOUS PLAIT? N 
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164 
165 


210 
211 
215 
217 
218 
219 
300 
310 
320 
330 
340 
350 
360 
400 
405 
410 
420 
430 
440 
500 
510 
550 
555 
560 
570 
580 
600 
610 
620 
630 
635 
636 
637 
638 
639 
650 
660 
670 
680 
690 
695 
700 
701 
702 
703 
710 
711 
712 
720 
721 
730 
731 
740 
741 


PRINT TAB(33);"SPLAT" 

PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"* 
PRINT:PRINT:PRINT 

DIM A(42) 


PRINT "BIENVENU À 'SPLAT' -- LE JEU SIMULE UN SAUT EN PARACHUTE" 


PRINT "ESSAYEZ D'OUVRIR VOTRE PEPIN AU TOUT DERNIER MOMEMT SANS CEPENDANT" 


PRINT "VOUS APLATIR ET FAIRE ‘SPLAT'." 
PRINT:PRINT:D1=0:V=0:A=0:N=0:M=0:D1=INT(9001*RND(1)+1000) 

PRINT" VOUS CHOISISSEZ VOTRE PROPRE VITESSE LIMITE (Y OU N)"::INPUT A1$ 
IF Al$="N" GOTO 128 

IF Al$<>"Y" THEN PRINT “Y OU N";:INPUT A1$:GOTO 120 

PRINT "QUELLE VITESSE LIMITE (MI/HR)";:INPUT VI] 
V1=Vv1#*(5280/3600):V=V1+((V1*RND(1))/20)-((V1*RND(1))/20):GOTO 135 
V1=INT(1000*RND(1)) 

PRINT "OK. VITESSE LIMITE ="V1"MI/HR" 
V1=v1*(5280/3600):V=V1+((V1*RND(1))/20)-((V1*RND(1))/20) 


PRINT "DESIREZ VOUS CHOISIR L'ACCELERATION DUE À LA PESANTEUR (Y OU N)"; 


INPUT B1S 

IF B1$="N" THEN 150 

IF B1$<>"Y" THEN PRINT "Y OU N“;:INPUT B1$:GOTO 140 

PRINT "QUELLE ACCELERATION (PIEDS/SEC/SEC)";:INPUT A2 
A=A2+((A2*RND(1))/20)-((A2*RND(1))/20):GOTO 205 

ON INT(1+(10#*RND(1))) GOTO 151,152,153,154,155,156,157,158,159,160 
PRINT"OK. 
PRINT"TB. VOUS ETES SUR VENUS. ACCELERATION=28.3 PIEDS/SEC/SEC":GOTO 162 
PRINT"VOUS ETES SUR TERRE. ACCELERATION=32.16 PIEDS/SEC/SEC":GOTO 163 
PRINT"VOUS VOICI SUR LA LUNE. ACCELERATION=5.15 PIEDS/SEC/SEC":GOTO 164 
PRINT"OK. VOUS ETES SUR MARS. ACCELERATION=]12.5 PIEDS/SEC/SEC":GOTO 165 
PRINT"VOUS VOILA SUR JUPITER. ACCELERATION=85.2 PIEDS/SEC/SEC":GOTO 166 





PRINT"VOUS VOICI SUR NEPTUNE. ACCELERATION=39.6 PIEDS/SEC/SEC":GOTO 169 


VOUS ETES SUR MERCURE. ACCELERATION=12.2 PIEDS/SEC/SEC":GOTO 161 


K. VOUS ETES SUR SATURNE. ACCELERATION=37.6 PIEDS/SEC/SEC":GOTO 167 
K. VOUS ETES SUR URANUS. ACCELERATION=33.8 PIEDS/SEC/SEC":GOTO 168 


PRINT"OK. VOUS ETES SUR LE SOLEIL. ACCELERATION=896 PIEDS/SEC/SEC":GOTO 170 


A2=12.2:GOTO 145 
A2=28.3:GOTO 145 
A2=32.16:GOTO 145 
.15:GOTO 145 
2.5:GOTO 145 
5.2:GOTO 145 

A2=37.6:GOTO 145 
A2=33.8 :GOTO 145 
A2=39.6:GOTO 145 
A2=896:GOTO 145 





PRINT 

PRINT * ALTITUDE ="D1"PIEDS" 

PRINT " VIT. LIMITE ="V]"PIEDS/SEC +-58" 
PRINT “ ACCELERATION ="A2"PIEDS/SEC/SEC +-58" 
PRINT "REGLEZ LE CHRONO POUR VOTRE CHUTE LIBRE." 
PRINT "COMBIEN DE SECONDES"; :INPUT T 

PRINT "ON Y VA." 

PRINT 

PRINT "TEMPS (SEC)","DIST RESTANTE (PIEDS)" 

PRINT * s=z=="," 222.222" 





FOR 1=0 TO T STEP (T/8) 

IF 1>V/A GOTO 400 
D=D1-((A/2)*1"2) 

IF D<=0 GOTO 1000 

PRINT 1,D 

NEXT I 

GOTO 500 

PRINT "VITESSE LIMITE ATTEINTE À T PLUS"V/A"SECONDS" 
FOR 1=1 TO T STEP (T/8) 
D=D1-((V*2/(2*A))+(V#*(I1-(V/A)))) 
IF D<=0 GOTO 1010 


PRINT 1,D 
NEXT I 
PRINT "PARACHUTE OUVERT" 


K=0:K1=0 

FOR J=0 TO 42 

IF. A(J)=0 GOTO 620 
K=K+1 

IF D>=A(J) GOTO 600 
K1=Ki+] 

NEXT J 

GOTO 540 

A(J)=D 

IF J>2 THEN 650 





PRINT "STUPEFIANT!III PAS MAL POUR VOTRE “; 
IF J=0 THEN PRINT "lER "; 
IF J=]1 THEN PRINT “2EME "; 
IF J=2 THEN PRINT "3EME "; 


PRINT "SAUT REUSSI!I11":GOTO 2000 

IF K-K1<=.1*K GOTO 700 

IF K-K1<=.25*K GOTO 710 

IF K-K1<=.5*K GOTO 720 

IF K-K1<=.75*K GOTO 730 

IF K-K1<=.9*K GOTO 740 

GOTO 750 

PRINT “WOW! CA C'EST UN SAUT. SUR LES"K"SAUTS REUSSIS" 

PRINT "AVANT LE VOTRE, SEULEMENT"K-K1"ONT OUVERT LEUR PARACHUTE PLUS BAS" 
PRINT "QUE VOUS." 

GOTO 2000 

PRINT "JOLIMENT BIEN! “ K"SAUTS REUSSIS ONT PRECEDE LE VOTRE ET SEULS" 
PRINT K-Kl" SONT ALLES PLUS BAS QUE VOUS AVANT QUE LEURS PARACHUTES NE" 
PRINT "S'OUVRENT." :GOTO 2000 

PRINT "PAS MAL. IL Y A EU"K"SAUTS REUSSIS AVANT LE VOTRE." 

PRINT K-K)]"D'ENTRE EUX ONT FAIT MIEU QUE VOUS.":GOTO 2000 

PRINT "MONERE N'EST CE PAS? VOUS AVEZ LE RANG"K-K]"PARMI LES" 

PRINT K"SAUTS REUSSIS AVANT LE VOTRE.":GOTO 2000 

PRINT “HUMPHI N'ETES VOUS PAS UN PEU SPORTIF? IL Y À EU" 

PRINT K"SAUTS REUSSIS AVANT LE VOTRE ET VOUS N'ETES QU'A"K1"PLACES" 


742 
750 
751 
752 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
1000 
1005 
1010 
1020 
1950 
2000 
2001 
2002 
2003 
2005 
2006 
2007 
2046 
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PRINT "AVANT LE DERNIER. AMELIOREZ LA FORMEI11":GOTO 2000 
PRINT “HEYI VOUS AVEZ TIRE SUR LA POIGNEE D'OUVERTURE BEAUCOUP TROP TOT* 
PRINT K"SAUTS REUSSIS AVANT LE VOTRE FT VOUS N'ETES QU'AU RANG"K-K1"111l" 
GOTO 2000 
PRINT "REQUIESCAT IN PACE.":GOTO 1950 
PRINT "OUE LES ANGES DU CIEL VOUS CONDUISENT AU PARADIS":GOTO 1950 

PRINT "REPOSEZ EN PAIX":GOTO 1950 

PRINT "SON-OF-A-GUN":GOTO 1950 

PRINT "#$S88&$1S":GOTO 1950 

PRINT"UN CP DE PIED 111 EST UNE AIDE SI VS ETES DS LA BONNE VOIE":GOTO 1950 
PRINT “HMMM. AURIEZ DU CHOISIR UN TEMPS PLUS COURT.":GOTO 1950 

PRINT “MURMURE. MURMURE. MURMURE.":GOTO 1950 
PRINT "MANGE LES PISSENLITS PAR LA RACINE.":GOTO 1950 

PRINT "VITE ARRIVE, VITE PARTI.":GOTO 1950 

PRINT SQR(2#*D1/A),"SPLAT" 

ON INT(1+(10#*RND(1)))GOTO 800,801,802,803,804,805,806,807,808,809 

PRINT (V/A)+((D1-(V#2/(2*A)))/V),"SPLAT" 

GOTO 1005 

PRINT "JE VAIS VOUS DONNER UNE AUTRE CHANCE.":GOTO 2000 

PRINT "DESIREZ VOUS REJOUER";:INPUT Z$ 

IF Z$="Y" GOTO 118 

IF Z$="N" GOTO 2005 

PRINT “Y OU N“:GOTO 2000 

PRINT "S'IL VOUS PLAIT";:INPUT ZS$:1F Z$="Y" THEN 118 

IF Z$<>"N" THEN PRINT “Y OU N "::GOTO 2005 

PRINT "SSSSSSSSSS.":GOTO 2046 

END 


Stars (Jeu des étoiles) 





Dans ce jeu, l'ordinateur choisit un 
nombre au hasard compris entre 1 et 100 
(ou toute autre valeur que vous désirez 
dans l'instruction 150). Vous essayez de 
trouver le nombre et l'ordinateur vous 
donne des indications pour vous signaler 
si vous en êtes proche. Une étoile (*) signi- 
fie très loin du nombre; sept étoiles 
(rr#66k+) signifient que vous êtes réelle- 
ment très proche. Vous avez droit à 
7 essais. 

En apparence, ce jeu est très similaire à 
GUESS, cependant la stratégie d'estima- 
tion est totalement différente. Voyez si 
vous pouvez parvenir en une ou plusieurs 
approches à trouver le nombre mysté- 
rieux. 

Bob Albrecht de People's Computer Co 
créa ce jeu. 


STARS 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


VOULEZ VOUS VOIR LES INSTRUCTIONS? Y 

JE PENSE À UN NOMBRE ENTIER COMPRIS ENTRE 1 ET 100 

ESSAYEZ DE TROUVER MON NOMBRE. APRES CHAQUE ESSAI, JE TAPERAI 
UNE OÙ PLUSIEURS ETOILES (*). PLUS IL Y AURA D'ETOILES 

PLUS PROCHE VOUS SEREZ DU NOMBRE. 

UNE ETOILE (*) VEUT DIRE TRES LOIN, SEPT ETOILES (#*#*#**#***) 
VEULENT DIRE TOUT PRES! VOUS AVEZ DROIT À 7 ESSAIS. 


OK, JF PENSE À UN NOMBRE, COMMENCEZ VOS ESSAIS. 


QUE PROPOSEZ VOUS? 50 
+ 


QUE PROPOSEZ VOUS? 75 
“+ 


QUE PROPOSEZ VOUS? 40 
ETE] 


QUE PROPOSEZ VOUS? 25 
ÉÉLELEEEESLLEEE ES SLE SSI LS LLS SSL SSL SSL LES LL LI LIU 


VOUS L'AVEZ TROUVF EN 4 ESSAIS!!! JOUONS ENCORE... 


OK, JE PFNSE À UN NOMBRE, COMMENCEZ VOS ESSAIS. 


QUE PROPOSEZ VOUS? 50 
CET 


QUE PROPOSEZ VOUS? 25 
CETEE 


QUE PROPOSEZ VOUS? 35 
CELLES 


QUE PROPOSEZ VOUS? 30 
CETTE. 


QUE PROPOSEZ VOUS? 28 
PETETE 


QUE PROPOSEZ VOUS? 32 
CELLELL) 


QUE PROPOSEZ VOUS? 31 
RARARRRRR RER ANR RER RAR RAR NN RNA nn nette nent ||] 


VOUS L'AVEZ TROUVE EN 7 ESSAISII!I JOUONS ENCORE... 


x, 


QUE 
. 


QUE 
*. 


QUE 
.. 


QUE 
CELL] 


QUE 


... 


QUE 


ss... 


QUE 


. 





* 


DESO 


JE PENSE A UN NOMRRF, COMMENCEZ VOS ESSAIS. 


PROPOSEZ VOUS? 50 


PROPOSEZ VOUS? 75 


PROPOSEZ VOUS? 25 
* 


PROPOSEZ VOUS? 35 
CE 


PROPOSEZ VOUS? 40 


PROPOSEZ VOUS? 30 
“+. 


PROPOSEZ VOUS? 28 


LE, CELA FAIT 7 ESSAIS, LE NOMBRE FETAIT 32 


OK, JE PENSE À UN NOMBRE, COMMENCEZ VOS ESSAIS. 


QUE PROPOSEZ VOUS? 


10 PRINT TAB(34); "STARS" 
20 PRINT TAB(15):"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT:PRINT:PRINT 


100 
140 
150 
170 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
580 
590 
600 
610 
620 
630 
640 
650 
660 
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REM *** STARS - PEOPLE'S COMPUTER CENTER, MENLO PARK, CA 
REM *** À EST LA LIMITE DU NOMBRE, M EST LE NOMBRE D'ESSAIS 
A=100:M=7 

INPUT “VOULEZ VOUS VOIR LES INSTRUCTIONS";A$ 

1F LEFT$S(A$,1)="N" THEN 280 

REM *#** INSTRUCTIONS SUR LES REGLES DU JEU 

PRINT "JE PENSE À UN NOMBRE ENTIER COMPRIS ENTRE 1 ET":;A 


PRINT “ESSAYEZ DE TROUVER MON NOMBRE. APRES CHAQUE ESSAI, JE TAPERAIl" 


PRINT “UNE OU PLUSIEURS ETOILES (*). PLUS IL Y AURA D'ETOILES" 
PRINT “PLUS PROCHE VOUS SEREZ DU NOMBRE." 


PRINT "UNE ETOILE (*) VEUT DIRE TRES LOIN, SEPT ETOILES (*#*#*#*##*=#)" 


PRINT “VEULENT DIRE TOUT PRES! VOUS AVEZ DROIT A";M;"ESSAIS." 
REM *** L'ORDINATEUR PENSE À UN NOMBRE 

PRINT 

PRINT 

X=INT(A*RND(1)+1) 


PRINT “OK, JE PENSE A UN NOMBRE, COMMENCEZ VOS ESSAIS." 
REM *** ESSAIS COMMENCENT, L'HOMME À DROIT À M ESSAIS 
FOR K=] TO M 

PRINT 

PRINT “QUE PROPOSEZ VOUS"*; 

INPUT G 

IF G=X THEN 600 

D=ABS (G-X) 

1F D>=64 THEN 510 

IF D>=32 THEN 500 

1F D>=16 THEN 490 

IF D>=8 THEN 480 

1F D>=4 THEN 470 

IF D>=2 THEN 460 

PRINT “*"; 

PRINT "*"; 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
NEXT K 
REM *** N'A PAS TROUVE EN M ESSAIS 

PRINT 

PRINT “DESOLE, CELA FAIT";M; "ESSAIS, LE NOMBRE ETAIT";Xx 
GOTO 280 

REM *** NOUS AVONS UN GAGNANT 

FOR N=1 TO 50 

PRINT “*"; 

NEXT N 

PRINT “111"* 

PRINT “VOUS L'AVEZ TROUVE EN":;K;"ESSAISII1 JOUONS ENCORE..." 
GOTO 280 

END 





Stock Market 





(Jeu de la Bourse) 


Ce programme simule la Bourse. On 
vous donnera 10 000 $ pour acheter ou 
vendre des actions. Les valeurs des ac- 
tions seront déterminées au hasard et de 
ce fait ce modèle ne représente pas exac- 
tement ce qui se passe à la Bourse. 

Chaque jour négociable, une table d'ac- 
tions disponibles, leur prix et le nombre de 
titres figurant dans votre portefeuille se- 
ront affichés. Après quoi, les initiales de 
chaque valeur seront affichées, suivies 
d'un point d'interrogation. Vous indiquerez 


ji ï = ACTION INITIALES PRIX/TITRE 
votre transaction en nombre de titres — un nr re Urcs Tree tai 
nombre positif pour acheter, un nombre RED CROSS OF AMERICA RCA 82 
négatif pour vendre, ou 0 si vous ne faites SMEMIERS BANC RUB nes CO IONES | ES Pet 
CENSURED BOOKS STORE CBS 105.25 


pas de transaction. Une commission de 
1 % est prise sur toutes les transactions 
(une affaire !). Notez que si une valeur 


MOYENNE BOURSE DE NEW YORK: 112.25 


A 5 TOTAL CAPITAL À TIONS $ 0 
tombe à zéro, elle peut remonter à nou- TOTAL CAPITAL LIQUIDF $ 10000 
TOTAL DES CAPITAUX $ 10000 


veau — ou bien à nouveau encore elle ne 
peut pas. 


QUELLE EST VOTRE TRANSACTION 


Le programme a été créé par D. Pessel, RCA? +20 
L. Braun et C. Losik du projet Huntington ABC? 0 
CBS? O 


Computer à SUNY, Stony Brook, N.Y. 


STOCK MARKET 


*#*######*#* FIN DE LA JOURNEE DE TRANSACTIONS 


ACTIONS PRIX/TITRE DETENUES VALEUR 
1BM 91.5 10 915 
RCA 78 20 1560 
LRJ 150 10 1500 
ABC 129.75 [e) [e) 

CBS 101.5 Le) (o) 


MOYENNE BOURSE DE NEW YORK: 110.15 MODIF NETTE: 
TOTAL CAPITAL ACTIONS $ 3975 

TOTAL CAPITAL LIQUIDE $ 5821.12 

TOTAL DES CAPITAUX $ 9796.12 


DESIREZ VOUS CONTINUER (OUI-TAPER 1, NON-TAPER O0)? 1 


QUELLE EST VOTRE TRANSACTION 
1BM? -10 

RCA? -5 

LBJ? -10 

ABC? O 

CBS? 0 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
*#*####“###* FIN DE LA JOURNEE DE TRANSACTIONS 


VOULEZ VOUS LES REGLES DU JEU (OUI-TAPEZ 1, NON-TAPEZ 0)? 1 


ACTIONS PRIX/TITRE DETENUES VALEUR 
IBM 90.75 0 Q 
CE PROGRAMME SIMULE LA BOURSE. ON VOUS DONNERA 10,000$ POUR RCA 73.25 15 1098.75 
ACHETER OÙ VENDRE DES ACTIONS. LES VALEURS DES ACTIONS SERA LBJ 145 0 0 
DETERMINEE AU HASARD ET DE CE FAIT CE MODELE NE REPRESENTE PAS ABC 129.25 0 0 
EXACTEMENT CE QUI SE PASSE À LA BOURSE. UNE TABLE DES ACTIONS CBS 95.5 0 0 


DISPONIBLES, LEUR PRIX ET LE NOMBRE DE TITRES FIGURANT 

DANS VOTRE PORTEFEUILLE SERA AFFICHEE. APRES QUOI, LES 1NITIALES 
DE CHAQUE VALEUR SERONT AFFICHEES AVEC UN PT D'INTERROGATION. 

VS INDIQUEZALORS VOTRE. POUR ACHETER DES ACTIONS TAPEZ +4NNN, 
POUREN VENDRE -NNN, OU NNN EST LE NOMBRE DE TITRES. 


MOYENNE BOURSE DE NEW YORK: 106.75 MODIF NETTE: 


UNE COMMISSION DE 1% SERA PRISE SUR TOUTES LES TRANSACTIONS. TOTAL CAPITAL ACTIONS $ 1098.75 
NOTEZ QUE SI UNE VALEUR TOMBE À ZERO, ELLE PEUT REMONTER TOTAL CAPITAL LIQUIDE $ 8598.07 
DE NOUVEAU À UNE VALEUR POSITIVE. VOUS AVEZ 10,000$ TOTAL DES CAPITAUX $ 9696.82 


À INVESTIR. UTILISEZ DES NBRES ENTIERS POUR TOUTES LES ENTREES. 

(NOTE: POUR COMMENCER À ‘SENTIR' LE MARCHE IL FAUT 10 JOURS DESIREZ VOUS CONTINUER (OUI-TAPER 1, NON-TAPER O0)? uv 
D,EXPERIENCE BU MOINS) J'ESPERE QUE VOUS VOUS ETES AMUSEI ! 

Etre BONNE CHANCEI----- Ok 


146 


-2.1 


-3.4 


VAR. NETTE DE PRIX 
-4 
-4 
-4.25 
5.5 


-3.75 


VAR. NETTE DE PRIX 


10 PRINT TAB(30);:"STOCK MARKET" 411 IF X9=0 THEN 416 





20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 412 PRINT "DESIREZ VOUS CONTINUER (OUI-TAPER 1, NON-TAPER O0)"; 
30 PRINT: PRINT: PRINT 413 INPUT Q9 

100 REM SIMULATION DE LA BOURSE -STOCK- 414 IF Q9<] THEN 998 

101 REM REVISE 18/8/70 (D. PESSEL, L. BRAUN, C. LOSIK) 416 REM ENTREE TRANSACTIONS 

102 REM VRBLS IMP: A-TRND DU MARCHE; B5-COMMISSION/OPER; C-TTL LIQUIDE: 420 PRINT "QUELLE EST VOTRE TRANSACTION" 

103 REM C5-TTL LIQUIDE(TEMP); C(1)-CHNG DS VAL ACT; D-DISPO TOTALE; 430 PRINT "IBM": 

104 REM El,E2-GRD CHT DIV; I-ACTION #; 11,12-ACTIONS SI GRD CHT: 440 INPUT Z(1) ‘ 

105 REM N1,N2-NB JOURS PR GRD CHT; P5-TTL ACHATS JOUR; P(1)-CONTEN PRTFL; 450 PRINT "RCA"; 

106 REM Q9-NOUV CYCL?; S4-SGN DE A; S5-TTL DYS SLS; S(I)-VAL/ACTION; 460 INPUT Z(2) 

107 REM T-TTL ACT POSSED; T5-TTL VAL DES TRNSCTNS; 470 PRINT “LBJ"; 

108 REM W3-GRD CHANG; X1-PET.CHANG(<1$); Z4,25,2Z6-MOY.BOURSE NY.; Z(I)-TRNSCT 480 INPUT Z(3) 

110 DIM S(5),P(5),2(5),C(5) 490 PRINT "ABC"; 

112 REM VALEUR DE LA TENDANCE DU MARCHE:A (LA MEME POUR TTES LES ACTIONS) 500 INPUT Z(4) 

113 LET X=1 510 PRINT "CBS"; 

114 LET A=INT((RND(X)/10)*100+.5)/100 520 INPUT Z(5) 

115 LET T5=0 525 PRINT 

116 LET X9=0 530 REM TOTAL ACHATS DU JOUR EN $:P5 

117 LET N1=0 540 LET P5=0 

118 LET N2=0 550 REM TOTAL VENTES DU JOUR EN $:S5 

119 LET El=0 560 LET S5=0 

120 LET E2=0 570 FOR I=1 TO 5 

121 REM INTRODUCTION 575 LET Z(I)=INT(Z(1)+.5) 

122 PRINT “VOULEZ VOUS LES REGLES DU JEU (OUI-TAPEZ 1, NON-TAPEZ O0)"; 580 1F Z(1)<=0 THEN 610 

123 INPUT 29 590 LET P5=P5+Z(1)*S(1) 

124 PRINT 600 GOTO 620 

125 PRINT 610 LET S5=S5-Z(1)*S(1) 

126 IF Z9<1 THEN 200 612 IF -Z(1)<=P(I) THEN 620 

130 PRINT “CE PROGRAMME SIMULE LA BOURSE. ON VOUS DONNERA 10,000$ POUR" 614 PRINT "VOUS AVEZ VENDU PLUS DE TITRES QUE VS N'EN AVIEZ; RECOMMENCEZ." 
132 PRINT "ACHETER OU VENDRE DES ACTIONS. LES VALEURS DES ACTIONS SERA" 616 GOTO 420 

134 PRINT “DETERMINEE AU HASARD ET DE CE FAIT CE MODELE NE REPRESENTE PAS" 620 NEXT 1 

135 PRINT "EXACTEMENT CE QUI SE PASSE À LA BOURSE. UNE TABLE DES ACTIONS" 622 REM VALEUR TOTALE DES  TRANSACTIONS:T5 

136 PRINT "DISPONIBLES, LEUR PRIX ET LE NOMBRE DE TITRES FIGURANT" 625 LET TS=P54+S5 

137 PRINT "DANS VOTRE PORTEFEUILLE SERA AFFICHEE. APRES QUOI, LES INITIALES" 630 REM COMMISSION:R5 

138 PRINT "DE CHAQUE VALEUR SERONT AFFICHEES AVEC UN PT D'INTERROGATION." 640 LET B5=INT(.01*T5#*1004+.5)/100 

139 PRINT "VS INDIQUEZALORS VOTRE. POUR ACHETER DES ACTIONS TAPEZ +NNN," 650 REM LIQUIDF=LIQUINE ANTERIEUR-TOTAL ACHATS 

140 PRINT “POUREN VENDRE -NNN, OU NNN EST LE NOMBRE DE TITRES." 652 REM -COMMISSIONS+#TOTAL VENTES:C5 

141 PRINT "UNE COMMISSION DE 1% SERA PRISE SUR TOUTES LES TRANSACTIONS." 654 LET C5=C-P5-B54S5 

142 PRINT "NOTEZ QUE SI UNE VALEUR TOMBE À ZERO, ELLE PEUT REMONTER" 656 IF C5>=0 THEN 674 

143 PRINT "DE NOUVEAU À UNE VALEUR POSITIVE. VOUS AVEZ 10,000$" 658 PRINT "VOUS AVEZ UTILISE";-C5;"$ AU DELA DE CE QUE VOUS AVIEZ." 
144 PRINT “A INVESTIR. UTILISEZ DES NBRES ENTIERS POUR TOUTES LES ENTREES." 660 GOTO 420 

145 PRINT "(NOTE: POUR COMMENCER À ‘SENTIR' LE MARCHE IL FAUT 10 JOURS" 674 LET C=C5 

146 PRINT "D,EXPERIENCE AU MOINS)" 675 REM CALCUL NOUVEAU PORTEFEUILLE 

147 PRINT "----- BONNE CHANCE I ----- à 680 OR I=1 TO 5 

200 REM GENERATION DE LA TABLE DES ACTIONS; DEMANDES D'ENTREES 690 LET P(1)=P(1)+2Z(1) 

210 RFM VALEUR INITIALE ACTIONS 700 NEXT I 

220 LET S(1)=100 710 REM CALCUL NOUVELLE VALEUR DES ACTIONS 

230 LET S(2)=85 720 GOSUR 830 

240 LET S(3)=150 750 REM AFFICHER PORTEFEUILLE 

250 LET S(4)=140 751 REM SONNERIE-VARIE SUIVANT MODELE ORDINATEUR 

260 LET S(5)=110 752 FOR I=l TO 20 

265 REM INITIALISATION TB - # JOURS POUR LE PREMIER TREND (A) 753 PRINT CHRS (135); 

266 LEFT TB=INT(4.99*RND(X)+1) 754 NEXT I 

267 REM TIRAGE AU HASARD SIGNE PREMIFR TREND (A) 755 PRINT 

268 IF RND(X)>.5 THEN 270 756 PRINT “#######*##** FIN DE LA JOURNEE DE TRANSACTIONS" 
269 LET A=-A 757 PRINT 

270 REM TIRAGF AU HASARD VALEURS INITIALES 758 PRINT 

280 GOSUB 830 759 1F X9<] THEN 769 

285 REM CONTENU INITIAL PORTEFEUILLE 769 PRINT "ACTIONS", "PRIX/TITRE","DETENUES", "VALEUR" ,"VAR. NETTE DE PRIX" 
290 FOR I=1 TO 5 770 PRINT “IRM", S(1), P(1), S(1)*P(1), C(i) 

300 LET P(1)=0 771 PRINT "RCA", S(2), P(2), S(2)*P(2), C(2) 

305 LET Z(1)=0 772 PRINT "LBJ", S(3), P(3), S(3)*P(3), C(3) 

310 NEXT 1 773 PRINT "ABC", S(4), P(4), S(4)*P(4), C(4) 

320 PRINT 774 PRINT "CBS", S(5), P(5), S(5)*P(5), C(5) 

330 PRINT 775 LET X9=] 

333 REM INITIALISATION CAPITAL LIQUIDE:C 780 PRINT 

335 LET C=10000 790 PRINT 

338 REM AFFICHER PORTEFEUILLE INITIAL 810 GOTO 360 

340 PRINT "ACTION"," ", "INITIALES", "PRIX/TITRE" 829 REM S/PROGRAMME - NOUVELLES VALEURS DES ACTIONS 

350 PRINT "INT. BALLISTIC MISSILES"," IBM",S(1) 830 RFM GENFRATION AU HASARD DES NOUVELLES VALEURS D'APRES VALEURS 
352 PRINT "RED CROSS OF AMERICA"," RCA",S(2) 831 REM DES JOURS PRECENENTS 

354 PRINT "LICHTENSTEIN, BUMRAP & JOKE"," LBJ",S(3) 832 REM N1,N2 SONT DES NBRES DE JOURS TIRES AU HASARD ET QUI DETERMINENT 
356 PRINT "AMERICAN BANKRUPT CO."," ABC",S(4) R33 REM RESPECTIVEMENT LE MOMENT OU L'ACTION I1 AUGMENTERA DE 10 PTS. ET CELUI 
358 PRINT "CENSURED BOOKS STORE"," CBS",S(5) B34 REM OU L'ACTION 12 BAISSERA DE 10 PTS. 

360 PRINT 840 REM SI N1 JOURS ECOULES, CHOISIR 11, FIXER El, DETERMINER NOUVEL Ni 
361 REM MOYENNE BOURSE NY:Z5; VAL.TEMP.:2Z4; MODIF NETTE:2Z6 841 IF Ni>0 THEN 850 

363 LET Z4=25 R45 LET I1=INT(4.99*RND(X)+1) 

364 LET 2Z5=0 R46 LFT N1=INT(4.99*RND(X)+1) 

365 LET T=0 847 LET Fl=] 

370 FOR I=1 TO 5 850 REM SI N2 JOURS ECOULES, CHOISIR 12, FIXER E2, DETERMINER NOUVEL N2 
375 LET 25=25+S(1) 851 IF N2>0 THEN 860 

380 LET T=T+S(1)*P(1) 855 LET 12=INT(4.99#*RND(X)+1) 

390 NEXT I 856 LET N2=INT(4.99*RND(X)+1) 

391 LET Z5=INT(100*(2Z5/5)+.5)/100 857 LET FE2=] 

392 LET Z6=INT((25-Z4)*100+.5)/100 860 REM OTER 1 JOUR DE N1 FT N2 

393 RFM TOTAL CAPITAUX :D 861 LET N1=N)-i 

394 LET D=T+C 862 LET N2=N2-] 

395 IF X9>0 THEN 398 890 REM ROUCLE POUR TOUTES LES ACTIONS 

396 PRINT “MOYENNE BOURSE DE NEW YORK: "25 900 FOR I=1 TO 5 

397 GOTO 399 910 LET X1=RND(X) 

398 PRINT “MOYENNE BOURSE DE NEW YORK: “Z5" MODIF NETTE: "Z6 915 IF X1>.25 THEN 920 

399 PRINT 916 LET X1=.25 

400 LET T=INT(100*T+.5)/100 917 GOTO 935 

401 PRINT "TOTAL CAPITAL ACTIONS S":T 920 IF Xi1>.5 THEN 925 

403 LET C=INT(100*C+.5)/100 921 LET X1=.5 

405 PRINT "TOTAL CAPITAL LIQUIDE $":c 922 GOTO 935 

407 LET D=INT(100*D+.5)/100 925 IF X1> 75 THEN 930 

408 PRINT "TOTAL DES CAPITAUX $":D 926 LET Xi=.75 

410 PRINT 927 GOTO 935 
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930 LET X1=01! 965 LET S(1)=0 


Q31 REM CTF DE GRAND CHANGEMENT:W3 (FIXEE À ZERO AU DEBUT) 966 GOTO 970 

935 LET W3=0 967 LET S(I1)=INT(100*S(1)+.5)/100 

936 IF El<l THEN 945 970 NEXT I 

937 IF INT(I1+.5)<>INT(1+.5) THEN 945 972 REM APRES T8 JOURS CHANGEMENT AU HASARD VALEUR DU TREND ET DE SON SIGNE 
938 REM AJOUTER 10 PTS. À CETTE ACTION; REINITIALISER El 973 LET TO=T8-] 

939 LET W3=10 974 IF T8<1 THEN 985 

943 LET Ei=0 980 RETURN 

945 IF E2<1 THEN 955 985 REM CHANGEMENT AU HASARD DU TREND ET DE SON SIGNEE (A), AINSI QUE 
947 IF INT(I2+.5)<>INT(I+.5) THEN 955 986 REM DUREE DU TREND (T8) 

948 REM OTER 10 PTS. À CETTE ACTION; REINITIALISER E2 990 LET TB=INT(4.99#*RND(X)+1) 

949 LET W3=W3-10 992 LEFT A=INT((RND(X)/10)#*100+.5)/100 

953 LET FE2=0 993 LET S4=RND(X) 

954 REM C(I) EST LA VARIATION DE LA VALEUR DE L'ACTION 994 IF S4<=.5 THEN 997 

955 LET C(I)=INT(A*S(1))+X1+INT(3-6*RND(X)+.5)+W3 995 LET A=-A 

956 LET C(I)=INT(100*C(1)+.5)/100 997 RETURN 

957 LET S(1)=S(1)+C(1) 998 PRINT “J'ESPERE QUE VOUS VOUS ETES AMUSEI 1" 

960 1F S(I1)>0 THEN 967 999 END 


964 LET C(I)=0 
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Super Star Trek 





Historique 





De nombreuses versions de Star Trek ont traîné dans 
différents campus universitaires depuis la fin des années 60. 
Je me rappelle avoir joué avec l'une d'entre elles à 
l'Université de Carnegie-Mellon en 1967 ou 68, et avec une 
autre très différente à Berkeley. Cependant, elles étaient 
assez éloignées de celle écrite par Mike Mayfield de 
Centerline Engineering etou Custom Data. Cette dernière 
fut écrite pour un HP2000C et complétée en octobre 1972. 
Elle devint le Star Trek Standard en février 1973 lorsqu'elle fut 
mise à contribution pour la bibliothèque de programmes de 
HP et sur un certain nombre de machines HP de Data Center. 

Pendant l'été 1973, j'ai converti la version HP en BASIC- 
PLUS pour le compilateur RSTS-11 de DEC et tant que j'y 
étais j'ai ajouté un peu de bits et d'éléments supplémentaires. 
Mary Cole de DEC a contribué considérablement à ce travail. 
Plus tard je l'ai publié sous le nom SPACWR (Space War 
rétrospectivement était une dénomination incorrecte) dans 
mon livre 701 Basic Computer Games. Il est difficile 
aujourd'hui de trouver une installation informatique interactive 
qui n'ait pas une de ces versions de Star Trek disponible. 


Nomenclature du quadrant 





Récemment, certains critiques ont contesté l'origine de la 
nomenclature du quadrant utilisée dans toutes les cartes GC 
(Galactique Cartésienne). Naturellement, pour tous ceux qui 
ont des connaissances historiques approfondies, une explica- 
tion n'est pas nécessaire; toutefois, le synopsis suivant 
devrait suffire pour les critiques. 

Comme chaque écolier le sait, la plupart des civilisations de 
la Voie Lactée ont donné naissance aux désignations 
galactiques de leur propre choix bien avant la Troisième 
Conférence Magellanique à laquelle l'ainsi nommée 
« 26 Convention » fut atteinte. Dans ce document historique, 
les cultures participantes furent d'accord, dans toutes les 
représentations bi-dimensionnelles de la galaxie, pour spéci- 
fier 64 subdivisions principales, selon une matrice 8 x 8. Ceci 
diffère partiellement de la culture Terrienne (laquelle a 
participé énormément à l'organisation initiale de la Fédé- 
ration) dont les cartes galaxiques vieilles d'un siècle ont 
toujours montré 16 régions principales nommées d'après les 
limites du ciel de la Terre. Chacune de ces régions était 
divisée en quatre « quadrants » désignés par les anciens 
« Chiffres Romains » (dont l'origine a été perdue). 

Jusqu'à ce-jour, les journaux officiels de navigatiun spatiale 
des bases proches de la Terre se réfèrent toujours aux 
espaces galactiques principaux comme les quadrants. 

La relation entre les nomenclatures Historique et Standard 
est montrée dans la carte simplifiée GC. 





@ Désigne la marque de fabrique de Paramount Pictures Corporation. Utilisé 
avec la permission de P.P.C. 
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SAGITTAIRE 
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SIRIUS 
Il Il 


DENEB 
Il Il 
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Il Il 


BETELGEUSE 


Il ill 


ALDEBARAN 
Il Il 
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Il Il 


ARCTURUS 
Il il 


EPI 
Il il 
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Super Star Trek - 


Par Robert Leedom et David Ahl 


Règles et remarques 





1. OBJECTIF : Vous êtes le capitaine du vaisseau spatial 
« Enterprise » et vous avez la mission de poursuivre et de 
détruire une flotte de vaisseaux de guerre (ordinairement 
autour de 17) Klingon lesquels menacent la Fédération 
Unie des Planètes. Vous avez un nombre spécifié de 
Stardates afin de compléter votre mission. Vous avez aussi 
deux ou trois Starbases Fédérales pour réapprovisionner 
votre vaisseau. 


2. On vous fixera un point de départ quelque part dans la 
galaxie. La galaxie est divisée en un quadrillage de quadrants 
8 x 8. Le nom astronomique d'un quadrant intervient sur 
l'entrée dans une nouvelle région. Chaque quadrant est divisé 
ensuite en une grille de 8 x 8 secteurs. 


3. Sur un diagramme, les symboles suivants sont utilisés : 


<*> Position de votre vaisseau stellaire 
(Enterprise) 
>! < Starbase Fédérale 
* Etoile 
+ K + Klingon 


4. Vous disposez de 8 commandes (une description détaillée 
de chaque commande est donnée dans les instructions du 
programme). 


NAV Pilote le vaisseau en contrôlant la route et la 
vitesse du moteur WARP 

SRS Exploration par détecteurs à faible portée 
(un quadrant) 

LRS Exploration par détecteurs à longue portée 
(9 quadrants) 

PHA Contrôle des Phasers (énergie des armes) 

TOR Contrôle des Torpilles photoniques 

SHE Contrôle du champ (protection contre le feu 
des phasers) 

DAM Contrôle des dommages et des comptes 
rendus d'avaries 

COM Bibliothèques ordinateur 


5. Les options de la bibliothèque sont les suivantes (des 
descriptions plus complètes se trouvent dans les instructions 
du programme) : 


Enregistrement galactique cumulé 
Rapport de situation 

Données pour torpilles photoniques 
Données de navigation vers les Starbases 
Calculs de direction/distance 

Carte renseignée de la galaxie 


O B © D = O 


6. Certains rapports de situation de vaisseau sont faits par les 
officiers d' « Enterprise » qui apparaissent sur le show TV 
original — Spock”, Scott”, Uhura*, Chekov", etc. 


7. Les Klingons ne sont pas résidents à l'intérieur de leurs 
quadrants. Si vous tentez de manœuvrer contre eux, ils se 
déplaceront et feront feu sur vous. 


8. Rapports d’avaries et de mise à feu : 


A. Le tir des phasers diminue avec la distance croissante 
entre combattants. 

B. Si un Klingon vous « descend » assez violemment 
(relativement à votre capacité de résistance) il provo- 
quera généralement des dégâts sur une partie de votre 
vaisseau avec un rapport résultant et approprié de 
« Contrôle d'avaries ». 
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C. Si vous ne descendez pas un Klingon assez violem- 
ment vous ne lui ferez subir aucun dommage. 

D. Le contrôle des avaries vous permet de savoir quand 
les appareils d'armement ont été complètement 
réparés. 


9. Vos moteurs seront automatiquement coupés si vous 
tentez de quitter la galaxie, ou si vous essayez de manœuvrer 
à travers une étoile, un Starbase, ou — Dieu vous protège — 
un vaisseau de guerre Klingon. 


10. Au besoin, ou si vous calculez mal et faiblement, 
l'énergie de contrôle de protection sera automatiquement 
détournée du contrôle du moteur Warp (si vos protections 
sont opérationnelles !). 


11. Tant que vous êtes entré au bassin d'un Starbase, une 
équipe de techniciens peut réparer votre vaisseau (si vous 
souhaitez d'eux de connaître l'estimation du temps néces- 
saire — les réparateurs sous-estiment toujours...). 


12. Si, afin de sauver le temps de manœuvre près de la fin de 
la partie vous devez de sang-froid détruire un Starbase, vous 
recevrez une note désagréable du Haut commandement. Si 
vous détruisez votre dernier Starbase, vous perdez le jeu 
(pour ceux qui pensent qu'une pénalité est trop sévère, ôter 
les lignes 5360-5390 et vous recevrez simplement un 
message tapé sur tous les futurs rapports de situations du 
style « vous êtes un imbécile »). 


13. La fin logique du jeu a été « nettoyée » en plusieurs 
endroits et il est possible d'obtenir un nouveau commande- 
ment après avoir rempli avec succès votre mission (ou, après 
avoir donné votre démission pour l’ancienne). 


14. Pour ceux d’entre vous qui ont certains types d'écrans/ 
claviers (par ex. Westinghouse 1600), un caractère « son- 
nerie » (bell) est inséré aux endroits appropriés pour provo- 
quer les items suivants de flash sur l'écran : 


+ La Phase « * ROUGE * » (Condition rouge). 
e Le caractère représentant votre quadrant actuel dans 
l'enregistrement galactique cumulatif. 


15. Cette version de Star Trek a été créée par un système 
NOVA 800 de Data Général avec 32K. Aussi il serait bon que 
les instructions soient séparées du programme principal par 
un CHAIN. Pour la conversion en BASIC-PLUS DEC, 
l'instruction 160 (Randomize) doit être placée après le 
« Return » des instructions chaînées, voir instruction 245. 
Pour Altair BASIC, Randomize et les instructions de chaînage 
doivent être éliminées. 


* Désigne la marque de fabrique de Paramount Pictures Co. Utilisé avec la 
permission de P.P.C. 


























































ieti i 1120 PRINT" CALCULS DE DIRECTION/DISTANCE" 

Listing du programme 5 Instructions 1130 PRINT" OPTION 5 = CARTE RENSEIGNEE DE LA GALAXIE" 
1140 PRINT" AFFICHE LES NOMS DES SEIZE PRINCIPALES REGIONS DE LA" 
1150 PRINT" GALAXIE MENTIONNEES DANS LE JEU." 

10 REM INSTRUCTIONS POUR "SUPER STARTREK" MAR 5, 1978 2000 PRINT: PRINT: PRINT 

20 FOR I=l TO 12:PRINT:NEXT I 2010 PRINT “...CHAINAGE VERS STARTREK..." 

21 PRINT TAB(10);"#mmmmmmemmenmeneenennmnneneaneantamn 2020 LOAD “STARTREK.BAS",R 

22 PRINT TAB(10);"* . 9999 END 

23 PRINT TAB(10);"* Le 

30 PRINT TAB(10);"* * * SUPER STAR TREK * * un 

31 PRINT TAB(10);"* e" 

32 PRINT TAB(10);"* Li te - 

35 PRINT TAB(10); "#*RAR AREA RAR ARR RER RAR RÉ ER RNA Re 

16 FOR I=1 TO 8:PRINT:NEXT I Listing du programme = Le Jeu 

40 INPUT "VOULEZ VOUS LES INSTRUCTIONS (Y/N)":K$:1F K$="N" THEN 2000 

44 PRINT 

50 PRINT "NOTE: VOUS AVEZ BESOIN DE 40K SOUS CP/M POUR EXECUTER STARTREK." 10 REM ++ 

55 PRINT “ CE QUI VEUT DIRE QUE LE BASIC DOIT DISPOSER DE 18K DE MEMOIRE." 220 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 

60 PRINT:PRINT 221 PRINT" $ 

90 PRINT" INSTRUCTIONS POUR "SUPER STAR TREK'" 222 PRINT" , 

100 PRINT 223 PRINT" 

110 PRINT"1. À L'AFFICHAGE DE /COMMAND ?/, ENTREZ L'UNE DES COMMANDES VALIDES:" 224 PRINT" 

120 PRINT" -- NAV, SRS, LRS, PHA, TOR, SHE, DAM, COM, OU XXX --." 225 PRINT" 

130 PRINT"2. SI VOUS TAPEZ UNE COMMANDE NON VALIDE, UNE LISTE ABREGEE DES" 226 PRINT" L'USS ENTERPRISE --- NCC-]170)1" 

140 PRINT" COMMANDES AUTORISEES SERA AFFICHEE." 227 PRINT:PRINT:PRINT:PRINT:PRINT 

150 PRINT"3. CERTAINES COMMANDES EXIGENT L'ENTREE DE PARAMETRES (AINSI, LA" 260 CLEAR 600 

160 PRINT" COMMANDE ‘NAV' DEMANDE ‘ROUTE (1-9) ?'.) SI VOUS TAPEZ DES" 270 Z$S=" * 

170 PRINT" PARAMETRES NON VALABLES (COMME DES NBRES NEGATIFS), LA COMMANDE" 330 DIM G(8,R),C(9,2),K(3,3),N(3),2(8,8),D(&) 

180 PRINT SERA ANNULEE" 370 T=INT(RNN(1)#20420)*100:TO=T:T9=25#INT(RND(1)#10):D0=0:E=3000:E0=E 

190 PRINT 440 P=10:P0=P:S0=200:S=0:B9=0:K9=0:XS="":XO0$=" 1S " 

270 PRINT" LA GALAXIF EST DIVISEE EN UN CARROYAGE DE 8 X 8 QUADRANTS, " 470 DEF FND(D)=SOR((K(1,1)-S1)*2+(K(1,2)-52)*2) 

280 PRINT"ET CHAQUE QUADRANT DIVISE ENSUITE EN UNE GRILLE DE 8 X 8 SECTEURS." 475 DEF FNR(R)=INT(RNN(R)#*7.98+]1.01) 

290 PRINT 490 Qi=FNR(1):Q2=FNR(1):S1=FNR(1):S2=FNR(1) 

300 PRINT" ON VOUS FIXERA UN POINT DE DEPART QUELQUE PART DS LA GALAXIE," 530 FORI=1TO9:C(1,1)=0:C(1,2)=0:NEXTI 

310 PRINT"'POUR COMMENCER UN TOUR D'OPERATIONS COMME COMMANDANT DU VAISSEAU" 540 C(3,1)=-1:C(2,1)=-1:C(4,1)=-1:C(4,2)=-1:C(5,2)=-1:C(6,2)=-1 

320 PRINT"/ENTERPRISE/; VOTRE MISSION: REPERER ET DETRUIRE LA FLOTTE DE" 600 C(1,2)=1:C(2,2)=1:C(6,1)=1:C(7,1)=1:C(8,1)=1:C(R,2)=1:C(9,2)=1 

330 PRINT"VAISSEAUX DE GUERRE DE KLINGON QUI MENACENT LA FEDERATION DES" 670 FORI=1TOB:D(I1)=0:NEXTI 

340 PRINT"PLANETES UNIES." 710 A1$="NAVSRSLRSPHATORSHEDAMCOMXXX" 

360 PRINT 820 FORI=1TORB:FORJ=]TOB:K3=0:Z(1,J)=0:R1=RND(1) 

370 PRINT" EN TANT QUE COMMANDANT DU VAISSEAU STELLAIRE ENTERPRISE VOUS" 850 IFR1>.9RTHENK3=3:K9=K94 3: GOTO98O 

380 PRINT"DISPOSEZ DES COMMANDES SUIVANTES: " 860 IFR1>.9STHENK3=? : K9=K94 2 : GOTOIRO 

385 PRINT 870 IFR1>.RTHENK3=] :K9=K941] 

390 PRINT"/NAV/ = CONTROLE DES MOTEURS WARP --" 980 B3=0:IFRND(1)>.96THFNR3=] : B9=R94] 

400 PRINT" LA ROUTE NUMERIQUE CORRESPOND AU 4 3 2" 1040 G(1,J)=K3*100+B3*104FNR(1):NEXTJ:NEXTI : IFK9>TOTHENTO=K94 ] 

410 PRINT" DIAGRAMME CI-CONTRE ss 1100 IFB9<>OTHEN] 200 

420 PRINT" DES VALEURS ENTIERES ET REELLES SONT ts 1150 1FG(01,02)<200THENG(01,02)=G(Q01,Q2)+100:K9=K941 

430 PRINT" POSSIBLES. (AINSI LA ROUTE 1.5 5 ---*-— 1" 1160 R9=1:G(Q1,02)=G(Q1,02)+10:Q1=FNR(1):02=FNR(1) 

440 PRINT" EST À MI-CHEMIN DES ROUTES 1 ET 2 see" 1200 K7=K9:1FB9<>1THENXS="S":X0$=" y À 

450 PRINT" ere 1230 PRINT"VOICI VOS ORDRES: 

460 PRINT" LE VALEURS PEUVENT APPROCHER 9.0 6 7 8" 1240 PRINT" DETRUISEZ LES";K9; "VAISSEAUX DE GUERRE KLINGON QUI ONT ENVAH 

470 PRINT" VALEUR EQUIVALENTE À 1.0" 1250 PRINT" LA GALAXIF AVANT QU'LS N'ATTAQUENT LE Q.G.DE LA FEDERATION" 

480 PRINT" ROUTE“ 1260 PRINT" A LA STARDATE";TO4T9;" CECI VOUS DONNE";T9; "JOURS.  IL";XOS 

490 PRINT" UN DES FACTEURS WARP EST LA TAILLE D'UN" 1270 PRINT" “;RB9;"STARBASF";XS;" NS LA GALAXIE POUR RAVITAILLER LE VAISSEAU 

500 PRINT" QUADRANT. PAR CONSEQUENT, POUR ALLER" 12R0 PRINT:PRINT “ETES VOUS PRET À PRENDRE LE COMMANDEMENT" ; 

510 PRINT" DU QUADRANT 6,5 AU 5,5, IL FAUDRA PRENDRE" 1300 INPUT 1ISS:1F 15$<>"y" THEN 1280 

520 PRINT" LA ROUTE 3, AVEC 1 DE FACTEUR WARP" 1320 Z4=01:25=02:K3=0:R3=0: $3=0 : G5=0: D4=.S#*RND(1):Z(Q1,02)=G(Q1,02) 

530 PRINT 1390 IFQ1<1OROÏ > BORQ2 «1 ORQ2 > BTHEN] 600 

540 PRINT"/SRS/ = EXPLORATION PAR DETECTEURS À FAIBLE PORTEE" 1430 GOSUR 9030:PRINT:IF TO<>T THEN 1490 

550 PRINT" VOUS MONTRE LE BALAYAGE DE VOTRE QUADRANT ACTUEL." 1460 PRINT"'VOTRE MISSION COMMENCE AVEC VOTRE VAISSEAU DANS LE" 

555 PRINT 1470 PRINT'OUADRANT GALACTIQUE, ‘";3G2S;"'.":GOTO 1500 

560 PRINT" LES SYMBOLES SUR L'ECRAN DE VOTRE DETECTEUR SONT:" 1490 PRINT"VOUS ENTREZ DS LE QUADRANT ";G2S;" . . ." 

570 PRINT" <*> = POSITION DE VOTRE VAISSEAU STELLAIRE" 1500 PRINT:K3=INT(G(Q1,02)#*.01):B3=INT(G(01,Q2)*.1)-10*K3 

580 PRINT" +K+ = CROISEUR DE BATAILLE DE KLINGON" 1540 S3=G(01,02)-100*K3-10#*B3:1FK3=OTHEN) 590 

590 PRINT" >1< = STARBASE FEDERALE(RAVIT./REPAR./REARM. ICI1)" 1560 PRINT"ZONE DFE COMBAT CONDITION ROUGE" :1FS>200THEN]1 590 

600 PRINT" * = ETOILE" 1580 PRINT"  ECRANS DANGEREUSEMENT RAS" 

605 PRINT 1590 FORI=1TO3:K(1,1)=0:K(1,2)=0:NEXTI 

610 PRINT" UN "RAPPORT DE SITUATION‘ ABREGE SERA EGALEMENT DONNE." 1600 FORI=1TO3:K(1,3)=0:NEXTI:QS=2S+2S47S42$4+2$+2S$S+2S4LEFTS(ZS,17) 

620 PRINT 1680 AS="<#*>":71=S] :72=S2: GOSUIBB670: IFK3<1THEN1820 

640 PRINT"/LRS/ = EXPLORATION PAR DETECTEURS À LONGUE PORTEE" 1720 FORI=1TOK3:GOSUBR590:A$="4K+ 1=R1:22=R2 

650 PRINT" DONNE L'ETAT DE L'ESPACE DANS LES QUADRANTS AVOISINANTS" 17R0 GOSUR8670:K(1,1)=R1:K(1,2)= (1,3)=S9*(.54+RND(1)):NEXTI 

660 PRINT" L'ENTERPRISE (QUI EST AU CENTRE DELA ZONE BALAYEE)" 1820 IFR3<]THEN1910 

670 PRINT" CET ETAT EST CODE SOUS LA FORME /###/, OU LE CHIFFRE DES UNITES" 1880 GOSUBR590:AS=">1<":2Z1=R1 : B4=R] : Z2=R2 : B5=R2 : GOSUB8670 

680 PRINT" EST LE NBRE D'ETOILES, CELUI DES DIZAINES CELUI DES" 1910 FORI=1TOS3:GOSUR8590:A$=" * ":71=R]1:72=R2:GOSUR8670:NEXTI 

690 PRINT" STARBASES, ET CELUI DES CENTAINES REPRESENTE LE NOMBRE DE" 1980 GOSUB6430 

700 PRINT" KLINGONS . * 1990 IFS+#F>1O0THENIFE>]OORD(7)=OTHEN2060 

705 PRINT 2020 PRINT:PRINT"#*#* ERREUR FATALE** VOUS VENEZ D'ECHOUER VTRE VAISSEAU DS 

706 PRINT" EXEMPLE - 207 = 2 KLINGONS, PAS DE STARBASES, & 7 ETOILES." 2030 PRINT"L'ESPACE":PRINT"VOTRE ENERGIE EST TROP FAIBLE POUR MANOEUVRER 

710 PRINT 2040 PRINT" FT LE CONTROLE D'ECRAN":PRINT"NE PEUT COMMUTER POUR L'INSTANT 

720 PRINT"/PHA/ = CONTROLE DES PHASERS." 2050 PRINT'VERS LA SALLE DES PROPULSEURS! ! ":GOTO6220 

730 PRINT" VOUS PERMET DE DETRUIRE LES CROISEURS DE BATAILE DE KLINGON EN" 2060 INPUT"COMMANDE";AS 

740 PRINT" LES CINGLANT D'UNE QUANTITE SUFFISANTE D'ENERGIE POUR FAIRE" 2080 FORI=1TO9:IFLEFTS(AS,3)<>MIDS(A1S, 3*1-2,3)THEN2160 

750 PRINT" S'EFFONDRER LEUR ECRAN DE FORCE. (N'OUBLIEZ PAS : LES KLINGONS" 2140 ONIGOTO2300,1980,4000,4260,4700,5530,5690,7290,6270 

760 PRINT" ONT DES PHASERS EUX AUSSI1)" 2160 NEXTI:PRINT"ENTREZ UNE DES CDES SUIVANTES :" 

770 PRINT 2180 PRINT" NAV  (ROUTE)" 

780 PRINT"/TOR/ = CONTROLE DES TORPILLES PHOTONIQUES" 2190 PRINT" SRS (NFTECTION À COURTE DISTANCE)" 

790 PRINT" LA ROUTE TORPILLE EST CELLE DEFINIE PAR LE CONTROLE DES WARPS" 2200 PRINT" LRS  (NETECTION À LONGUE DISTANCE)" 

800 PRINT" SI LE KLINGON EST TOUCHE, IL EST DETRUIT ET NE PEUT RIPOSTER" 2210 PRINT" PHA (TIR DES PHASERS)" 

810 PRINT" SI VOUS LE MANQUEZ, VOUS POUVEZ ETRE SOUMIS AU TIR DE" 2220 PRINT" TOR (TIR DES TORPILLES PHOTONIQUES)" 

820 PRINT" SES PHASERS. DE TOUTES FACONS, VOUS POUVEZ RECEVOIR LE TIR" 2230 PRINT" SHE  (AUGMENTER OU DIMINUER L'ENERGIE DES ECRANS)" 

825 PRINT" PHASER DE TOUS LES AUTRES KLINGONS PRESENTS DANS LE QUADRANT." 2240 PRINT" DAM (POUR AVOIR DES COMPTES-RENDUS DU CONTROLE D'AVARIES)" 

830 PRINT 2250 PRINT" COM (POUR APPELER LA LIRRAIRIF-ORDINATEUR)" 

835 PRINT" LA LIBRAIRIE-ORDINATEUR (COMMANDE /COM/) POSSEDE UNE OPTION"  mmd?60 PRINT" XXX (POUR DEMISSIONNER DE VOTRE COMMANDEMENT) “ : PRINT:GOTO1 990 

840 PRINT" QUI CALCULE POUR VOUS LA TRAJECTOIRE TORPILLE (OPTION 2)" 2300 INPUT"ROUTE (0-9)";C1:1IFCi=9THENCI=) 

850 PRINT 2310 IFCi>=]ANDCI <9THEN2350 

860 PRINT"/SHE/ = CONTROLE DE L'ECRAN" 2330 PRINT" LT. SULU REND COMPTE, ‘ERREUR DS LES DONNEES NAV, CDTI'": 

870 PRINT" DEFINIT LE NBRE D'UNITES D'ENERGIE AFFECTEES AUX ECRANS" 2350 X$="8":IFD(1) <OTHENXS="O.2" GOTO1990 

880 PRINT" L'ENERGIE EST PRISE SUR L'ENERGIE TOTALE DU VAISSEAU. NOTEZ:" 2360 PRINT"FACTEUR WARP (0-";X$;")";:INPUTWI : IFD(1) <OANDWI1 > . 2THEN2470 

890 PRINT" L'AFFICHAGE ETAT ENERGETIQUE TOTAL ENGLOBE ENERGIE DES ECRANS" 2380 IFW]>OANDW]<=B8THEN2490 

900 PRINT 2390 IFWi=OTHEN1990 

910 PRINT"/DAM/ = CONTROLE DES COMPTES-RENDUS D'AVARIFS" 2420 PRINT"  L'INGENIEUR EN CHEF SCOTT : "LES MOTEURS NE PEUVENT MONTER A"; 

920 PRINT" DONNE L'ETAT DE REPARATION DES DIFFERENTES INSTALLATIONS" 2430 PRINT" WARP ";Wl;"1'":GOTO1990 

930 PRIN UN ‘ETAT DE REPARATION' NEGATIF INDIQUE QUE L'INSTALLATION EST" 2470 PRINT'AVARIE DE MOTEURS WARP. VITESSE MAXI = WARP O0.2":GOTO1990 

940 PRINT" PROVISOIREMENT HORS DE SERVICE." 2490 N=INT(W1*8+.5):1FE-N>=OTHEN2590 

950 PRINT 2500 PRINT"SALLE DES MACHINES ‘ENERGIE DISPONIBLE INSUFFISANTE" 

960 PRINT"/COM/ = LIRRARIE-ORDINATEUR" 2510 PRINT" POUR MANOEUVRER À WARP";W1;"1'" 

970 PRINT" LA LI RAIRIE-ORDINATEUR CONTIENT 6 OPTIONS :" 2530 IFS<N-EORD(7) <OTHEN]1990 

980 PRINT" OPTION O = ENREGISTREMENT GALACTIQUE CUMULE" 2550 PRINT"SALLF CONTROLE DEFLECTEURS REND COMPTE:";S;"UNITES ENERGETIQUES" 

990 PRINT" CETTE OPTION MONTRE L'ENREGISTREMENT DES RESULTATS DE TOUTES" 2560 PRINT" ACTUELLEMENT AFFECTEES AUX ECRANS." 

1000 PRINT" LES EXPLORATIONS PASSEFES PAR SENSEURS COURTE & GRDE PORTEF" 2570 GOTO1990 

1010 PRINT" OPTION 1 = RAPPORT DE SITUATION" 2590 FORI=1TOK3:1FK(1,3)=OTHEN2700 

1020 PRINT" CETTE OPTION DONNE LES KLINGONS, LES STARDATES, " 2610 AS=" ":Z1=K(1,1):Z2=K(1,2):GOSUBR670:GOSUBB590 

1030 PRINT" ET LES STARBASES RESTANT EN JEU." 2660 K(1,1)=71:K(1,2)=2 OSUB86 70 

1040 PRINT" OPTION 2 = DONNEES POUR TORPILLES PHOTONIQUES" 2700 NEXTI : GOSUB6000:D1=0:D6=W)1 : IFW]>=1THEND6=) 

1050 PRINT" DONNE DIRECTIONS ET DISTANCES DE L'ENTERPRISE VERS" 2770 FORI=1TOR:IFD(I)>=OTHEN2880 

1060 PRINT" TOUS LES KLINGONS DU QUADRANT" 2790 D(1)=D(1)+D6:1FD(I1)>-.]1ANDD(I) <OTHEND(1)=-.1:GOTO2880 

1070 PRINT" OPTION 3 = DONNEES DE NAVIGATION VERS LES STARBASES" 2800 IFD(1I)<OTHFN2880 

1080 PRINT" DONNE LES DIRECTIONS ET DISTANCFS DES STARBASES" 2810 IFD1<>1THENDI=] :PRINT"CONTROLE D'AVARIES REND COMPTE: "; 

1090 PRINT" DU QUADRANT" 2840 PRINTTAB(R);:R1=1:GOSUB8790:PRINTG2S;" REPARATIONS TERMINEES." 

1100 PRINT" OPTION 4 = CALCULS DE DIRECTION/DISTANCE" 2880 NEXTI:IFRND(1)>.2THEN3070 

1110 PRINT" VOUS PERMET D'ENTRER LES COORDONNEES NECESSAIRES AUX" 2910 RI1=FNR(1):IFRND(1)>=.6THEN3000 


151 


2930 
2960 
3000 
3030 
3070 
3110 
3140 
3170 
3240 
3320 
3350 
3360 
3370 
3430 
3450 
3480 
3500 
3550 
3590 
3620 
3670 
3710 
3750 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3910 
3930 
3940 
3980 
4000 
4030 
4040 
4060 
4120 
4180 
4210 
4230 
4260 
4265 
4270 
4280 
4330 
4350 
4360 
4370 
4400 
4410 
4450 
4480 
4500 
4530 
4550 
4560 
4580 
4650 
4670 
4700 
4730 
4760 
4780 
4790 
4800 
4850 
4860 
4910 
4920 
4960 
5000 
5050 
5060 
5110 
5150 
5180 
5190 
5210 
5260 
5280 
5330 
5360 
5370 
5380 
5390 
5400 
5410 
5430 
5470 
5490 
5530 
5560 
5580 
5590 
5600 
5610 
5630 
5660 
5690 
5700 
5720 
5760 
5780 
5810 
5820 
5840 
5860 
5870 
5890 
5910 
5920 
5950 
5980 
6000 
6010 
6040 


D(RL)=D(R1)-(RND(1)*541 ) : PRINT" CONTROLE D'AVARIES REND COMPTE: ; 
GOSUB8790:PRINTG2S$ ; " ENDOMMAGE" : PRINT : GOTO3070 
D(R1)=D(R1)+RND(1)*3+1:PRINT"CONTROLE D'AVARIES REND COMPTE: “; 
GOSUB8790:PRINTG2$;" REPARATIONS AVANCENT": PRINT 

A$=" ":Z1=INT(S1):Z2=INT(S2) : GOSUBB6 70 
xi=c(ci,1)+(c(c1+1,1)-C(C1,1))*(C1-INT(C1)):X=S1:Y=S2 
x2=C(c1,2)+(c(c1+1,2)-C(C1,2))*(C1-INT(C1 ) ) :Q4=0Q1 :05=02 
FORI=1TON:S1=S14X1:S2=S2+X2:1FS1 <1ORS] >=90RS2 <10RS2>=9THEN3500 
SB=INT(S1)*24+INT(S2)*3-26:IFMID$S(QS,S8,2)="  "THEN3360 
S1=INT(S1-X1):S2=INT(S2-X2):PRINT"MOTEURS WARP ARRETES DS LE "; 
PRINT"SECTEUR";S1;",";S2;"CAUSE MAUVAISE NAVIGATION" : GOTO3370 
NEXTI:S1=INT(S1):S2=INT(S2 

A$="<#>":Z1=INT(S1):Z2=INT(S2) : GOSUBB6 70 : GOSUB3910:TB=1 

IFW] <1THENT8=. 1 *INT (10*W1 ) 

T=T+T8: IFT>TO+TITHEN6220 / 

GOTO1980 

X=B*Q14X4N#X1 : Y=B*Q24Y4N*X2:Q1=INT(X/8):Q2=INT(Y/8):S1=INT(X-Q1*8) 
S2=INT(Y-02*8):IFS1=OTHENQl=0)1-1:S1=8 

1FS2=OTHFANO2=02- 1] : S2=8 

X5=0:1FQ1 <1THENX5=1:01=1:S1=1] 

1FQ1>BTHENX5=1 :Q01=8:S1=8 

1FQ2<1THENX5=1:Q2=1:S2=] 

1FQ2>B8THENX5=]1 : Q2=8 : S2=8 

IFX5=O0THEN3860 

PRINT"LT. UHURA REND COMPTE MESSAGF COMMANDEMENT FLOTTE STELLAIRE:" 


PRINT" ‘AUTORISATION FRANCHIR LIMITES GALAXIE EST EXPRESSEMENT" 
PRINT" *REFUSEE*. COUPEZ VOS MOTEURS." 
PRINT"INGENIEUR EN CHEF SCOTT REND COMPTE : "MOTEURS WARP COUPES POSITION" 


PRINT" SECTEUR":;S1;",";S2;"DU QUADRANT":01;",":02;"."" 
IFT>TO+TOITHEN6220 

1F8*Q01+02=8*Q04+Q5THEN3370 

T=T4 1 : GOSUB391 0: GOTO] 320 

E=E-N-10:1FE>=OTHENRETURN 

PRINT"CONTROLE ECRANS FOURNIT ENERGIE NECESSAIRE POUR ACHEVER MANEUVRE.* 
S=S+E: E=0: IFS<=OTHENS=0 

RETURN 

1FD(3) <OTHENPRINT"DETECTEURS LONGUE PORTEE HORS SERVICE" : GOTO] 990 
PRINT"EXPLORATION GRANDE DISTANCE DU QUADRANT";Q1:",";:Q2 

O1 $="— ":PRINTOIS 
FORI=Q1-1TOQ1+1:N(1)=-1:N(2)=-2:N(3)=-3:FORJ=Q2-1TOQ02+1 

1F1>OANDI <9ANDJ>OANDJ<9THENN(J-Q2+2)=G(1,J):Z(1,J)=G(1,9) 

NEXTJ : FORL=1TO3:PRINT": ";:IFN(L) <OTHENPRINT"#*#** "; :GOTO4230 
PRINTRIGHTS (STRS(N(L)+1000),3);" "; 


NEXTL: PRINT" :" : PRINTOI $ : NEXTI : GOTO] 990 

1FD(4) <OTHENPRINT"PHASERS HORS SERVICE" : GOTO] 990 

1FK3>OTHEN4330 

PRINT'RESPONSABLE SCIFNTIFIQUE SPOCK : ‘PAS DE VAISSEAUX ENNEMIS DETECTES" 
PRINT" DS CE QUADRANT' " : GOTO] 990 
1FD(&)<OTHENPRINT"AVARIE ORDINATEUR DIMINUE PRECISION" 

PRINT"PHASERS VERROUILLES SUR OBJECTIF; "; 


PRINT"ENERGIE DISPONIBLE =";E;"UNITES" 

INPUT"NOMBRE D'UNITES POUR LE TIR :";X:1FX<=OTHEN] 990 

1FE-X<OTHEN4360 

E=E-X:1FD(7)<OTHENX=X*RND(1) 

H1=INT(X/K3) :FORI=1TO3:1IFK(1,3)<=OTHEN46 70 
H=INT((H1/FND(O))*(RND(1)+2)):1FH>.15*K(1,3)THEN4530 

PRINT"SENSEURS : PAS D'AVARIES SUR ENNEMI EN “:K(1,1):",":K(1,2):GOTO4670 
K(I,3)=K(1,3)-H:PRINTH-"UNITES FRAPPENT LE KLINGON DU SECT.":K(1.1):",": 
PRINTK(I,2):1FK(1,3)<=OTHENPRINT"#*#*#* KLINGON DETRUIT ***":GOTO4580 

PRINT"  (SENSEURS MONTRENT QU'IL RESTE";K(1,3);"UNITES) ":GOTO4670 
K3=K3-1:K9=K9-1:Z1=K(1,1):Z2=K(1,2):A$="  “:GOSUB8670 
K(1,3)=0:G(01,02)=G(Q1,Q2)-100:Z(Q1,02)=G(Q1,02) :IFK9<=OTHEN6370 

NEXTI : GOSUB6000 : GOTO1990 

1FP<=OTHENPRINT"TORPILLES PHOTONIQUES TTES DEPENSEES" :GOTO 1990 
IFD(5)<OTHENPRINT"TUBES PHOTONIQUES NON OPERATIONNELS" : GOTO] 990 
INPUT"ROUTE TORPILLE (1-9)";C1:1IFC1=9THENC] =] 

IFC1>=1ANDC] <9THEN4850 
PRINT"ENSEIGNE CHEKOV REND COMPTE, 
GOTO1990 
Xi=C(C1,1)4+(C(C1+1,1)-C(C1,1))*(C1-INT(CI)):E=E-2:P=P-1 
x2=C(c1,2)+(c(c1+1,2)-C(C1,2))*(CI-INT(C1)):X=S1:Y=S2 
PRINT"TRAJECTOIRE TORPILLE:" 


‘PARAMETERES NON VALABLES, CDTI'" 


X=X4+X1: Y=Y4X2:X3=INT(X4+.5):Y3=INT(Y+.5) 
1FX3<10ORX3>BORY3<1ORY3>B8THEN5490 

PRINT" "3X3;",":Y3:A$=" “:Z1=X:22=Y:GOSUB8830 
1F23<>OTHEN4920 

AS$="+K4+":Z1=X:22=Y : GOSUBB830: IFZ3=O0OTHEN5210 


PRINT"##** KLINGON DETRUIT ***":K3=K3-1]:K9=K9-1 : 1FK9 <=OTHEN6370 
FORI=1TO3:1IFX3=K(1,1)ANDY3=K(1,2)THEN5190 

NEXTI:1=3 

K(1,3)=0:GOT05430 

A$=" * ":Z1=X:22=Y : GOSUB8830: 1FZ3=OTHEN5280 

PRINT"ETOILE EN":;:X3;",";Y3;"A ANNULE L'ENERGIE TORPILLE.":GOSUB6000: 
A$=">1<":21=X:Z2=Y : GOSUBR830: IFZ3=OTHEN4760 GOTO1 990 
PRINT"#*#*#* STARBASE DETRUITE ***":B3=B3-]:B9=R9-] 
1FB9>0OORK9>T-TO-TITHEN5400 

PRINT"CA SUFFIRA, CDTII VOUS ETES RELEVE DE VOTRE COMMANDEMENT" 
PRINT"ET CONDAMNE À 99 STARJOURS DE TRVAUX FORCES SUR CYGNUS 1211" 
GOTO 6270 

PRINT"COMMANDEMENT FLOTTE STELLAIRE REVOIT VOTRE DOSSIER FT ENVISAGE" 
PRINT"COURT MARTIALEI " : DO=0 

Z1=X:22=Y:A$=" " :GOSUBB86 70 
G(Q1,02)=K3*100+B3*10+53:Z(01,02)=G(01,0Q2) : GOSUB6000: GOTO1 990 
PRINT"TORPILLE A MANQUE BUT" :GOSUB6000 : GOTO1 990 
1FD(7)<OTHENPRINT"CONTROLE D'ECRANS HORS SERVICE" : GOTO] 990 
PRINT"ENERGIE DISPONIBLE =";E+S;:INPUT"NOMBRE D'UNITES POUR LES ECRANS";X 
IFX<OORS=XTHENPRINT"<ECRANS SANS CHANGEMENT? “ : GOTO] 990 
1FX<=E+STHEN5630 

PRINT"CONTROLE ECRANS SIGNALE ‘C'FST PAS LE TRESOR DE LA FEDERATION.'" 
PRINT"<ECRANS SANS CHANGEMENT? " : GOTO1 990 

E=E+S-X:S=X:PRINT"SALLE CONTROLE DEFLECTEURS REND COMPTE: " 

PRINT" ‘ECRANS MIS A";INT(S);"UNITES SUR VOTRE ORDRE. ‘ “ : GOTO] 990 
IFD(6)>=OTHEN5910 

PRINT"IMPOSSIBLE AVOIR RAPPORT D'AVARIES" : IFNO=OTHEN1990 
D3=0:FORI=1TO8:1IFD(I)<OTHEND3=D3+.1 

NEXTI : IFD3=0THEN] 990 

PRINT:D3=D3+D4:1IFD3>=1THEND3=.9 

PRINT"TECHNICIENS PRETS À REPARER VOTRE VAISSEAU; " 

PRINT"TEMPS REPARATIONS ESTIME:";.01#*INT(100%D3 ) ; "STARJOURS" 
INPUT"AUTORISEZ VOUS LE PLAN DE REPARATIONS (Y/N)":AS 

IFAS$S<>"Y"THEN 1990 

FORI=1TO8 : IFD(1) <OTHEND(I )=0 

NEXTI:T=T+D3+.1 

PRINT:PRINT"ELEM. AVANC. REPAR.":FORR1=]TO8 
GOSUBB790:PRINTG2$ ;LEFTS(ZS,25-LEN(G2$)):INT(D(R1)*100)*.01 

NEXTRI : PRINT: IFDO<>OTHENS 720 

GOTO 1990 

IFK3<=OTHENRETURN 

IFDO<>OTHENPRINT"ENTERPRISE PROTEGE PAR ECRANS DE LA STARBASE" : RETURN 
FORI=1TO3:1FK(1,3)<=OTHEN6200 


6060 
6080 
6090 
6100 
6120 
6140 
6170 
6200 
6220 
6240 
6250 
6270 
6280 
6290 
6310 
6320 
6330 
6360 
6370 
6380 
6400 
6430 
6450 
6490 
6540 
6580 
6620 
6650 
6660 
6720 
6730 
6770 
6820 
6830 
6850 
6900 
6960 
7020 
7070 
7120 
7180 
7240 
7260 
7290 
7320 
7350 
7360 
7370 
7372 
7374 
7376 
7378 
7380 
7400 
7540 
7542 
7543 
7544 
7546 
7550 
7560 
7570 
7630 
7700 
7720 
7740 
7RO0Q 
7850 
7900 
7940 
7960 
7970 
7980 
7990 
8010 
8020 
8070 
8080 
8090 
8100 
8110 
8120 
8150 
8160 
8170 
8200 
8220 
8250 
8260 
8270 
8280 
8290 
8310 
8330 
8350 
8360 
8410 
8420 
8430 
8450 
8460 
8480 
8500 
8510 
8520 
8590 
8600 
8670 
8675 
8680 
8690 
8700 
8790 
8792 
8794 
8796 
8798 
8800 
8802 
8804 
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H=INT((K(1,3)/FND(1))*(2+RND(1))):S=S-H:K(1,3)=K(1,3)/(3+RND(0)) 
PRINTH;"UNITES FRAPPENT ENTERPRISE VENANT DU SECTEUR":;K(1,1):",":K(1,2) 
1FS<=OTHEN6240 

PRINT" <ECRANS TOMBES A";S 
IFRND(1)>.60RH/S<=.02THEN6200 
Ri=FNR(1):D(R1)=D(R1)-H/S-.5#*RND(1 ) : GOSUBR790 

PRINT"CONTROLE D'AVARIES SIGNALE ‘":G2$;" ENDOMMAGE PAR LE COUP'" 
NEXTI : RETURN 

PRINT"C'EST LE STARJOUR";T:GOTO 6270 
PRINT:PRINT"L'ENTREPRISE À ETE DETRUITE. 
PRINT"SERA CONQUISE":GOTO 6220 

PRINT"IL Y AVAIT ENCORE";K9;"CROISEURS DE BATAILLE DE KLINGON À LA" 
PRINT"FIN DE VOTRE MISSION." 

PRINT : PRINT : IFB9=OTHEN6 360 

PRINT"LA FEDERATION CHERCHE UN AUTRE COMMANDANT DE VAISSEAU STELLAIRE" 
PRINT"POUR UNE MISSION SIMILAIRE -- S'IL Y A UN VOLONTAIRE, " 
INPUT"QU'IL SORTE DES RANGS ET TAPE ‘DAC'";AS$:IFA$="DAC"THEN10 

END 

PRINT"FELICITATIONS, COMMANDANTI LE DERNIER CROISEUR KLINGON" 
PRINT"MENACANT LA FEDERATION À ETE DETRUIT.":PRINT 

PRINT"VOTRE TAUX D'EFFICACITE EST DE";1000*(K7/(T-TO) }©2 : GOTO6290 
FORI=S]1-]TOS1 + 1 : FORJ=S2-1TOS2+1 
IFINT(1+.5)<1ORINT(I+.5)>BORINT(J+.5)<1ORINT(J+.5)>BTHEN6540 
A$=">1<":Z1=1:22=J: GOSUB8830:1IFZ23=1THEN6580 

NEXTJ : NEXTI : DO=0 : GOTO6650 

DO=1:C$="ENTRE AU BASSIN" :E=E0:P=PO 

PRINT"ECRANS À ZERO POUR L'ENTREE EN RADOUR" : S=0 : GOTO6720 

1FK3 > OTHENCS= " * ROUGE* " : GOTO6 720 

C$S="VERT" : IFE<EO* . ] THENC$="JAUNE" 

IFD(2)>=OTHEN6 770 

PRINT:PRINT"#*#*#* SENSEURS COURTE DISTANCE H.S #*#*#*": PRINT: RETURN 

O1 $ =" ": PRINTO] $ : FORI=1TO8 
FORJ=(1-1)*24+1 TO(I-1)*24+22STEP3:PRINT" ":MIDS(QS,J, 3); :NEXTJ 
ONIGOTO6850,6900,6960,7020,7070,7120,7180,7240 


; "UNITES> “ : IFH<20THEN6200 


LA FEDERATION "; 








PRINT" STARJOUR “;INT(T#10)*.1:GOTO7260 
PRINT" CONDITION :C$:GOTO07260 

PRINT" QUADRANT “:Q1:",":Q2:GOT07260 
PRINT" SECTEUR ":S1:",":S2:GOT07260 
PRINT" TORP.PHOTONIQUES ";INT(P):GOTO7260 
PRINT" ENERGIE TOTALE ";INT(E+S):GOTO7260 
PRINT" ECRANS “"3INT(S):GOTO7260 
PRINT" KLINGONS RESTANTS ";INT(K9) 


NEXTI : PRINTO]S : RETURN 

1FD(8)<OTHENPRINT"ORDINATEUR H.S.":GOTO1990 
INPUT"ORDINATEUR O.K, ATTEND COMMANDE" ; À : IFA<OTHEN] 990 
PRINT :H8=]:ONA+1GOT07540,7900,8070,8500,8150,7400 


PRINT"FONCTIONS DISPONIBLES DS LIBRAIRIE-ORDINATEUR:" 
PRINT" O = ENREGISTREMENT GALACTIQUE CUMULEE 

PRINT" 1 = RAPPORT DE SITUATION" 

PRINT" 2 = DONNEES POUR TORPILLES PHOTONIQUES" 

PRINT" 3 = DONNEES NAV VERS LES STARBASES" 

PRINT" 4 = CALCULS DE DIRECTION/DISTANCE" 

PRINT" 5 = CARTE RENSEIGNEE DE LA GALAXIE" :PRINT:GOTO7320 
H8=0:G5=):PRINT" LA GALAXIFE":GOTO7550 
REM 

REM 

PRINT:PRINT" "5; 


PRINT"ENREG. ORDINATEUR PR QUADRANT GALACTIQUE";Q1:",";Q2 
PRINT 


PRINT" 1 2 3 4 5 6 7 8" 
Diane LT UC tn y nr nt dons Sssss n 
PRINTOIS : FORI=]TOB: PRINTI ; : IFHB=OTHEN7 740 


FORJ=]TOR:PRINT"  ";:1FZ(1,J)=OTHENPRINT"###"; :GOTO7720 
PRINTRIGHTS (STR$S(Z(1,J)+1000),3); 

NEXTJ: GOTO7850 

24=1 :25=] : GOSUB9030:JO=INT(15-.5*LEN(G2$)):PRINTTAB(J0);G2$; 
25=5:GOSUR 9030:J0=INT(39-.5#*LEN(G2$)):PRINTTAR(JO);G2$; 
PRINT : PRINTO] S : NEXTI : PRINT : GOTO] 990 

PRINT “  RAPPORT SITU.:":XS$= FK9>1THENXS="S" 
PRINT"KLINGON";XS;" RESTANTS: ";K9 
PRINT"'MISSION DOIT ETRE ACCOMPLIE EN";. 
X$="S" :1FB9<2THENXS=" " : 1FB9 <] THEN8010 
PRINT"LA FEDERATION MAINTIENT";B9;"STARBASE":;X$;" DS LA GALAXIF" 





1#*INT((TO+T9-T) *10 ) ; "STARJOURS" 


GOTO5690 

PRINT"VOTRE STUPIDITE VOUS À LIVRE À VOUS MEME DANS" 

PRINT" LA GALAXIE -- VOUS N'AVEZ PLUS DE STARBASESI " : GOTO5690 
IFK3<=OTHEN4270 


XS="":1IFK3>1THENXS$S="S" 

PRINT"ENTERPRISE AUX CROISEURS DE BATAILLE KLINGONIEN";XS$ 
HR=0:FORI=1TO3:1IFK(1,3)<=OTHEN8480 
Wi=K(1,1):X=K(1,2) 
C1=S]1:A=S2:GOTOB220 

PRINT"CALCULS DE DIRECTION/DISTANCE 
PRINT"VS ETES DS LE QUADRANT ":Q1:",";:Q2;" SECTEUR ":S1:",";S2 
PRINT"S.V.P. ENTREZ":INPUT" COORDONNEES INITIALES (X,Y)";C1,A 

INPUT" COORDONNEES FINALES (X,Y)":W1,X 

X=X-A : A=C]-W] : IFX<OTHEN8350 

1FA <OTHEN841 0 

IFX>OTHEN8280 

IFA=OTHENC] =5 : GOTO8290 

Ci=] 

IFABS(A)<=ARS(X)THEN8330 

PRINT"DIRECTION =";C1+(((ABS(A)-ABS(X) )+ABS(A))/ABS(A) ) : GOTOB460 
PRINT"DIRECTION =";C1+(ABS(A)/ABS(X)):GOTO8460 

IFA>OTHENC] =3 : GOTOB420 

1FX<> OTHENC1=5: GOTO8290 

C1=7 

IFABS(A)>=ARS(X)THENS450 

PRINT"DIRECTION =";C1+(((ABS(X)-ABS(A))+ABS(X))/ABS(X) ) : GOTOB460 
PRINT"DIRECTION =";Cl+(ABS(X)/ABS(A)) 

PRINT"DISTANCE =";SQR(X®2+A02) : IFH8=]1THEN1990 

NEXTI : GOTO] 990 

1FB3<>OTHENPRINT"ENTERPRISE À STARBASE:":W1=B4 : X=B5 : GOTOB1 20 
PRINT®MR. SPOCK SIGNALE : 'SENSEURS NE MONTRENT AUCUNE STARBASE DS CE": 
PRINT" QUADRANT. ‘ “ : GOTO1 990 
R1=FNR(1):R2=FNR(1):AS$=" 
RETURN 
SB=INT(Z2-.5)*3+INT(Z1-.5)*2441 

IF LEN(AS)<>3 THEN PRINT"ERREUR" : STOP 
IFSR=]THENQS=AS+RIGHTS (QS, 189) : RETURN 
1FS8=]90THENOS=LEFTS (Q$, 189 )+A$ : RETURN 

OS=LFFTS (QS,S8-1)+AS+RIGHTS (Q$, 190-S8) : RETURN 
ONR1GOTO8792,8794,8796,8798,8800,8802,8804,8806 
G2$="MOTEURS WARP" : RETURN 

G2$="SENSEURS COURTE DISTANCE" : RETURN 
G2$="SENSEURS GRANDE DISTANCE" : RETURN 
G2S="CONTROLE PHASERS" : RETURN 

G2$="TURES PHOTONIOUES" : RETURN 

G2$="CONTROLE D'AVARIES": RETURN 

G2$="CONTROLE D'ECRANS" : RETURN 











“:Z1=R) : Z2=R2 : GOSUR8830: 1F23=0OTHEN8590 


8806 G2$="LBRAIRIE-ORDINATEUR" : RETURN 

8830 Z1=INT(Z1+.5):Z2=INT(Z2+.5):S8=(Z2-1)*3+(Z1-1)*24+1:23=0 
8890 IFMIDS (Q$,S8, 3) <>AS$THENRETURN 

8900 Z3=1:RETURN 

9030 IFZ5<=4THENONZ4GOTO9040, 9050, 9060,9070,9080,9090,9100,9110 
9035 GOTO9120 

9040 G2$="ANTARES" : GOTO9210 

9050 G2$="RIGEL":GOTO9210 

9060 G2$="PROCYON" : GOTO9210 

9070 G2$="VEGA":GOTO9210 

9080 G2$="CANOPUS “ : GOTO92] O 

9090 G2$="ALTAIR":GOTO9210 

9100 G2$="SAGITTAIRE" : GOTO9210 

9110 G2$="POLLUX":GOTO9210 

9120 ONZ4GOTO9130,9140,9150,9160,9170,9180,9190,9200 

9130 G2$="SIRIUS":GOTO9210 

9140 G2$="DENFB" : GOTO9210 

9150 G2$="CAPELLA":GOTO9210 

9160 G2$="BETELGFUSE" : GOTO9210 

9170 G2$="ALDEBARAN" : GOTO9210 

9180 G2$="REGULUS" : GOTO9210 

9190 G2$="ARCTURUS" :GOTO9210 

9200 G2$="L'EPI" 

9210 IFG5<>]THENONZ5GOTO9230,9240,9250,9260,9230,9240,9250,9260 
9220 RETURN 

9230 G2$=G2$+" I":RETURN 

9240 G2$=G2$+" II":RETURN 

9250 G2$=G2$+" II1":RETURN 

9260 G2$=G2$+" IV":RETURN 

9999 END 








Exécution du programme - Instructions 





LELLLELELE EEE EL EEE EL ELLE ELLE LILI LL LL LE) 


* * 
* * 
L * * SUPER STAR TREK * * e 
* * 
* * 
* * 


LEPPEELELEL TEL ES LLESLSLLLIILLLILLLLL. 


VOULEZ VOUS LES INSTRUCTIONS (Y/N)? y 


NOTE: VOUS AVEZ BESOIN DE 40K SOUS CP/M POUR EXECUTER STARTREK. 
CE QUI VEUT DIRF QUE LE RASIC DOIT DISPOSER DE 18K DE MEMOIRE. 


INSTRUCTIONS POUR ‘SUPER STAR TREK' 


1. À L'AFFICHAGE DE /COMMAND ?/, ENTREZ L'UNE DES COMMANDES VALIDES: 
—- NAV, SRS, LRS, PHA, TOR, SHE, DAM, COM, OÙ XXX --. 

2. SI VOUS TAPEZ UNE COMMANDE NON VALIDE, UNE LISTE ABREGEE DES 
COMMANDES AUTORISEES SERA AFFICHEF. 

3. CERTAINES COMMANDES EXIGENT L'ENTREE DE PARAMETRES (AINSI, LA 
COMMANDE ‘NAV' DEMANDE "ROUTE (1-9) ?'.) SI VOUS TAPEZ DES 
PARAMETRES NON VALABLES (COMMF DES NBRES NEGATIFS), LA COMMANDE 
SERA ANNULFE 


LA GALAXIF EST DIVISEE EN UN CARROYAGE DE 8 X 8 QUADRANTS, 
ET CHAQUE QUADRANT DIVISE ENSUITE EN UNE GRILLE DE 8 X 8 SECTEURS. 


ON VOUS FIXERA UN POINT DE DEPART QUELQUE PART DS LA GALAXIE, 
POUR COMMENCER UN TOUR D'OPERATIONS COMME COMMANDANT DU VAISSEAU 
JENTERPRISE/; VOTRE MISSION: REPERER ET DETRUIRE LA FLOTTE DE 
VAISSEAUX DFE GUERRE DE KLINGON QUI MENACENT LA FEDERATION DFS 
PLANETFS UNIFS. 


EN TANT QUF COMMANDANT DU VAISSEAU STELLAIRE ENTERPRISE VOUS 
DISPOSEZ DFS COMMANDES SUIVANTES : 


/NAV/ = CONTROLF DFS MOTEURS WARP -- 


LA ROUTE NUMERIQUF CORRESPOND AU 4 3 2 
DIAGRAMME CI-CONTRE _... 
DES VALEURS ENTIERES ET REELLES SONT 


POSSIBLES. (AINSI LA ROUTE 1.5 5 
EST À MI-CHEMIN DES ROUTES 1 ET 2 





LES VALEURS PETVENT APPROCHER 9.0 6 7 8 
VALEUR EQUIVALENTE À 1.0 

ROUTE 
UN DES FACTEURS WARP EST LA TAILLE D'UN 
QUADRANT. PAR CONSEQUENT, POUR ALLER 
DU OUADRANT 6,5 AU 5,5, IL FAUDRA PRENDRE 
LA ROUTE 3, AVEC 1 DE FACTEUR WARP 


/SRS/ = EXPLORATION PAR DETECTEURS À FAIBLE PORTEE 
VOUS MONTRE LE BALAYAGE DE VOTRE QUADRANT ACTUEL. 


LES SYMROLES SUR L'ECRAN DE VOTRE DETECTEUR SONT: 
<*> = POSITION DE VOTRE VAISSEAN STELLAIRE 
+K+ = CROISFUR DE BATAILLE DE KLINGON 
>1< = STARRASE. FENERALF(RAVIT./REPAR./REARM. ICI!) 
* = FTOILF 


UN ‘RAPPORT DE SITUATION‘ ABREGF SERA EGALEMENT DONNE. 


/LRS/ = EXPLORATION PAR DETECTEURS À LONGUE PORTEE 
DONNE L'FTAT DE L'ESPACE NANS LES QUANRANTS AVOISINANTS 
L'ENTERPRISE (QUI EST AU CENTRE DELA ZONE BALAYEE) 
CET ETAT EST CODE SOUS LA FORME /###/, OU LE CHIFFRE DES UNITES 
EST LE NBRE D'ETOILES, CELUI DES DIZAINES CELUI DFS 
STARBASFS, FT CELUI DES CENTAINES REPRESENTE LE NOMRRE DE 
KLINGONS. 


EXFMPLE - 207 = 2 KLINGONS, PAS DFE STARBASES, & 7 ETOILES. 


/PHA/ = CONTROLE DES PHASERS. 
VOUS PERMET DE DETRUIRE LES CROISEURS DE BATAILE DE KLINGON EN 
LES CINGLANT D'UNE QUANTITE SUFFISANTE D'ENERGIE POUR FAIRE 
S'EFFONDRER LEUR ECRAN DE FORCF. (N'OUBLIFZ PAS : LES KLINGONS 
ONT DFS PHASERS EUX AUSSI!) 


/TOR/ = CONTROLE DES TORPILLFS PHOTONIQUES 
LA ROUTE TORPILLE EST CELLE DEFINIE PAR LE CONTROLE DES WARPS 
SI LE KLINGON EST TOUCHE, IL EST DETRUIT ET NE PEUT RIPOSTER 
SI VOUS LE MANQUEZ, VOUS POUVEZ ETRE SOUMIS AU TIR DE 
SES PHASERS. DE TOUTES FACONS, VOUS POUVEZ RECEVOIR LE TIR 
PHASER DE TOUS LES AUTRES KLINGONS PRESENTS DANS LE QUADRANT. 


LA LIRRAIRIF-ORDINATEUR (COMMANDE /COM/) POSSEDE UNE OPTION 
QUI CALCULE POUR VOUS LA TRAJECTOIRE TORPILLE (OPTION 2) 


/SHE/ = CONTROLE DE L'ECRAN 
DEFINIT LE NRRE D'UNITES D'ENERGIE AFFECTEES AUX ECRANS 
L'ENFRGIE EST PRISE SUR L'ENERGIE TOTALF DU VAISSEAU. NOTEZ: 
L'AFFICHAGE FTAT ENERGETIQUE TOTAL ENGLOBE ENERGIE DES FCRANS 


/DAM/ = CONTROLE DES COMPTES-RENDUS N'AVARIFS 
DONNE L'ETAT DE REPARATION DES DIFFERENTES INSTALLATIONS 
UN ‘FTAT DF REPARATION' NEGATIF INDIQUE QUE L'INSTALLATION EST 
PROVISOIREMENT HORS DE SERVICE. 


/COM/ = LIBRARIE-ORDINATEUR 
LA LIBRAIRIE-ORDINATEUR CONTIENT 6 OPTIONS: 
OPTION 0 = ENREGISTREMENT GALACTIQUE CUMULE 
CETTE OPTION MONTRF L'ENREGISTREMENT DES RESULTATS DE TOUTES 
LES FXPLORATIONS PASSEES PAR SENSEURS COURTE & GRDE PORTEE 
OPTION 1 = RAPPORT DFE SITUATION 
CETTE OPTION DONNE LES KLINGONS, LES STARDATES, 
ET LES STARRASES RESTANT EN JEU. 
OPTION 2 = DONNEES POUR TORPILLES PHOTONIQUES 
DONNE DIRECTIONS ET DISTANCES DE L'ENTERPRISE VERS 
TOUS LES KLINGONS DU QUADRANT 
OPTION 3 = DONNEES DFE NAVIGATION VERS LES STARBASES 
DONNE LES DIRECTIONS ET DISTANCES DES STARBASES 
DU QUADRANT 
OPTION 4 = CALCULS DE NIRECTION/DISTANCE 
VOUS PERMET D'ENTRER LES COORDONNEES NECESSAIRES AUX 
CALCULS DE DIRECTION/DISTANCE 
OPTION 5 = CARTE RENSFIGNEFE DE LA GALAXIE 
AFFICHE LES NOMS DES SEIZF PRINCIPALES REGIONS DE LA 
GALAXIE MENTIONNEES DANS LE JEU. 
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Synonym 





(Jeu des synonymes) 


Le synonyme d'un mot est un autre mot 
qui à quelque chose près a le même sens. 
Ce programme teste vos connaissances 
des synonymes de quelques mots cou- 
rants. 

L'ordinateur choisit un mot et vous de- 
mande un synonyme. L'ordinateur vous 
dit alors si cela est juste ou faux. Si vous 
ne pouvez trouver de synonymes, tapez 
« ZUT » ce qui aura comme effet d’en 
faire afficher un. 

Vous pouvez mettre tous les mots de 
votre choix dans les lignes de DATA (510- 
600). Le nombre suivant DATA dans 
l'instruction 500 est le nombre total d'ins- 
tructions de data. Dans chaque instruction 
de data, le premier nombre est le nombre 
de mots dans l'instruction présente. 

Pouvez-vous envisager une manière 
plus générale de faire cela pour un quel- 
conque sujet de CAI ? 

Walt Koetke de Lexington High School, 
Massachusetts a créé ce programme. 


SYNONYM 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


LE SYNONYME D'UN MOT EST UN AUTRE MOT QUI 

À LA MEME OÙ PRESQUE LA MEME SIGNIFICATION. 

JE CHOISIS UN MOT -- VOIS TAPEZ UN SYNONYME. 

SI VOUS NF TROUVEZ PAS DE SYNONYME, TAPEZ LE MOT ‘ZUT' 
ET JE VOUS DONNERAI UN SYNONYME. 


QUEL EST UN SYNONYME DE MODELE? Z 
##*#** UN SYNONYME DF MODELE EST MAOUET 





QUEL EST UN SYNONYME DE MODFLF? RATEAU 

RECOMMENCEZ. 

QUEL EST UN SYNONYME NE MODELF? MAQUETTE 
CORRECT 


QUEL EST UN SYNONYME DE MAISON? DOMICILE 
TRES BIEN 


QUEL EST UN SYNONYME DE POUSSER? EXAGERER 
RECOMMENCEZ . 
QUEL EST UN SYNONYME DE POUSSER? ZUT 

#*#*#*#* UN SYNONYME DE POUSSER EST BOUSCULER. 


QUEL EST UN SYNONYME DE POUSSER? APPUYER 
CORRECT 


QUEL EST UN SYNONYME DE SOUFFRANCE? MAL 
EXACT 


QUFL EST UN SYNONYME DE PREMIFR? CHEF 

RECOMMENCEZ. 

QUEL EST UN SYNONYME DE PREMIER? MFILLEUR 
EXACT 


BIE 


EXA 


BIE 


COR 


QUFL 

RECOI 

QUEL 
NI! 


QUEL 
RECOI 


EST UN SYNONYME DE ROUGE? VIOLACE 
MMENCEZ . 
EST UN SYNONYME DE ROUGE? ECARLATE 


EST UN SYNONYME DF ARRET? STOP 
MMENCEZ . 


QUEL EST UN SYNONYME DE ARRET? RELACHE 


CT 


QUEL EST UN SYNONYME DE CREUX? TROU 


NI 


QUEL 
RECOI 


EST UN SYNONYME DE SIMILAIRE? PAREIL 
MMENCEZ . 


QUEL EST UN SYNONYME DE SIMILAIRE? SEMBLABLE 


RECT 


QUEL EST UN SYNONYME DE PETIT? MINUSCULE 
TRES BIEN 


ENTRAINEMENT AUX SYNONYMES ACHEVE. 


Ok 


2 PRINT TAB(33 
4 PRINT TAB(15 


6 P 
10 

20 

30 

70 

90 

100 
110 
130 
140 
145 
150 
160 
170 
174 
176 
180 
190 
200 
210 
220 
230 
232 
235 
237 
240 
250 
260 
270 
280 
290 
300 
320 
340 
360 
370 
420 
500 
510 
520 
530 
540 
550 
560 
565 
570 
580 
590 
600 
605 
999 


RINT: 
DIM RS 
RS(1)= 
RS(5)= 
C=0 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
RESTO) 
IF C» 






SYNONYM" 

: "CREATIVE COMPUTING  MORRISTOWN, NEW JERSFY" 

PRINT: PRINT 

(5),wS(10),L(30),R(30) 

"TRES BIEN": RS(2)="CORRECT": RS(3)="PARFAIT": R$(4)="BIENL!" 
"EXACT" 


“LE SYNONYME D'UN MOT EST UN AUTRE MOT QUI" 
“A LA MEME OÙ PRESQUE LA MEME": 
“ SIGNIFICATION." 
“JE CHOISIS UN MOT -- VOUS TAPEZ UN SYNONYME." 
“SI VOUS NE TROUVEZ PAS DE SYNONYME, TAPEZ LE MOT ‘ZUT'" 
“ET JE VOUS DONNERAI UN SYNONYME.": PRINT 
RE: C=C+]1: READ N 
N THEN 420 


Ni=INT(RND(1)#N+1) 


IF R( 
R(N1) 
FOR I 
READ 
FOR J 


N1)=1 THEN 170 
=1 

=] TO N1 

N2 

=1 TO N2 


RFAD WS(J) 


NEXT 
NEXT 
FOR J 


J 
I 
=1 TO N2: L(J)=J: NEXT J 


L(O)=N2: G=1: PRINT 


L(G)= 
PRINT 
IF AS 
FOR K 
IF G= 
IF AS 
NEXT 
PRINT 
PRINT 
Gi=IN 
PRINT 
L(G1) 
PRINT 
DATA 
DATA 
PATA 
DATA 
PATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
END 
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L(L(N)): L(O)=N2-1: PRINT 

® QUEL EST UN SYNONYME DE ":WS$(G);:: INPUT AS$ 

="ZUT* THEN 340 
=1 TO N2 
K THEN 290 
=WS(K) THEN 320 

K 

e RECOMMENCEZ.“: GOTO 240 

RS(INT(RND(1)*5+#1)): GOTO 150 
T(RND(1)#L(0)+1) 

“##** UN SYNONYME DE ":WS$S(G):" EST “;:WS(L(G1));".": PRINT 
=L(L(0)): L(O)=L(0)-1: GOTO 240 

: PRINT “ENTRAINEMENT AUX SYNONYMES ACHEVE.": GOTO 999 

10 

5,"PREMIFR", "MEILLEUR", "PROCHAIN", "PRINCIPAL" ,"INITIAL" 
5,"SIMILAIRE","SEMRLABLE" ,"IDENTIQUE", "ANALOGUE" , "RESSEMBLANT" 
5,"MODFLE", "MAQUETTE" , "PROTOTYPE" , "STANDARD", "SPECIMEN" 
5,"PETIT","INSIGNIFIANT","INFIME","MESQUIN", “MINUSCULE" 

6,"ARRET", "HALTE","ESCALE" ,"REPIT","RELACHE" , "REPOS" 

6,"MAISON" , "LOGEMENT" , "RESIDENCE" , "DOMICILE" ,"DEMEURF" 
“HABITATION" 
7,"CREUX","TROU","DEPRESSION" , "PUITS" ,"FOSSE","ARIME","CAVITE" 
6,"POUSSER" , "APPUYER", “BOUSCULER" , "ENTRAINER", "ENFONCER" , “PRESSER" 
6," ROUGE", "POURPRE" 
7,"SOUFFRANCE", "DOULEUR", 
“MALAISE" 


















Target (La cible) 





ê : DISTANCE ESTIMEE= 31186 
Dans ce programme, vous êtes chargé ENTREZ ANGLE DEPUIS X, L'ANGLE DEPUIS Z, ET LA DISTANCE? 87,112,32000 
des armes d’un vaisseau spatial dans un Re 
N ï ï : RADIANS DEPUIS L'AXE DES X = 1.51843 DEPUIS L'AXF DES Z = 1.95476 
espace a 3 dimensions. Votre vaisseau, le COUP DEVANT L'OBJECTIF DE 653.634 KILOMETRES. 
vaisseau spatial Enterprise, est situé à COUR Et Des OÙ D ARRETE Du 420 20 RON UIRee 
l'origine (0, O, 0) d'un ensemble de coor- POSITION APPROX DE L' EXPLOSION: X= 1552.98  Y= 29629.3 z=-11987.2 
données x, y, z. On vous donnera la situa- DASTANCE NE PPORIECTIDIS" 1eRS5 RS 
tion approximative des coordonnées rec- 
tangulaires de l'objectif dans les 3 dimen- DISTANCF ESTIMEE= 31187 
sions, l'angle de déviation approximatif en ENTREZ ANGLE DEPIIS X, L'ANGLE DEPUIS Z, ET LA DISTANCE? 98,129,35000 
radians et en degrés à partir des axes x et RADIANS DEPUIS L'AXE DES X = 1.71042 DEPUIS L'AXE DES Z = 2.25147 
y et la distance approximative de l'objectif. COUP À DROITE DE L'ORJECTIF DR 2393277 KILOMRTRES. 
Avec cette information, vous pourrez COUR FN DFSSOUS DFE L'ORJECTIF DE 11461.2 KILOMETRES. 
E PAT : ns 0 N : L' EXPL :  X=-3785.3 = ; =-22026 
alors tirer sur l'objectif. Un tir effectué à PPT DISTANGE DE L'ORIEETIP à 1281008 0 1 


20 km de l'objectif le détruit. Après chaque 
tir, une information vous est donnée aussi 






: ne , : DISTANCF ESTIMEE= 31187.1 
bien sur la position de l'explosion de votre ENTREZ ANGLF DEPUIS X, L'ANGLE DEPUIS Z, ET LA DISTANCE? 105,130, 32000 
ur guess one quelconque position de RADIANS DEPUIS L'AXE DES X = 1.83259 DEPUIS L'AXE DES Z = 2.268972 
l'objectif. Heureusement, ceci est juste un COUP DERRIERE L'OBJFCTIF DE 7243.77 KILOMETRES. 
exercice et l'objectif ne riposte pas Après COUP À DROITE DF L'OBJECTIF DE 5651.01 KILOMETRES. 

;: pt ® COUR EN DFSSOUS DF L'ORBJF IF NE 10004.2 KILOMETRES. 
avoir atteint une certaine compétence POSITION APPROX DE L' PXPLOSION:  Xe-6344.42 Y= 23678.4 2=-20569 

p , 


DISTANCE NE L'OBJECTIF = 13582.7 


vous serez en mesure de détruire un ob- 
jectif en 3 ou 4 tirs. Mais la compétence 


s'acquiert ! DISTANCF ESTIMEE= 31187.1 
L'auteur est H. David Crockett de Fort ENTREZ ANGLE DEPUIS X, L'ANGLE DEPUIS Z, FT LA DISTANCF? 3,3,0 
Worth, Texas. VOUS VOUS FTES FAIT SAUTER! ! 


AUTRE OBJFCTIF... 


RADIANS DEPUIS L'AXE X = .366395 DEPUIS L'AXF Z = 4.95674 
ORJFCTIF REPFRF: COORDONN. APPROXIMATIVES X=-45032.4 =-17279.9 
DISTANCE ESTIMEF= 49700 Z= 12026.5 
ENTREZ ANGLE DEPUIS X, L'ANGLE DEPUIS Z, ET LA DISTANCE? 20,30, 50000 
TARGET RADIANS DEPUIS L'AXE DES X = .349065 DEPUIS L'AXE DES Z = .523597 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY COUP DEVANT L'ORJECTIF DE 68524.6 KILOMFTRES. 


COUP A GAUCHE NE L'ORJE TIF DE 25830.3 KILOMFTRES. 
COUP AU DESSUS DE L'ORJFCTIF DE 31274.9 KILOMETRES. 





POSITION APPROX DE L' EXPLOSION: X= 23492.2 Y= 8550.44 Z= 43301.3 
VOUS ETES L'OFFICIER CHARGE DES ARMES SUR LE VAISSEAU DISTANCE DE L'ORJECTIF = 79630 
SPATIAL 'ENTERPRISE'. 
ET CECI EST DESTINE A TESTER VOTRE PRECISION DE TIR DANS 
UN ESPACE À 3 DIMENSIONS. ON VOUS DONNERA 
LES ECARTS EN RADIANS PAR RAPPORT AUX AXES X ET Z, LES COORDONNEES DISTAN E FSTIMEF= 49710 
RECTANGULAIRES DE L'OBJECTIF DANS LES 3 DIMENSIONS, ENTREZ ANGLF DEPUIS X, L'ANGLE DFPUIS Z, ET LA DISTANCE? 0,0,49710 
LE NOMBRE APPROXIMATIF DE DEGRES A PARTIR DES AXES X ET Z, 
ET LA DISTANCE APPROCHEE DE L'OBJECTIF. RADIANS DEPUIS L'AXE DES X = 0 DEPUIS L'AXF DES Z = 0 
VOUS TIREREZ ALORS SUR L'OBJECTIF JUSQU'A SA COUP DFVANT L'ORJECTIF DF 45032.4 KILOMETRFS. 
DESTRUCTION! COUP A GAUCHF DE L'ORJECTIF DE 17279.9 KILOMETRES. 
COUP AU DESSUS DE L'ORJECTIF DE 37683.6 KILOMETRES. 
BONNE CHANCE! ! POSITION APPROX DE L' EXPLOSION: X= O Y= 0 Z= 49710 
DISTANCE DE L'ORJECTIF = 61209.2 
RADIANS DEPUIS L'AXE X = 1.54014 DEPUIS L'AXE Z = 1.91639 
OBJECTIF REPERE: COORDONN. APPROXIMATIVES X= 899.349 Y= 29329.4 
DISTANCE ESTIMEE= 31180 Z=-10564.8 DISTANCE FSTIMEE= 49710 
ENTREZ ANGLE DEPUIS X, L'ANGLE DEPUIS Z, ET LA DISTANCE? 90,110,31000 ENTREZ ANGLE DEPUIS X, L'ANGIF DEPUIS Z, FT LA DISTANCE? 100,100,50000 
RADIANS DEPUIS L'AXE DES X = 1.57079 DEPUIS L'AXE DES Z = 1.91985 RADIANS DFPUIS L'AXE DES X = 1.74532 DEPUIS L'AXE DES Z = 1.74532 
COUP DERRIERE L'ORJECTIF DE R99.174 KILOMETRES. COUP DEVANT L'OBJECTIF DE 36482.2 KILOMFTRES. 
COUP À DROITE DE L'OBJECTIF DE 198.83 KILOMETRES. COUP À GAUCHE DE L'OBJECTIF DE 65772.3 KILOMETRES. 
COUR EN DESSOUS DE L'ORJECTIF DE 37.6006 KILOMETRES. COUR EN DESSOUS DE L'OBJECTIF DE 20708.5 KILOMETRES. 
POSITION APPROX DE L' EXPLOSION: X= .174554 Y= 29130.6 10602.4 POSITION APPROX DE L' EXPLOSION: X=-8550.19 Y= 48492.4 Z=-8682.08 
DISTANCE DE L'OBJECTIF = 921.663 DISTANCE DE L'ORJECTIF = 78011.4 
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DISTANCF ESTIMEE= 497]0 
ENTREZ ANGLE DEPUIS X, L'ANGLE DEPUIS Z, ET LA DISTANCF? 1,1,100 


RADIANS DEPUIS L'AXE DES X = .0174532 DEPUIS L'AXE DES Z = .0174532 

COUP DEVANT L'ORJECTIF NE 45034.1 KILOMETRES. 

COUP A GAUCHF DE L'OBJECTIF DE 17279.9 KILOMETRES. 

COUR EN NFSSOUS DF L'ORJECTIF DE 11926.5 KILOMFTRFS. 

POSITION APPROX DE L' FXPLOSION: X= 1.744907 Y= .0304584 
DISTANCE DE L'ORBJECTIF = 49688.) 


ts 
Û 


°9,984n 


DISTANCF ESTIMFF= 49710.6 
ENTREZ ANGLE DEPUIS X, L'ANGLE DEPUIS Z, ET LA DISTANCE? 0,0,0 


VOUS VOUS FETES FAIT SAUTERI! 


AUTRE OBJECTIF... 


RADIANS DEPUIS L'AXE X = 6.18608 DEPUIS L'AXE Z = 5.66486 

ORJECTIF REPERE: COORDONN. APPROXIMATIVES X=-4196].6 Y= 4087.6] Z= 59265.2 
DISTANCE ESTIMEF= 72720 

ENTREZ ANGLE DEPUIS X, L'ANGLE DEPUIS Z, FT LA DISTANCE? 


10 PRINT TAB(33);"TARGET* 

20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

30 PRINT: PRINT: PRINT 

100 R=l: R1=57.296: P=3.14159 

110 PRINT “VOUS ETES L'OFFICIER CHARGE DES ARMES SUR LE VAISSEAU" 

115 PRINT "SPATIAL ‘ENTERPRISE ." 

120 PRINT "ET CECI EST DESTINE À TESTER VOTRE PRECISION DE TIR DANS" 

130 PRINT “UN ESPACE À 3 DIMENSIONS. ON VOUS DONNERA" 

140 PRINT “LES ECARTS FN RADIANS PAR RAPPORT AUX AXES X ET Z, LES COORDONNEES" 
150 PRINT "RECTANGULAIRES DE L'OBJECTIF DANS LES 3 DIMENSIONS," 

160 PRINT "LE NOMBRE APPROXIMATIF DE DEGRES À PARTIR DES AXES X ET Z," 

170 PRINT "ET LA DISTANCE APPROCHEE DE L'OBJECTIF." 

180 PRINT "VOUS TIREREZ ALORS SUR L'ORJECTIF JUSQU'A SA" 

190 PRINT “DESTRUCTIONI": PRINT: PRINT “BONNE CHANCEII": PRINT: PRINT 

220 A=RND(1)#*2*P: B=RND(1)#*2#*P: Q=INT(A#*R]): W=INT(B*R)) 

260 PRINT “RADIANS DEPUIS L'AXE X =";A;" DEPUIS L'AXE Z =";R 

280 P1=1000001!#RND(1)+RND(1): X=SIN(B)*COS(A)*P1: Y=SIN(B)*SIN(A)*P]1- 

290 7=COS(B)*P1 

340 PRINT "ORJECTIF REPERE: COORDONN. APPROXIMATIVES X=";X;" Y=";Y;" Z=";2 
345 R=R+1: IF R>5 THEN 390 

350 ON R GOTO 355,360,365,370,375 

355 P3=INT(P1*.05)*20: GOTO 390 

360 P3=INT(P1*.1)*10: GOTO 390 

365 P3=INT(P1*.5)*2: GOTO 390 

370 P3=INT(Pl): GOTO 390 

375 P3=P1 

390 PRINT * DISTANCF ESTIMEE=";P3 

400 PRINT “ENTREZ ANGLE DEPUIS X, L'ANGLE DEPUIS Z, ET LA DISTANCE"; 
405 INPUT A1,B1,P2 

410 PRINT: IF P2<20 THEN PRINT “VOUS VOUS ETES FAIT SAUTERII": GOTO 580 
420 Al=Al/Rl: Bl=Bl/Rl: PRINT “RADIANS DEPUIS L'AXE DES X =";Al; 

425 PRINT "DEPUIS L'AXE DES Z =";B]l 

480 X1=P2*SIN(B1)*COS(A1): Y1=P2*SIN(B1)*SIN(Al): Z1=P2*COS(B1) 

510 D=((X1-X)*24(Y1-Y)*2+(Z1-Z)%2)*(1/2) 

520 IF D>20 THEN 670 

530 PRINT: PRINT “ * * * TOUCHE * * * OBJECTIF DESEMPARE": PRINT 

550 PRINT “L'EXPLOSION ETAIT A";D;"KILOMETRES DU BUT" 

570 PRINT: PRINT “MISSION ACCOMPLIE EN "“;R:" COUPS." 

580 R=0: FOR I=]1 TO 5: PRINT: NEXT I: PRINT “AUTRE OBJECTIF...": PRINT 
590 GOTO 220 

670 X2=X1-X: Y2=Y1-Y: Z2=Z1-Z: IF X2<O THEN 730 

710 PRINT "COUP DEVANT L'OBJECTIF DFE";X2;"KILOMETRES.": GOTO 740 

730 PRINT "COUP DERRIERE L'OBJECTIF DE";-X2;"KILOMETRES.* 

740 IF Y2<0O THEN 770 

750 PRINT "COUP À GAUCHE DE L'OBJECTIF DE";Y2;"KILOMETRES.": GOTO 780 
770 PRINT "COUP À DROITE DE L'OBJECTIF DE";-Y2;"KILOMETRES." 

780 IF Z2<0 THEN 810 

790 PRINT “COUP AU DESSUS DE L'OBJECTIF DE";Z2;"KILOMETRES.": GOTO 820 
810 PRINT "COUR EN DESSOUS DE L'OBJECTIF DE";-2Z2;"KILOMETRES." 

820 PRINT “POSITION APPROX DE L' EXPLOSION: X=";X1;"  Y=";Y1;"  Z=";21] 
830 PRINT * DISTANCE DE L'OBJECTIF =";D: PRINT: PRINT: PRINT: GOTO 345 
999 END 
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ss. 


3-D Plot 





8-D PLOT trace la famille de courbes 
d'une fonction. La fonction z est tracée 
comme une « décentration » d’un plan x-y 
avec x et y à l’intérieur d’un cercle d’un 
rayon de 30. Le tracé résultant paraît être 
tri-dimensionnel. 

Vous obtenez la fonction que vous vou- 
lez tracer à la ligne 5. Comme avec tout 
tracé mathématique, certaines fonctions 
«rendent mieux » que d'autres. Voici 
quelques fonctions qui travaillent de ma- 
nière sympathique : 

5 DEF FNA (Z) = 30*EXP (-Z*Z/100) 
5 DEF FNA (2) = SQR (900.01-Z*Z) *.9-2 
5 DEF FNA (Z) = 30*(COS(Z/16) 2 
5 DEF FNA (Z) = 30-30*SIN (Z/18 


5 DEF FNA (2) = 30*EXP (-COS(Z/16))-30 
(Fonction Bessel - Intégrale de Summerfeld) 


5 DEF FNA (Z) = 30*SIN (Z/10) 


L'auteur de cet étonnant et ingénieux 
programme est Mark Bramhall de DEC. 


3D PLOT 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
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Ok 


3D 


CREATIVE COMPUTING 


CERrE 


Ok 


1 PRINT TAB(32});:"3D PLOT" 


PLOT 
MORRISTOWN, NEW JERSEY 


2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


3 PRINT:PRINT:PRINT 


5 DEF FNA(Z)=30*EXP(-Z*Z/100) 


100 PRINT 


110 FOR X=-30 TO 30 STEP 1.5 


120 L=0 


130 Y1=5*INT(SQOR(900-X*X)/5) 
140 FOR Y=Y] TO -Y] STEP -5 


150 Z=INT(25+FNA(SOR(X*X4+Y*Y))-.7*Y) 


160 IF Z<=L THEN 190 
170 L=Z 

180 PRINT TARB(Z);"*"; 
190 NEXT Y 

200 PRINT 

210 NEXT X 

300 END 


* 
* + 
* * + 
* * 
* * * 
* * * 
* * * + 
* * * CET] 
* * * * 
* * * + * 
* * * LE 
*  * * * 
*  * * * 
* CE * * 
* * * * * 
* LE * * 
* * + * 
* CE * 
* * 
* * * 
* * 
* LE * 
* * + * 
* “. * * 
* “ * * 
* . * * 
* . * * 
* CEE] * * 
* * * + LEZ] 
* * * * 
* * * + * + 
* * * + 
* * + + 
* * * 
* * “+ 
* * * 
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3-D Tic-Tac-Toe 





8-D TIC-TAC-TOE est un Tic-Tac-Toe 
dans un cube 4xX4X4. Vous devez obtenir 
4 marqueurs dans une rangée ou diago- 
nale le long d’un plan à 3 dimensions pour 
gagner. 

Chaque coup est indiqué par un nombre 
de 3 chiffres (les chiffres ne sont pas sé- 
parés par des virgules), chaque chiffre al- 
lant de 1 à 4 compris. Les chiffres indi- 
quent respectivement le niveau, la co- 
lonne et la rangée pour chaque coup. 
Vous pouvez gagner si vous jouez correc- 
tement, bien qu'il soit considérablement 
plus difficile que le jeu standard à 
2 dimensions 3X3. 

Cette version provient du Dartmouth 
College. 


TIC TAC TOE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DESIREZ VOUS DES INSTRUCTIONS ? OUI 


LE JEU EST UN TIC-TAC-TOE DANS UN CUBE 4 x 4 x 4. 


CHAQUE COUP EST INDIQUE PAR UN NOMBRE DE 3 CHIFFRES, 
CHIFFRE ALLANT DE 1 A 4 COMPRIS. LES CHIFFRES DONNENT LE 
NIVEAU, LA RANGEE ET LA COLONNE, DANS L'ORDRE POUR LA PLACE 


CONSIDEREE 


POUR AFFICHER LA TABLE A JEU, TAPEZ O (ZERO) COMME VALEUR DU COUP 
LE PROGRAMME AFFICHERA ALORS VOS COUPS EN LES INDIQUANT 


PAR UN (V), CEUX DE LA MACHINE PAR UN (M), ET LES 
POSITIONS VIDES PAR ( ). 


POUR ARRETER L'EXECUTION, TAPEZ 1 COMME VALEUR DE VOTRE COUP 


VOULEZ VOUS JOUER LE PREMIER ? OUI 


A VOUS DE JOUEZ ? 122 

LA MACHINE JOUE EN 111 

A VOUS DE JOUEZ ? 112 

LA MACHINE JOUE EN 411 

A VOUS DE JOUER ? 412 

LA MACHINE JOUE EN 414 

A VOUS DE JOUER ? 212 

JOLI ESSAI LA MACHINE JOUE EN 312. 
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A VOUS DE JOUER ? O 
(M) Cv) 
C) Cv) 
0) (52 
C) OC) 
(qe) Cv) 
OC) (a 
CC) C:-) 
0) C) 
C) CM) 
0) OC) 
OC) C) 
CO) OC) 
CM) Cv) 
(9 OC) 
C) OC) 
C) [9 
A VOUS DE JOUER ? 442 
LA MACHINE JOUE EN 114 
A VOUS DE JOUER ? 214 
LA MACHINE JOUE EN 213, 
#11 312 213 114 


ET 


GAGNE COMME CECI 


VOULEZ VOUS FAIRE UNE AUTRE PARTIE ? NON 


100 PRINT TAB(33):"QUBIC" 1230 IF Z<>17 THEN 1210 


110 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 1240 GOTO 1720 
120 PRINT:PRINT:PRINT 1250 LET M=Y(Z) 

210 PRINT “DESIREZ VOUS DES INSTRUCTIONS"; 1260 LET X(M)=5 

220 INPUT CS 1270 PRINT “LA MACHINE JOUE EN"; 

230 IF C$="N" THEN 315 1280 GOSUB 1570 

240 IF C$="Y" THEN 265 1290 GOTO 500 

250 PRINT “MAUVAISE REPONSE. TAPEZ ‘Y' OR ‘N', JE VOUS PRIE"; 1300 LET X=X 

260 GOTO 220 1310 FOR I=l TO 76 

265 PRINT 1320 LE? L(I1)=X(M(1,1))+X(M(1,2))+X(M(1,3))+X(M(I,4)) 
270 PRINT "CE JEU EST UN TIC-TAC-TOE DANS UN CUBE 4 X 4 X 4." 1330 LET L=L(1) 

280 PRINT “CHAQUE COUP EST INDIQUE PAR UN NOMBRE DE 3 CHIFFRES, CHAQUE" 1340 IF L<10 THEN 1410 

290 PRINT "CHIFFRE ALLANT DE 1 À 4 COMPRIS. LES CHIFFRES DONNENT LE" 1350 IF L>=1l THEN 1410 

300 PRINT "NIVFAU, LA RANGEE ET LA COLONNE, DANS L'ORDRE POUR LA PLACE" 1360 IF L>10 THEN 2230 

305 PRINT “CONSIDEREE. " 1370 FOR J=l] TO 4 

306 PRINT 1380 IF X(M(1,J))<>0O THEN 1400 

307 PRINT “POUR AFFICHER LA TABLE À JEU, TAPEZ O (ZERO) COMME VALEUR DU COUP." 1390 LET X(M(1,J))=1/8 

308 PRINT "LE PROGRAMME AFFICHERA ALORS ‘VOS' COUPS EN LES INDIQUANT * 1400 NEXT J 

309 PRINT “PAR UN (V), CEUX DE LA MACHINE PAR UN (M), ET LES" 1410 NEXT I 

310 PRINT "POSITIONS VIDES PAR ( )." 1420 GOSUR 1640 

311 PRINT 1430 FOR I1=1 TO 76 

312 PRINT “POUR ARRETER L'EXECUTION, TAPEZ 1 COMME VALEUR DE VOTRE COUP." 1440 IF L(1)=.5 THEN 2360 

315 DIM X(64),L(76),M(76,4),Y(16) 1450 IF L(1)=5+3/8 THEN 2360 

320 FOR I = 1 TO 16 1460 NEXT 1 

330 READ Y(1) 1470 GOSUR 2500 

340 NEXT I 1480 GOTO 1030 

350 FOR 1=1 TO 76 1490 PRINT “ * 

360 FOR J = 1 TO 4 1500 PRINT "VOULEZ VOUS FAIRE UNE AUTRE PARTIE"; 

370 READM(I,J) 1510 INPUT XS 

380 NEXT J 1520 IF XS="Y" THEN 400 

390 NEXT I 1530 IF XS="N" THEN 1560 

400 FOR I = 1 TO 64 1540 PRINT "NON VALARLE. TAPEZ ‘Y' OU 'N', JE VOUS PRIE"; 
410 LEFT X (1) =0 1550 GOTO 1510 

420 NEXT I 1560 STOP 

430 LET Z=) 1570 LET K]1=INT((M-1)/16)+1 

440 PRINT "VOULEZ VOUS JOUER LE PREMIER"; 1580 LET J2=M-16*(K1-]) 

450 INPUT SS 1590 LET K2=INT((J2-1)/4)4+1 

460 IF SS="N" THEN 630 1600 LET K3=M-(K1-1)#*16-(K2-1)*4 

470 IF S$="Y" THEN 500 1610 LET M=K1*100+K2*10+K3 

480 PRINT “NON VALARLF. TAPEZ ‘'Y' OÙ 'N', JE VOUS PRIE."; 1620 PRINT M; 

490 GOTO 450 1630 RETURN 

500 PRINT “ " 1640 FOR S=] TO 76 

510 PRINT “A VOUS DE JOUER"; 1650 LEFT J1 = M(S,1) 

520 INPUTJ] 1660 LET J2=M(S,2) 

521 IF Jli=l THEN 2770 1670 LET J3=M(S,3) 

522 IF J]1<>OTHEN525 1680 LET J4=M(S,4) 

523 GOSUB 2550 1690 LET L(S)=X(J1)+X(J2)+X(33)+X(J4) 

524 GOTO500 1700 NEXT S 

525 IFJ1<1]11THEN2750 1710 RETURN 

526 IFJ]>444THEN2750 1720 FOR I=] TO 64 

530 GOSUR 2500 1730 IF X(I)<>0 THEN 1800 

540 LETK1=INT(J1/100) 1740 LET X(1)=5 

550 LET J2=(J1-K1*100) 1750 LET M=1 

560 LET K2=INT(J2/10) 1760 PRINT “LA MACHINE AIME": 

570 LET K3= Jl - K1*100 -K2*10 1770 GOSUB 1570 

580 LET M=16*K1+4#*K2+K3-20 1780 PRINT “ * 

590 IF X(M)=0 THEN 620 1790 GOTO 500 

600 PRINT "CETTE POSITION EST OCCUPFE, RECOMMENCEZ" 1800 NEXT I 

610 GOTO 500 1810 PRINT “LA PARTIF EST NULLE" 

620 LET X(M)=1 1820 GOTO 1490 

630 GOSUR 1640 1830 FOR K=1 TO 18 

640 FOR J=] TO 3 1R40 LET P=0 

650 FOR I=] TO 76 1R50 FOR I=4#K-3 TO 4*K 

660 IF J=1 THEN 720 1860 FOR J=] TO 4 

670 IF J=2 THEN 790 1870 LET P=P4+X(M(1,9)) 

680 IF J=3 THEN 930 1880 NEXT J 

690 NEXT I 1890 NEXT I 

700 NEXTJ 1900 IF P<4 THEN 1940 

710 GOTO 1300 1910 IF P<5 THEN 1970 

720 IF L(I)<>4 THFN 690 1920 IF P<9 THEN 1940 

730 PRINT “VOUS GAGNEZ COMME CECI"; 1930 IF P<10 THEN 1970 

740 FOR J=] TO 4 1940 NEXT K 

750 LET M=M(1,J) 1950 GOSUB 2500 

760 GOSUB 1570 1960 GOTO 1200 

770 NEXT A 1970 LEFT S=]/R 

780 GOTO 1490 1980 FOR 1=4#K-3 TO 4%K 

790 IF L(1)<>15 THEN 690 1990 GOTO 2370 

800 FOR J=1 TO 4 2000 NEXT I 

810 LET M=M(I1,J) 2010 LEFT S=0 

820 IF X(M)<>0 THEN 860 2020 GOTO 1980 

A30 LET X(M)=5 2030 DATA 1,49,52,4,13,61,64,16,22,39,23,38,26,42,27,43 
840 PRINT “LA MACHINE JOUE EN"; 2040 DATA 1,2,3,4,5,6,7,R8,9,10,11,12,13,14,15,16,17,1R,19,20 
850 GOSUR 1570 2050 DATA 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38 
R60 NEXT J 2060 DATA 39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56 
870 PRINT “, ET GAGNE COMME CECI" 2070 PATA 57,58,59,60,61,62,63,64 

A8O FOR J=] TO 4 2080 DATAI,17,33,49,5,21,37,53,9,25,41,57,13,29,45,6] 
890 LET M=M(1,J) 2090 DATA 2,18,34,50,6,22,38,54,10,26,42,58,14,30,46,62 
900 GOSUB 1570 2100 DATA 3,19,35,51,7,23,39,55,11,27,43,59,15,31,47,63 
910 NEXT J 2110 DATA 4,20,36,52,8,24,40,56,12,28,44,60,16,32,48,64 
920 GOTO 1490 2120 DATA 1,5,9,13.17,21,25,29,33,37,41,45,49,53,57,61 
930 IF L(I)<>3 THEN 690 2130 DATA 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62 
940 PRINT "JOLI ESSAI LA MACHINE JOUE EN"; 2140 DATA 3,7,11,15,19,23 27,31,35,39,43,47,51,55,59,63 
950 FOR J=1 TO 4 2150 DATA4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64 
960 LEFT M=M(I,J) 2160 DATA1,6,11,16,17,22,27,32,33,38,43,48,49,54,59,64 
970 IF X(M)<>0 THEN 1010 2170 DATA 13,10,7,4,29,26,23,20,45,42,39,36,61,58,55,52 
980 LET X(M)=5 21R0 DATA1,21,41,61,2,22,42,62,3,23,43,63,4,24,44,64 
990 GOSURB 1570 2190 DATA 49,37,25,13,50,38,26,14,51,39,27,15,52,40,28,16 
1000 GOTO 500 2200 DATA 1,18,35,52,5,22,39,56,9,26,43,60,13,30,47,64 
1010 NEXT J 2210 DATA 49,34,19,4,53,38,23,R,57,42,27,12,61,46,31,16 
1020 GOTO 1300 2220 DATA 1,22,43,64,16,27,38,49,4,23,42,61,13,26,39,52 
1030 FOR 1 = 1 TO 76 2230 FOR J=] TO 4 

1040 LET L(I)=X(M(I,1))+X(M(1,2))+X(M(1,3))+X(M(1,4)) 2240 1F X(M(1,J))<>1/8 THEN 2330 

1050 LET L = L(I) 2250 LET X(M(1,9))=5 

1060 IF L <2 THEN 1130 2260 IF L(1)<5 THEN 2290 

1070 IF L>=3 THEN 1130 2270 PRINT “VOYONS SI VOUS POURREZ VOUS EN TIRER: LA MACHINE JOUE EN" 
1080 IF L>2 THEN 2230 22R0 GOTO 2300 

1090 FOR J = 1 TO 4 2290 PRINT "PETIT MALIN. EN UN RIEN DF TEMPS,LA MACHINE JOUE EN"; 
1100 1F X(M(I,J))<>O THEN 1120 2300 LET M=M(I,J) : 
1110 LET X(M(1,J))=1/8 2310 GOSUB 1570 

1120 NEXT J 2320 GOTO 500 

1130 NEXT I 2330 NEXT J 

1140 GOSUB 1640 2340 PRINT “LA MACHINE CONCEDF CETTE PARTIE." 

1150 FOR 1 = 1 TO 76 2350 GOTO 1490 

1160 IF L(I1)=1/2 THEN 2360 2360 LET S=1/8 

1170 IF L(I)=1+3/8 THEN 2360 2370 IF I-INT(I/4)*4>1] THEN 2400 

1180 NEXT I 23R0 LFT A=] 

1190 GOTO 1830 2390 GOTO 2410 

1200 LET Z = 1 2400 LET A=2 

1210 IF X(Y(Z))=0 THEN 1250 2410 FOR J=A TO 5-A STFP 5-2*A 

1220 LET Z=2+1 2420 IF X(M(1,J))=S THEN 2450 
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2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2562 
2564 
2566 
2570 
2600 


NEXT J 

GOTO 2000 

LET X(M(1,J))=5 
LET M=M(1,J) 


PRINT "LA MACHINE PREND"; 


GOSUB 1570 

GOTO 500 

FOR I=1 TO 64 

IF X(1)<>1/8 THEN 2530 
LET X(1)=0 

NEXT I 

RETURN 

FORI=]1TO4 

FORJ=1TO4 
FORI1=1TOJ 

PRINT" 

NEXTI) 

FORK=]1TO4 

LET O=16*1+4*7+K-20 


2610 
2620 
2630 
2640 
2650 
2655 
2660 
2665 
2670 
2680 


2690 
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2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 


IFX(Q)<>OTHEN2630 
PRINT"( ) 7 
1FX(Q) <> STHEN2650 
PRINT"(M) "; 
1FX(Q)<>1THEN2660 
PRINT"(Y) Se 
1F X(Q)<>1/RTHEN2670 
PRINT"( ) “y 
NEXTK 

PRINT 

PRINT 

NEXTJ 

PRINT 

PRINT 

NEXTI 

RETURN 


PRINT"COUP NON VALABLE, RETAPEZ LE--"; 


GOTO520 
END 





Tic-Tac-Toe 


Le jeu de Tic-Tac-Toe nécessite une ri- 
goureuse introduction. Dans celui-ci vous 
jouez contre l'ordinateur. Les coups sont 
entrés par les nombres : 


1 2 3 
4 5 6 
7 8 9 


Si vous faites un faux mouvement, l'or- 
dinateur gagne; si c'est le contraire, vous 


pouvez gagner; autrement, la partie se ter- 10 PRINT TAB(30);"TIC TAC TOE" : 
mine sur une égalité. . CRUE PARUS ne SRRPTINS COMPUTING MORRISTOWN, NEW JERSEY 
Une seconde version de ce jeu est in- 100 REN CE PROGRAMME JOUE AU TIC TAC TOE 
cluse, qui affiche la table après chaque 110 REM LA MACHINE JOUE LA PREMIERE 
coup. Cela convient parfaitement au termi- 120 PRINT. 2DE TABLEAU DE SRI ESP MMEROERS TR PR IÈT Le 
nal vidéo, particulièrement si vous le modi- 140 PRINT 
fiez pour ne pas afficher une nouvelle 160 REM 
table après chaque coup, mais que vous 180 DEF FNM(X)=X-AeINT( (X-1 )/8) 
utilisiez le curseur. 190 REM 
Le premier programme a été écrit par do 
Tom Koos pendant qu'il était chercheur au tu 
Musée des Sciences et de l'Industrie 240 M=A 
d'Oregon; il a été modifié par la suite par A 
Steve North de Creative Computing. L'ori- etude 
gine du second jeu est inconnue. 290 GoSuB 650 
Q=M 


310 IF Q=FNM(B+4) THEN 360 
320 C=FNM(B+4) 

330 M=C 

340 GOSUB 700 

350 GoTO 730 

360 C=FNM(B+2) 


370 M=C 
TIC TAC TOE 380 GOSUB 650 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 390 R=M 


400 IF R=FNM(C+4) THEN 450 
410 D=FNM(C+4) 
420 M=D 
LE TABLEAU DE JEU EST NUMEROTE: 430 GOSUB 700 
440 GOTO 730 


1 2 3 450 IF P/2<>INT(P/2) THEN 500 
8 9 4 460 D=FNM(C+7) 
7 6 5 470 M=D 
480 GOSUB 700 
490 GOTO 730 
500 D=FNM(C+3) 
L'ORDINATEUR JOUE 9 510 M=D 
A VOUS DE JOUER? 3 520 GOSUB 650 
L'ORDINATEUR JOUE 4 530 S=M 
A VOUS DE JOUER? 8 540 IF S=FNM(D+4) THEN 590 
L'ORDINATEUR JOUE 6 550 E=FNM(D+4) 
A VOUS DE JOUER? 2 560 M=E 
L'ORDINATEUR JOUE 1 570 GOSUB 700 
A VOUS DE JOUER? 5 580 REM 
L'ORDINATEUR JOUE 7 590 E=FNM(D+6) 
LA PARTIE EST NULLE 600 M=E 
610 GOSUB 700 
620 PRINT “LA PARTIF EST NULLE" 
L'ORDINATEUR JOUE 9 630 GOTO 210 
A VOUS DE JOUER? 2 640 REM 
L'ORDINATEUR JOUE 3 650 GoSUB 700 
A VOUS DE JOUER? 7 660 PRINT “A VOUS DE JOUER": 
L'ORDINATEUR JOUE 5 670 INPUT M 
A VOUS DE JOUER? 1 680 RETURN 
L'ORDINATEUR JOUE 4 700 PRINT “L'ORDINATEUR JOUE":M 
ET GAGNE *###ssss 710 RETURN 
720 RFM 
730 PRINT “ET GAGNE *###*#ss…" 
L'ORDINATEUR JOUE 9 740 GOTO 210 
A VOUS DE JOUER? 750 END 
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2P 
4 P 
6 P 
8 P 
10 

12 

14 

16 

20 

50 

55 

60 

100 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
118 
120 
122 
126 
128 
130 
131 
132 
133 
135 
136 
138 
150 
152 
156 
158 
160 
161 
162 
163 
165 
166 
168 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
181 
182 
183 
187 
189 
195 
202 
205 
450 
455 
460 
465 
467 
475 
500 
502 
503 
505 
506 
510 
520 
530 
100 
101 
101 
101 
101 
102 
103 
104 
105 


RINT TAB(30);"TIC-TAC-TOE" 


RINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


RINT:PRINT:PRINT 
RINT "LE TABLEAU EST NUMEROTE:" 
PRINT “ 1 2 3" 
PRINT “ 4 5 6" 
PRINT “ 7 8 9" 
PRINT:PRINT:PRINT 
DIM S(9) 
INPUT"VOULEZ VOUS LES ‘X' OU LES ‘O'";C$ 
IF C$="X"THEN 475 
PS="O" :Q$="X" 
G=-1:H=1:1FS(5)<>OTHEN103 
S(5)=-1:GOTO0195 
1FS(5)<>1THEN106 
1FS(1)<>OTHEN110 
S(1)=-1:GOT0195 
IFS(2)=1ANDS(1)=OTHEN181 
I1FS(4)=1ANDS(1)=OTHEN181 
IFS(6)=1 AND S(9)=OTHEN18B9 
1FS(8)=1ANDS(9)=OTHEN189 
1FG=]1THEN]12 
GOTO118 
J=3*INT((M-1)/3)+1 
IF3*INT((M-1)/3)+1=MTHENK=1 
IF3*INT((M-1)/3)+2=MTHENK=2 
IF3#*INT((M-1)/3)+3=MTHENK=3 
GOTO] 20 
FORJ=1TO7STEP3: FORK=]1TO3 
1FS(J)<>GTHEN130 
1FS(J+2)<>GTHEN135 
IFS(J+1)<>OTHEN150 
S(J+1)=-1:GOTO195 
1FS(J)=HTHEN]50 
IFS(J+2) <>GTHEN150 
IFS(J+1)<>GTHEN150 
S(J)=-1:GOT0195 
1FS(J+2)<>OTHEN150 
1FS(J+1)<>GTHEN150 
S(J+2)=-1:GOT0195 
1FS(K) <>GTHEN160 
IFS(K+6)<>GTHEN165 
IFS(K+3) <>OTHEN170 
S(K+3)=-1:GOTO0195 
IFS(K)=HTHEN] 70 
IFS(K+6) <>GTHEN] 70 
1FS(K+3)<>GTHEN170 
S(K)=-1:GOTO0195 
IFS(K+6) <>OTHEN1 70 
1FS (K+3)<>GTHEN170 
S(K+6)=-1:GOTO195 
GOTO450 
IFS(3)=GANDS(7)=OTHEN187 
IFS(9)=GANDS (1)=OTHEN]81 
1FS(7)=GANDS(3)=OTHEN]1 83 
IFS(9)=OANDS (1)=GTHEN189 
1FG=-]THENG=] :H=-1] : GOTO110 
I1FS(9)=1ANDS (3 )=OTHEN] 82 
FORI=2T09: 1FS(1 )<>OTHEN1 79 
S(1)=-1:GOT0195 
NEXTI 
S(1)=-1:GOT0195 
1FS(1)=1THEN1 77 
S(3)=-1:GOT0195 
S(7)=-1:GOT0195 
S(9)=-1 
PRINT:PRINT"L'ORDINATEUR JOUE EN..." 
GOSUB1000 
GOTO500 
IFG=1THEN465 
1FJ=7ANDK=3THEN465 
NEXTK,J 
IFS(5)=GTHEN171 
GOTO175 
P$="X":Q$="0" 
PRINT:INPUT"OU JOUEZ VOUS";M 
IF M=0 THEN PRINT"MERCI POUR LA PARTIE":GOTO 2000 
IF M>9 THEN 506 
IF S(M)=0 THEN 510 
PRINT"CETTE PLACE EST OCCUPEE" : PRINT :PRINT:GOTO500 
G=1:S(M)=1 
GOSUB 1000 
GOTO 100 
O PRINT:FOR I=l TO 9:PRINT" “::1F S(I)<>-1 THEN 1014 
2 PRINTOS" “;:GOTO1020 
4 IF S(1)<>0 THEN 1018 
6 PRINT" “;:GOTO1020 
8 PRINTPS" "; 
O IFI<>3ANDI<>6THEN1050 
O PRINT:PRINT "+44" 
O0 GOTO 1080 
O IFI=9ITHENIO080 
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1060 
1080 
1095 
1100 
1105 
1110 
1112 
1115 
1130 
1135 
1137 
1150 
1152 
1155 
1160 
1165 
1170 
1180 
1200 
1350 
1400 
2000 


LE TABLEAU EST NUMEROTE 


1 
4 
7 


VOULE 


OU Jo 


+ ete 


L'ORDINATEUR JOUE EN... 


PRINT"I"; 


NEXTI :PRINT:PRINT: 


FOR 1=1TO7STEP3 


PRINT 


IFS(I1)<>S(1+1)THEN1115 
IFS(1)<>S(1+2)THEN1115 


IFS(I)=-1THEN1350 
IFS(1)=1THEN1200 


NEXTI:FORI=1TO3:1FS(1)<>S(1+3)THEN]150 
IFS(1)<>S(1+6)THEN1150 


IFS(1)=-1THEN1350 
I1FS(1)=1THEN] 200 


NEXTI:FORI=1TO9:1IFS(1)=OTHEN1155 


NEXTI : GOTO1 400 
IFS(5)<>GTHEN1170 


1FS(1)=GANDS (9)=GTHEN1180 
1FS(3)=GANDS (7 )=GTHEN]180 


RETURN 
1FG=-]THEN]350 
PRINT"VOUS M'AVEZ 
PRINT"J'AI GAGNE 


BATTUII BIEN JOUF" :GOTO2000 


INABLEI 11":GOTO2000 


PRINT"C'EST UNE PARTIE NULLE. MERCI" 


END 


TIC-TAC-TOE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


2 3 
5 6 
8 9 


OU JOUEZ VOUS ? 7 





Z VOUS LES "X" ou les "O" ? x 


UEZ VOUS ? 5 


»* 
+ 








! 
+ 
O1! 
+ 
! 


+4. 
» 


* 
+= + 
* 


L'ORDINATEUR JOUE EN... 








OU JOUEZ VOUS ? 9 


0 ! x ! 0 
CSEEU NE RE RENE] 
0!Xx!Xx 
Bet 
X!0!>x 


C'EST UNE PARTIE NULLE. 


© 
a Se re 
* 
EE 
» 


++ 
* 


MERCI 


Tower 
(Tours de Hanoi) 





TOWERS 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


PUZZLE DES TOURS D'’HANOI 


VOUS DEVEZ FAIRE PASSER TOUS LES DISQUES DE LA TOUR DE GAUCHE 
A iA TOUR DE DROITE, UN PAR UN, SANS JAMAIS POSER UN GRAND 
DISQUE SUR UN PLUS PETIT. 


COMBIEN DE DISQUES VOULEZ VOUS DEPLACER (7 EST LE MAXI)7 3 


DANS CE PROGRAMME, ON DESIGNE LES DISQUES PAR UN NOMPRE. 

3 REPRESENTERA LE PLUS PETIT, 5 CELUI DE TAILLE JUSTE SUPERIEURE, 

7 LE SUIVANT,ET AINSI JUSQU’A 15. SI VOUS JOUEZ AVEC 2 DISQUES, 
LEURS CODES SERONT 13 ET 15. AVEC 3 DISGUES LES CODES SERONT 

11, 13 ET 15, ETC. LES POINTES SONT NUMEROTEES 1 À 3 

DE LA GAUCHE VERS LA DROITE. NOUS COMMENCERONS 

AVEC LES DISQUES ENPILES SUR LA POINTE 1, POUR TENTER DE LES METTRE 
SUR LA POINTE 3. 


Ceci est une simulation d'un jeu de logi- 
que qui est originaire du Moyen-Orient. 


BONNE CHANCE ! 


ll est parfois appelé Pharoah's Needles : : : 
(les Obélisques du pharaon) mais est plus * * * 
connu sous le nom des Tours de Hanoï. Srétinnass : : 
La légende rapporte qu'une société se- Pres . a 
crète de moines vit près de la ville de Ha- GUEL DISQUE VOULEZ VOUS DEPLACER? 11 
noï. Ils possèdent trois grandes tours (ou ee rent FO TU : 
obélisques) sur lesquelles des disques " * : 
d'or de différentes tailles doivent être : : * 
placés. En en déplaçant un à la fois et Diners L È 
sans jamais poser un plus grand sur un CREER * LEE ESS 
plus petit, les moines s'efforcent de faire PEAR QU QUELLES POINTES De 
passer tous les disques de la tour de : : : 
gauche à la tour de droite. La légende dit * * “ 
que lorsqu'ils auront terminé de déplacer = . È 
les 64 disques de la tour, ce sera la fin du . * * 
monde. Combien de mouvements met- GUEL DISQUE VOULEZ VOUS DEPLACER? 11 CE 
tront-ils pour accomplir cela ? S'ils peu- A'RÉACER SUR QUELLES PAINTE? 27 ï 
vent déplacer un disque par minute et tra- . * * 
vailler 24 heures par jour, combien d’an- : . : 
nées cela prendra-t-il ? * * * 
Dans ce puzzle informatisé vous avez démreieites rhin : 
devant vous trois « aiguilles » verticales. QUE T "DISQUE VOULEZ. VOUS DEPLACÉES TS 
Sur celle la plus à gauche sont placés de A PLACER SUR QUELLE POINTE? 3 
deux à sept disques gradués, le plus : k : 
grand étant à la base et le plus petit au L : ki 
sommet. Votre objectif est de déplacer la * * * 
pile entière de disques jusqu'à l'aiguille la : Ranoiotdatsi ts Masai 
plus à droite. Cependant vous ne pouvez QUEL DISQUE VOULEZ VOUS DEPLACER? 13 
déplacer qu'un seul disque à la fois et QUEL DISQUE VOULEZ VOUS DÉPLACER? 11 UE 
vous ne pouvez jamais poser un disque AJPACER:SUR QUELLE “POINTES A: < . 
plus grand sur un disque plus petit. * * * 
Dans ce jeu informatique, les disques : : L 
sont désignés par rapport à leur taille — + * * 
c'est-à-dire, 3 représente le plus petit, 5 sosseneniss dnentitoiees dire 
celui de taille juste supérieure, 7 le suivant MCD BU QUELLE POINTE de 
et ainsi de suite jusqu’à 15. Si vous jouez * * * 
avec moins de 7 disques, utilisez toujours . : à 
les plus grands, par exemple avec L : * 
2 disques, les numéros 13 et 15. Les ins- « , dsetessrsais 
tructions du programme sont à _elles- QUEL DISQUE: VOULEZ: VOUS) DEFLACERT 11 dons 
seules leur propre explication. Bonne A PLACER SUR QUELLE POINTE? 3 
chance ! à : : 
Charles Lund a écrit ce programme : : ’ 
pendant qu'il était à l'Ecole Américaine de * * COTES LEI LES 
La Haye, Pays-Bas. : : dnshainisersis 
FELICITATIONS!! 


VOUS AVEZ REUSSI EN 7 COUPS. 
UNE AUTRE PARTIE (Y OU N)7 N 
MERCI POUR LA PARTIE! 


Ok 


163 





10 PRINT TAB(33);"TOWERS" 


20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 730 IF (N-1)*(N-2)*(N-3)=0 THEN 800 
30 PRINT:PRINT:PRINT 735 E=E4]1 

90 PRINT 740 IF E>l THEN 780 

100 REM*** INITIALISATION 750 PRINT "CETTE FOIS, J' ADMETS L' ERREUR DE TOUCHE. MAIS, ATTENTION, “ 
110 DIM T(7,3) 760 PRINT “JE NE TOLERE QU'UNE SEULE ERREUR.": GOTO 705 

120 E=0 780 PRINT "JE VOUS AVAIS PREVENU, MAIS VOUS N'AVEZ PAS ECOUTE." 

130 FOR D=1 TO 7 790 PRINT “AU REVOIR, GROS MALIN.": STOP 

140 FOR N=1 TO 3 800 FOR R=1 TO 7 

150 T(D,N)=0 810 1F T(R,N)<>0 THEN 840 

160 NEXT N 820 NEXT R 

170 NEXT D 830 GOTO 880 

180 PRINT “PUZZLE DES TOURS D'HANOI": PRINT 835 REM *** VERIFIER QUE LE DISQUE SERA BIEN PLACE SUR UN PLUS GRAND 
200 PRINT "VOUS DEVEZ FAIRE PASSER TOUS LES DISQUES DE LA TOUR DE GAUCHE" 840 IF D<T(R,N) THEN 880 

205 PRINT “A LA TOUR DE DROITE, UN PAR UN, SANS JAMAIS POSER UN GRAND" 850 PRINT “VOUS NE POUVEZ PAS METTRE UN GRAND DISQUE AU DESSUS D'UN PETIT," 
210 PRINT "DISQUE SUR UN PLUS PETIT.": PRINT 860 PRINT “CA POURRAIT L'ECRASERI": PRINT "MAINTENANT, "::GOTO 480 

215 INPUT "COMBIEN DE DISQUES VOULEZ VOUS DEPLACER (7 EST LE MAX1)";S 875 REM *** METTRE LE DISQUE À SA NOUVELLE PLACE 

220 PRINT 880 FOR V=l TO 7: FOR W=1 TO 3 

230 M=0 900 IF T(V,W)=D THEN 930 

240 FOR Q=1 TO 7 910 NEXT W: NEXT V 

250 IF Q=S THEN 350 925 REM *** REPERER LA PLACE LIBRE SUR LA POINTE N 

260 NEXT Q 930 FOR U=] TO 7 

270 E=F+1 940 1F T(U,N)<>0 THEN 970 

280 1F F>2 THEN 310 950 NEXT U 

290 PRINT “DESOLE, MAIS JE NE PEUX PAS FAIRE CA POUR VOUS.": GOTO 215 960 U=7: GOTO 980 

310 PRINT "TRES BIEN, GROS MALIN, SI VOUS NE POUVEZ PAS JOUER LOYALEMENT" 965 REM *** DEPLACER LE DISQUE ET METTRE ANCIENNE PLACE À O 

320 PRINT "JE REPRENDS MON PUZZLE ET RENTRE À LA MAISON. ADIEU.": STOP 970 U=U-1 

340 REM *** DESIGNATION DES DISQUES PAR TAILLE CROISSANTE 980 T(U,N)=T(V,W): T(V,W)=0 

350 PRINT "DANS CE PROGRAMME, ON DESIGNE LES DISQUES PAR UN NOMBRE." 995 REM *** AFFICHER LA SITUATION EN COURS 


355 PRINT "3 REPRESENTERA LE PLUS PETIT, 5 CELUI DF TAILLE JUSTE SUPERIEURE," 1000 GOSUB 1230 
360 PRINT “7 LE SUIVANT,ET AINSI JUSQU'A 15. SI VOUS JOUEZ AVEC 2 DISQUES," 1018 REM *** VERIFIER SI C'EST GAGNE 


365 PRINT "LEURS CODES SERONT 13 ET 15. AVFC 3 DISQUES LES CODES SERONT" 1020 M=M4+1 

370 PRINT “ll, 13 ET 15, ETC. LES POINTES SONT NUMFROTEFS 1 À 3 " 1030 FOR R=l TO 7: FOR C=1 TO 2 

375 PRINT "DE LA GAUCHE VERS LA DROITE. NOUS COMMENCERONS" 1050 IF T(R,C)<>O THEN 1090 

380 PRINT “AVEC LES DISQUES ENPILFS SUR LA POINTE 1, POUR TENTER DE LES 1060 NEXT C: NEXT R 

385 PRINT "SUR LA POINTE 3." METTRE" 1080 GOTO 1120 

390 PRINT: PRINT “BONNE CHANCEI": PRINT 1090 IF M<=128 THEN 480 

400 Y=7: D=15 1100 PRINT "NAVRE, MAIS J'AI COMME INSTRUCTIONS D'ARRETER SI VOUS DEPASSEZ" 
420 FOR X=S TO 1 STEP -1 1110 PRINT "128 COUPS.": STOP 

430 T(Y,1)=D: D=D-2: Y=Y-1 1120 IF M<>21S-] THEN 1140 

460 NEXT X 1130 PRINT "FELICITATIONSI1" 

470 GOSUB 1230 1140 PRINT "VOUS AVEZ REUSSI EN";M;"COUPS." 

480 PRINT “QUEL DISQUE VOULEZ VOUS DEPLACER"; : E=0 1150 PRINT: PRINT “UNE AUTRE PARTIE (Y OU N)";: INPUT A$ 
500 INPUT D 1160 IF A$="N" THEN 1390 

510 IF (D-3)*(D-5)*(D-7)*(D-9)*(D-11)*(D-13)*(D-15)=0 THEN 580 1170 IF AS$="Y" THEN 90 

520 PRINT “NON VALABLE... VOUS NE POUVEZ TAPER QUE 3,5,7,9,11,13, OU 15." 1180 PRINT: PRINT "'Y' OU 'N' S'IL VOUS PLAIT";: INPUT AS: GOTO 1160 
530 E=E+l: IF E>l THEN 560 1230 REM *** ROUTINE D'AFFICHAGE 

550 GOTO 500 1240 FOR K=1 TO 7 

560 PRINT "CESSEZ DE GACHER MON TEMPS. ALLEZ EN ENNUYER UN AUTRE."" STOP 1250 Z=10 

580 REM *** VERIFIER SI DISQUE DEMANDE SE TROUVE SOUS UN AUTRE 1260 FOR J=l TO 3 

590 FOR R=1 TO 7 1270 IF T(K,J)=0 THEN 1330 

600 FOR C=1 TO 3 1280 PRINT TAB(Z-INT(T(K,J)/2)); 

610 IF T(R,C)=D THEN 640 1290 FOR V=1 TO T(K,J) 

620 NEXT C: NEXT R 1300 PRINT ">"; — 

640 FOR Q=R TO 1 STEP -1 1310 NEXT V 

645 1F T(Q,C)=0 THEN 660 1320 GOTO 1340 

650 IF T(Q,C)<D THEN 680 1330 PRINT TAB(Z);"&"; 

660 NEXT Q 1340 Z=Z+21 

670 GOTO 700 1350 NEXT J 

680 PRINT "CE DISQUE EST SOUS UN AUTRE. CHOISISSEZ UN AUTRE DISQUE." 1360 PRINT 

690 GOTO 480 1370 NEXT K 

700 E=0 1380 RETURN 

705 INPUT “A PLACER SUR QUELLE POINTE"; N 1390 PRINT: PRINT “MERCI POUR LA PARTIEI": PRINT: END 
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Train 





TRAIN est un programme qui utilise l'or- 
dinateur pour générer des problèmes de 
conditions initiales aléatoires afin d’ensei- 
gner les relations temps-vitesse-distance 
(distance = vitesse x temps). Vous entrez 
votre réponse et l'ordinateur la vérifie. 

TRAIN est simplement un exemple d’un 
problème de « production scolaire ». Le 
maximum de plaisir (et de bénéfice) pro- 
vient plus de « l'écriture » de tels pro- 
grammes que de celui, à l'opposé, de ré- 
solution des problèmes posés. Changez 
votre programme avec d’autres, vous ré- 
soudrez leur problème et laissez-les ré- 
soudre les vôtres. 

TRAIN, à l'origine, a été écrit dans FO- 
CAL par un étudiant pour que d’autres 
dans sa classe l'utilisent. Il nous a été sou- 
mis par Walt Koetke, Lexington High 
School, Lexington, Mass. 


TRAIN 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


EXERCICE SUR LA RELATION DISTANCE/TEMPS/VITESSE 


UNE VOITURE ALLANT À 69 KMH EFFECTUE UN CERTAIN TRAJET EN 
9 HEURES DE MOINS QU'UN TRAIN SE DEPLACANT À 41 KMH. 
COMBIEN DE TEMPS MET LA VOITURE? 3 

DESOLE. VOTRE REPONSE EST FAUSSE DE 339 POUR CENT. 

LA REPONSE EXACTE EST 13.1786 HEURES. 


UN AUTRE+ PROBLEME (Y OÙ N)? Y 


UNE VOITURE ALLANT À 80 KMH EFFECTUE UN CERTAIN TRAJET EN 
5 HEURES DE MOINS QU'UN TRAIN SE DEPLACANT À 55 KMH. 
COMBIEN DE TEMPS MET LA VOITURE? 12 

DESOLE. VOTRE REPONSE EST FAUSSE DE 8 POUR CENT. 
LA REPONSE EXACTE FST 11 HEURES. 


UN AUTRE PROBLEME (Y OÙ N)? Y 


UNE VOITURE ALLANT À 79 KMH EFFECTUE UN CERTAIN TRAJET EN 
10 HEURES DE MOINS QU'UN TRAIN SE DEPLACANT À 61 KMH. 
COMBIEN DE TEMPS MET LA VOITURE? 10 

DESOLE. VOTRE REPONSE EST FAUSSE DE 239 POUR CENT. 

LA REPONSE EXACTE EST 33.88R9 HEURES. 


UN AUTRE PROBLEME (Y OÙ N)? N 
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PRINT TAB(33);"TRAIN" 

PRINT TAB(15);:"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
PRINT: PRINT: PRINT 

PRINT "EXERCICE SUR LA RELATION DISTANCE/TEMPS/VITESSE": PRINT 
C=INT(40#*RND(1))+60 

D=INT(15*RND(1))+5 

T=INT(30*RND(1))+32 


PRINT * 
PRINT D;"HEURES DE MOINS QU'UN TRAIN SE DEPLACANT A":T 
PRINT “COMBIEN DE TEMPS MET LA VOITURE"; 

INPUT A 

V=D*T/(C-T) 

E=INT(ABS((V-A)*100/A)+.5) 

IF E>5 THEN 70 

PRINT "BIEN! REPONSE À MOINS DE";E;"POUR CENT." 

GOTO 80 

PRINT "DESOLE. VOTRE REPONSE EST FAUSSE DE";E;"POUR CENT." 
PRINT "LA REPONSE EXACTE EST"; V;"HEURES." 

PRINT 

PRINT “UN AUTRE PROBLEME (Y OU N)"; 

O INPUT A$ 

5 PRINT 

O IF AS="Y" THEN 10 

9 END 


UNE VOITURE ALLANT A";C;"KMH EFFECTUE UN CERTAIN TRAJET EN" 
> "KMH." 


Trap (Piège) 


C'est un autre jeu de la famille du 
« nombre mystérieux ». Dans Trap, l'ordi- 
nateur choisit un nombre au hasard entre 
1 et 100 (ou une autre limite possible par 
l'instruction de la ligne 20). 

Votre but est de trouver le nombre. A 
chaque essai, vous entrez 2 nombres 
pour essayer de piéger le nombre mysté- 
rieux entre vos deux nombres. 

L'ordinateur vous dira si ce nombre est 
plus grand ou plus petit que vos deux 
nombres ou si vous avez piégé le nombre. 

Pour gagner la partie, vous devez devi- 


ner le nombre mystérieux, en entrant la INSTRUCTIONS? N 
même valeur pour chacun de vos e 
PR A :SSAI NR 1 ? 25,50 

nombres. Vous avez droit à 6 essais (ce VOUS AVEZ PIEGF MON NOMBRE. 
qui peut être changé à la ligne ESSNE NN 217 26.40 
d'instruction 10, si vous modifiez la limite MON NOMRRE EST PLUS PETIT QUE VOS NOMBRES ‘PIEGES'. 
d'essai en ligne 20). ESSAI NR 3 ? 23,24 

Après avoir joué à Guess, Stars et Trap, MON NOMBRE EST PLUS GRAND QUE VOS NOMBRES ‘PIEGES'. 
comparez la stratégie d'estimation que FSSAI NR 4 ? 25,25 
vous aurez trouvé la meilleure pour cha- EN Er PTE 


cun de ces jeux. Voyez-vous des simila- RECORMIENCONSE 
rités ? Quelles sont les différences ? Pou- 
vez-vous écrire un nouveau jeu d'estima- 
tion avec une approche différente ? 
« Trap » a été suggéré par 10 années 
de jeu de « Guess ». || a originalement été 
programmé par Steve Ullman et modifié 


i 1 PRINT TAB(34);"TRAPA 
dans sa forme finale par Bob Albrecht de 2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
People's Computer Co. 3 PRINT: PRINT: PRINT 
10 G=6 
20 N=100 


30 REM-TRAP 

40 REM-STEVE ULLMAN, 1-8-72 

50 PRINT “INSTRUCTIONS"; 

60 INPUT 2$ 

70 IF LEFTS$S(Z$,1)<>"Y" THEN 180 

RO PRINT "JE PENSE À UN NOMBRE COMPRIS ENTRE 1 ET":N 

90 PRINT “ESSAYEZ DE TROUVER MON NOMBRE. À CHAQUE ESSAI," 

100 PRINT "ENTREZ 2 NOMBRES, POUR PIEGER MON NOMBRE" 

110 PRINT "ENTRE VOS 2 NOMBRES. JE VOUS DIRAI SI" 

120 PRINT "VOUS AVEZ PIEGE MON NOMBRE, SI MON NOMBRE" 

130 PRINT “EST PLUS GRAND QUE VOS 2 NOMBRES , OU AU CONTRAIRE" 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 140 PRINT "EST PLUS PETIT." 

150 PRINT “LORSQUE VOUS NE VOULEZ ESSAYER QU'UN NOMBRE UNIQUE, TAPEZ" 

160 PRINT "CET ESSAI COMME CHACUN DE VOS NOMBRES ‘"PIEGES'." 

170 PRINT "VOUS AVEZ";G;"ESSAIS POUR TROUVER MON NOMBRE." 


INSTRUCTIONS? Y 180 X=INT(N*RND(1))+1 
JE PENSF À UN NOMBRE COMPRIS ENTRE 1 ET 100 190 FOR Q=1 TO G 
ESSAYEZ DE TROUVER MON NOMBRE. À CHAQUE ESSAI, 200 PRINT 
ENTREZ 2 NOMRRES, POUR PIEGER MON NOMBRE 210 PRINT “ESSAI NR":0; 
ENTRE VOS 2 NOMBRES. JE VOUS DIRAI SI 220 INPUT À,B 
VOUS AVEZ PIEGFE MON NOMBRE, SI MON NOMBRE 230 IF A=B AND X=A THEN 400 
EST PLUS GRAND QUE VOS 2 NOMBRES , OU AU CONTRAIRE 240 IF À <= B THEN 260 
EST PLUS PETIT. 250 GOSUR 360 
LORSQUE VOUS NE VOULEZ ESSAYER QU'UN NOMBRE UNIQUE, TAPEZ 260 IF À <= X AND X <= B THEN 320 
CFT ESSAI COMME CHACUN DE VOS NOMBRES ‘PIEGES'. 270 IF X<A THEN 300 
VOUS AVEZ 6 ESSAIS POUR TROUVER MON NOMBRE. 280 PRINT “MON NOMBRE EST PLUS GRAND QUE VOS NOMBRES ‘"PIEGES"'." 
290 GOTO 330 
ESSAI NR 1 ? 25,75 300 PRINT “MON NOMBRE EST PLUS PETIT QUE VOS NOMBRES ‘PIEGES"." 
VOUS AVEZ PIFGE MON NOMBRE. 310 GOTO 330 
320 PRINT "VOUS AVEZ PIEGE MON NOMBRE." 
ESSAI NR 2 ? 30,60 330 NEXT Q 
MON NOMBRE EST PLUS PETIT QUE VOS NOMBRES ‘PIEGFS'. 340 PRINT “DESOLE, CELA FAIT";G;"ESSAIS. LE NOMBRE ETAIT";X 
350 GOTO 410 
ESSAI NR 3 ? 27,29 360 R=A 
MON NOMRRE EST PLUS PETIT QUE VOS NOMBRES ‘"PIFGES'. 370 A=B 
380 B=R 
ESSAI NR 4 ? 26,26 390 RETURN 
MON NOMBRE FST PLUS PETIT QUE VOS NOMBRES ‘"PIEGES'. 400 PRINT “VOUS L'AVEZ TROUVEII1" 
410 PRINT 
ESSAI NR 5 ? 25,25 420 PRINT “RECOMMENCONS ." 
VOUS L'AVEZ TROUVEI!1! 430 PRINT 
440 GOTO 180 
RECOMMENCONS . 450 END 
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23 Allumettes 





Dans le jeu des 23 allumettes, vous 
commencez avec 23 allumettes sur la 
table. À chaque tour, vous pouvez prendre 
1, 2 ou 3 allumettes. Vous alternez les 
mouvements avec l'ordinateur et celui qui 
doit prendre la dernière allumette perd. 

La manière la plus simple de combiner 
une stratégie gagnante est de commencer 
à la fin de la partie. Si vous désirez laisser 
la dernière allumette à votre adversaire, il 
vous faut avoir soit 4, 3 ou 2 de votre der- 
nier tour de manière à ce que vous puis- 
siez prendre 3, 2 ou 1 et laisser 1. Par 
conséquent, vous pouvez laisser votre 
adversaire avec 5 sur le suivant de son 
dernier tour et peu importe son mouve- 
ment alors, puisque vous pouvez retirer 4, 
8 ou 2. Travaillez cette tactique dès le dé- 
but de la partie et vous trouverez qu'elle 
peut être effectivement gagnée dès le pre- 
mier tour. Heureusement, l'ordinateur 
vous donne le premier tour, aussi si vous 
jouez prudemment, vous pouvez gagner. 

Après avoir maîtrisé ce jeu des 23 allu- 
mettes, changez-le en BATNUM et puis 
en NIM. 

Cette version a été écrite à l'origine 
par Bob Albrecht de la Compagnie Peo- 
ple's Computer. 


23 MATCHES 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


C'EST LE JEU CONNU SOUS LE NOM DES ‘23 ALLUMETTES". 


QUAND VIENT VOTRE TOUR, VOUS POUVEZ PRENDRE UNE, DEUX OU TROIS 
ALLUMETTES. LE BUT DU JEU EST DE FORCER L'ADVERSAIRE À PRENDRE 
LA DERNIERE ALLUMETTE. 


ON VA JOUER À PILE OU FACE POUR SAVOIR QUI COMMENCE. 
SI C'EST ‘FACE', CE SERA MOI. 


PILE | VOUS JOUEZ LE PREMIER 


COMBIEN VOULEZ VOUS EN ENLEVER ?1 
IL RESTE MAINTENANT 22 ALLUMETTES. 

C'EST À MOI | J'ENLEVE 3 ALLUMETTES 

LE NOMBRE D'ALLUMETTES EST MAINTENANT 19 


À VOUS -- VOUS POUVEZ PRENDRE 1,2,O0U 3 ALLUMETTES. 
COMBIEN VOULEZ VOUS EN ENLEVER 22 

IL RESTE MAINTENANT 17 ALLUMETTES. 

C'EST À MOI |! J'ENLFVE 2 ALLUMETTES 

LE NOMBRE D'ALLUMETTES EST MAINTENANT 15 


A VOUS -- VOUS POUVEZ PRENDRE 1,2,OU 3 ALLUMETTFS. 
COMBIEN VOULEZ VOUS EN ENLEVER RER 

IL RESTE MAINTENANT 13 ALLUMETTES. 

C'EST À MOI ! J'ENLEVE 2 ALLUMETTES 

LE NOMBRE D'ALLUMETTES EST MAINTENANT 11 


À VOUS -- VOUS POUVEZ PRENDRE 1,2,OU 3 ALLUMETTES. 
COMBIEN VOULEZ VOUS EN ENLEVER ?2 

IL RESTE MAINTENANT 9 ALLUMETTES. 

C'EST À MOI | J'ENLEVE 2 ALLUMETTES 

LE NOMBRE D'ALLUMETTES EST MAINTENANT 7 


A VOUS -- VOUS POUVEZ PRENDRE 1,2,OU 3 ALLUMETTES. 
COMBIEN VOULEZ VOUS EN ENLEVER ?2 

IL RESTE MAINTENANT 5 ALLUMETTES. 

C'EST À MOI | J'ENLEVE 2 ALLUMETTES 

LE NOMBRE D'ALLUMETTES EST MAINTENANT 3 


A VOUS -- VOUS POUVEZ PRENDRE 1,2,OU 3 ALLUMETTES. 
COMBIEN VOULEZ VOUS EN ENLEVER 22 
IL RESTE MAINTENANT 1 ALLUMETTES. 
VOUS AVEZ GAGNE, GRANDES OREILLES ! 
VOUS VOUS PRENEZ POUR UN GENIE 1! 
JOUONS ENCORE ET JE VOUS FERAI MARCHER À COTE DE VOS POMPES !1! 
Break in 560 
Ok 
RUN 
23 MATCHES 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


C'EST LE JEU CONNU SOUS LE NOM DES ‘23 ALLUMETTES"'. 


QUAND VIENT VOTRE TOUR, VOUS POUVEZ PRENDRE UNE, DEUX OU TROIS 
ALLUMETTES. LE BUT DU JEU EST DF FORCER L'ADVERSAIRE À PRENDRE 
LA DERNIFRE ALLUMETTE. 


ON VA JOUER À PILE OU FACE POUR SAVOIR QUI COMMENCE. 
SI C'EST ‘FACE'‘, CE SERA MOI. 


PILE ! VOUS JOUFZ LF PREMIER 


COMBIEN VOULEZ VOUS EN ENLEVER ? 5 
TRES DROLE ! GUIGNOLI 

VOUS VOULEZ JOUER AU JEU OU JOUER LES IMBECILFS ? 
CECI ETANT DIT, COMRIEN D'ALLUMETTES ? 3 

IL RESTE MAINTENANT 20 ALLUMETTES. 

C'EST À MOI ! J'ENLEVE 1 ALLUMETTES 

LE NOMBRE D'ALLUMETTFS EST MAINTENANT 19 


A VOUS -- VOUS POUVEZ PRENDRE 1,2,OU 3 ALLUMETTES. 
COMBRIEN VOULFZ VOUS EN ENLEVER ?1 

IL RESTE MAINTENANT 18 ALLUMETTES. 

C'EST À MOI ! J'ENLFVE 3 ALLUMETTES 

LE NOMBRE D'ALLUMETTES EST MAINTENANT 15 


À VOUS -- VOUS POUVEZ PRENDRE 1,2,OU 3 ALLUMETTES. 
COMBIEN VOULEZ VOUS EN ENLEVER ? 2 

IL RESTE MAINTENANT 13 ALLUMETTES. 

C'EST À MOI ! J'ENLEVE 2 ALLUMETTES 

LF NOMBRE D'ALLUMFTTES EST MAINTENANT 11 


A VOUS -- VOUS POUVEZ PRENDRE 1,2,OU 3 ALLUMETTES. 
COMBIEN VOULEZ VOUS EN ENLEVER 23. 

IL RESTE MAINTENANT 8 ALLUMETTES. 

C'EST À MOI ! J'ENLEVE 1 ALLUMFTTES 

LE NOMBRE D'ALLUMETTES EST MAINTENANT 7 


À VOUS -- VOUS POUVEZ PRENDRE 1,2,OU 3 ALLUMFTTES. 
COMBIEN VOULEZ VOUS EN ENLEVER 21 

IL RESTE MAINTENANT 6 ALLUMETTES. 

C'EST À MOI 1 J'ENLEVE 3 ALLUMETTES 

LE NOMBRE D'ALLUMETTES EST MAINTENANT 3 


À VOUS -- VOUS POUVEZ PRENDRE 1,2,OU 3 ALLUMETTES. 

COMBIFN VOULEZ VOUS EN ENLEVER 273. 

IL RESTE MAINTENANT OO ALLUMETTES. 

VOUS AVEZ GAGNE, GRANDES OREILLES ! 

VOUS VOUS PRENEZ POUR UN GENIE 1! 

JOUONS ENCORE ET JE VOUS FERAI MARCHER À COTE DE VOS POMPES 11 


20 PRINT TAB(31):"23 MATCHES" 

30 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
40 PRINT:PRINT:PRINT 

80 PRINT “ C'EST LE JEU CONNU SOUS LE NOM DES ‘23 ALLUMETTES'.": PRINT 
100 PRINT "QUAND VIENT VOTRE TOUR, VOUS POUVEZ PRENDRE UNE, DEUX OU TROIS" 
110 PRINT "ALLUMETTES. LE BUT DU JEU EST DE FORCER L'ADVERSAIRE A PRENDRE" 
120 PRINT “LA DERNIERE ALLUMETTE." 

130 PRINT 

140 PRINT “ON VA JOUER À PILE OU FACE POUR SAVOIR QUI COMMENCE."* 
150 PRINT “SI C'EST ‘FACE', CE SERA MOI." 

155 PRINT 

160 REM 

165 N = 23 

170 Q = INT(2*RNN(5)) 

180 IF Q = 1 THEN 210 

190 PRINT “PILE | VOUS JOUEZ LE PREMIER " 

195 PRINT 

200 GOTO 300 

210 PRINT “FACEI J'AI GAGNEI HAÏ HAI" 

220 PRINT “PREPAREZ VOUS À PERDRE, TETE DE LARD 11" 

230 PRINT 

250 PRINT “ JE PRENDS 2 ALLUMETTES" 

260 N = N -2 

270 PRINT “LE NOMBRE D'ALLUMETTES EST MAINTENANT® N 

280 PRINT 

290 PRINT “A VOUS -- VOUS POUVEZ PRENDRE 1,2,OU 3 ALLUMETTES." 
300 PRINT “COMRIEN VOULEZ VOUS EN ENLEVER", 

310 INPUT K 

320 IF K > 3 THEN 430 

330 IF K <= O THEN 430 

340 N = N - K 

350 PRINT “IL RESTE MAINTENANT “;N;"ALLUMETTES." 

351 IF N = 4 THEN 381 

352 IF N = 3 THEN 383 

353 IF N = 2 THEN 385 

360 IF N <= 1 THEN 530 

370 Z = 4 - K 

372 GOTO 390 

380 PRINT 

381 Z = 3 

382 GOTO 390 

383 Z = 2 

384 GOTO 390 

3A5 Z = 1 

390 PRINT "C'FST À MOI ! J'ENLEVE" Z “ALLUMETTES" 

400 N=N -2Z 

410 IF N < = 1 THEN 470 

420 GOTO 270 

430 PRINT "TRES DROLE 1 GUIGNOLI" 

440 PRINT "VOUS VOULEZ JOUER AU JEU OU JOUER LES IMBECILES ?" 
450 PRINT “CECI FETANT DIT, COMRIEN D'ALLUMETTES", 

460 GOTO 310 

470 PRINT 

4RO PRINT"PAUVRE RALOT ! VOUS AVEZ PRIS LA DERNIERE ! J'AI GAGNE 11" 
490 PRINT "HA ! HAL JE VOUS AI BATTU 111" 

500 PRINT 

510 PRINT “AU REVOIR LE PERDANTI" 

520 GOTO 560 

530 PRINT “VOUS AVEZ GAGNE, GRANDES OREILLES 1" 

540 PRINT "VOUS VOUS PRENEZ POUR UN GENIE !" 

550 PRINT “JOUONS ENCORE ET JE VOUS FERAI MARCHER À COTE DE VOS POMPES 11" 
560 STOP 

570 END 
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War (La bataille) 





Ce programme joue au jeu de cartes de 
la Bataille. À la bataille le jeu de cartes est 
mélangé, puis deux cartes sont distri- 
buées l'une après l’autre à chacun des 
joueurs. Les joueurs comparent leurs 
cartes et la plus forte (numériquement) 
gagne. Dans le cas d’une égalité, per- 
sonne ne gagne. La partie se termine lors- 
que le paquet de 52 cartes est épuisé ou 
lorsque vous décidez d'arrêter la partie. 

L'ordinateur distribue les cartes par 
couleur et nombre, comme K-7 pour le 
7 de carreau. 


WAR 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


JEU DE CARTES DE LA BATAILLE. LES CARTES SONT DONNEES PAR COULEUR-NR 


COMME K-7 POUR 7 DE CARREAU, C-3 POUR 3 DE COEUR. 
VOULEZ VOUS DES EXPLICATIONS? 

Y 

L'ORDINATEUR VOUS DONNE ET SE DONNE UNE ‘CARTE’. 


D'ARRETER OU LORSQUE LE PAQUET EST EPUISE. 


VOUS: P-5 ORDINATEUR: K-5 
EGALITE. LE SCORE NE CHANGE PAS. 
DESIREZ VOUS CONTINUER? Y 


VOUS: P-6 ORDINATEUR: T-8 


L'ORDINATEUR GAGNEII11 VOUS AVEZ O L'ORDINATEUR A 1 


DESIREZ VOUS CONTINUER? 


VOUS: K-2 ORDINATEUR: C-D 


L'ORDINATEUR GAGNEIII VOUS AVEZ 0 L'ORDINATEUR À 2 


DESIREZ VOUS CONTINUER? Y 


VOUS: C-8 ORDINATEUR: T-6 
VOUS GAGNEZ. VOUS AVEZ 1 L'ORDINATEUR À 2 
DESIREZ VOUS CONTINUER? Y 


VOUS: K-A ORDINATEUR: T-R 
VOUS GAGNEZ. VOUS AVEZ 2 L'ORDINATEUR À 2 
DESIREZ VOUS CONTINUER? Y 


VOUS: C-Vv ORDINATEUR: P-2 
VOUS GAGNEZ. VOUS AVEZ 3 L'ORDINATEUR À 2 
DESIREZ VOUS CONTINUER? Y 


VOUS: T-A ORDINATEUR: C-A 
EGALITE. LE SCORE NE CHANGE PAS. 
DESIREZ VOUS CONTINUER? Y 


VOUS: T-2 ORDINATEUR: T-10 


L'ORDINATEUR GAGNEI11 VOUS AVEZ 3 L'ORDINATEUR À 3 


DESIREZ VOUS CONTINUER? Y 


VOUS: P-9 ORDINATEUR: T-D 


L'ORDINATEUR GAGNEI11 VOUS AVEZ 3 L'ORDINATEUR À 4 


DESIREZ VOUS CONTINUER? Y 


VOUS: K-R ORDINATEUR: P-R 
EGALITE. LE SCORE NE CHANGE PAS. 
DESIREZ VOUS CONTINUER? Y 


VOUS: C-R ORDINATEUR: T-9 

VOUS GAGNEZ. VOUS AVEZ 4 L'ORDINATEUR À 4 
DESIREZ VOUS CONTINUER? N 

MERCI D'AVOIR JOUE. C'ETAIT AMUSANT. 

Ok 


LA CARTE LA PLUS 
FORTE (NUMERIQUEMENT) GAGNE. LA PARTIE PREND FIN SI VOUS DECIDEZ 


10 PRINT TAB(33);"WAR" 
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


30 PRINT: PRINT: PRINT 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
295 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
619 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
999 


PRINT"JEU DE CARTES DE LA BATAILLE. LES CARTES SONT DONNEES PAR COULEUR-NR* 
PRINT “COMME K-7 POUR 7 DE CARREAU, C-3 POUR 3 DE COEUR. ":; 
PRINT "VOULEZ VOUS DES EXPLICATIONS"; 

INPUT BS 

IF B$="N" THEN 210 

IF B$="Y" THEN 180 

PRINT “Y OU N, S'IL VOUS PLAIT. "; 

GOTO 120 

PRINT “L'ORDINATEUR VOUS DONNE ET SE DONNE UNE ‘CARTE'. LA CARTE LA PLUS* 
PRINT “FORTE(NUMERIQUEMENT) GAGNE. LA PARTIE PREND FIN SI VOUS DECIDEZ" 
PRINT “D'ARRETER OU LORSQUE LE PAQUET EST EPUISE." 

PRINT 

PRINT 

DIM A$(52),L(54) 

FOR I=] TO 52 

READ AS$(1) 

NEXT 1 

REM 

FOR J=1l TO 52 

LET L(J)=INT(52#*RND(1))+1 

IF J=] THEN 350 

FOR K=] TO J-] 

IF L(K)<>L(J) THEN 340 

REM 

GOTO 290 

NEXT K 

NEXT J 

P=P+] 

Mi=L(P) 

P=P+1 

M2=L(P) 


PRINT 


PRINT “VOUS: ";AS(M1),"ORDINATEUR: “:A$(M2) 
N1=INT((M1-.5)/4) 

N2=INT((M2-.5)/4) 

IF N1>=N2 THEN 490 

Al=A141 

PRINT “L'ORDINATEUR GAGNEII1 VOUS AVEZ";Bl;" L'ORDINATEUR A";Al 
GOTO 540 

IF Nl=N2 THEN 530 

Bl=Bl4+1 

PRINT “VOUS GAGNEZ. VOUS AVEZ";Bl;" L'ORDINATEUR A";Al 
GOTO 540 

PRINT "EGALITE. LE SCORE NE CHANGE PAS." 

IF L(P+1)=0 THEN 610 

PRINT "DESIREZ VOUS CONTINUER"; 

INPUT VS 

IF VS="Y" THEN 360 

IF VS="N" THEN 650 

PRINT “Y OU N, S'IL VOUS PLAIT. "; 

GOTO 540 

PRINT 

PRINT 

PRINT “IL N'Y À PLUS DE CARTES. SCORE FINAL: VOUS--";Bl; 
PRINT “; ORDINATEUR--";Al 

PRINT “MERCI D'AVOIR JOUE. C'ETAIT AMUSANT." 

DATA "P-2","C-2","T-2","K-2","p-3","C-3","T-3","K-3" 
DATA “P-4","C-4","T-4","K-4","p-5","C-5","T-5","K-5" 
DATA "P-6","C-6","T-6","K-6","P-7","C-7","T-7","K-7" 
DATA "P-B","C-B","T-8","K-8","P-9","C-9","T-9","K-9" 
DATA “P-10","C-10","T-10","K-10","P-V", "CV", "TV", "KV" 
DATA "P-D","C-D","T-D","K-D","P-R","C-R","T-R","K-R" 
DATA “P-A","C-A","T-A","K-A" 

END 
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Weekday 





(Le jour de la semaine) 


Ce programme vous*permet d'obtenir 
des renseignements concernant votre 
date de naissance (ou tout autre jour vous 
intéressant). Il n'est pas programmé pour 
donner de l'information concernant des 
gens nés avant l’utilisation du type actuel 
de calendrier, c'est-à-dire l'année 1582. 

Vous rentrez simplement la date du jour 
dans la forme — mois, jour, année et votre 
date de naissance de la même manière. 
L'ordinateur vous dit alors le jour de la se- 
maine de votre date de naissance, votre 
âge, et combien de temps vous avez 
passé à dormir, travailler et vous reposer. 

Ce programme est une adaptation d'un 
programme de temps partagé GE par Tom 
Kloos au Musée des Sciences et de l'In- 
dustrie d'Oregon. 


WEEKDAY 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


WEEKDAY VOUS PERMET D'AVOIR PAR ORDINATEUR DES RENSEIGNEMENTS 


CONCERNANT UNE DATE QUI VOUS INTERESSE. 


ENTREZ LA DATE DU JOUR SOUS LA FORME: 3,24,1978 ? 1,7,1978 


ENTREZ LA DATE DE NAISSANCE (OU TOUTE AUTRE DATE INTERESSANTE)? 12,2,1999 


12 / 2 / 1999 SERA UN JEUDI 


WEEKDAY 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


WEEKDAY VOUS PERMET D'AVOIR PAR ORDINATEUR DES RENSEIGNEMENTS 


CONCERNANT UNE DATE QUI VOUS INTERESSE. 


ENTREZ LA DATE DU JOUR SOUS LA FORME: 3,24,1978 


? 12,1,1977 


10 PRINT TAB(32):"WEEKDAY" 

20 PRINT TAR(15):"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT:PRINT:PRINT 

100 PRINT “WEEKDAY VOUS PERMET D'AVOIR PAR ORDINATEUR DES RENSEIGNEMENTS" 
110 PRINT“CONCERNANT UNE DATE QUI VOUS INTERESSE." 

120 PRINT 

130 PRINT “ENTRFZ LA DATE DU JOUR SOUS LA FORME: 3,24,1978 "; 
140 INPUT M1,D1,Y1 

150 REM CF PROGRAMME DETERMINE LE JOUR DE LA SEMAINE POUR LES DATES 
160 REM POSTERIEURES À 1982 

170 DEF FNA(A)=INT(A/4) 

180 DIM T(12) 

190 DEF FNB(A)=INT(A/7) 

200 REM LECTURE DES VALEURS INITIALES DES MOIS. 

210 FOR I= 1 TO 12 

220 READ T(1) 

230 NEXT 1! 

240 PRINT"FNTREZ LA DATE DE NAISSANCF (OU TOUTE AUTRE DATE INTERESSANTE) “; 
250 INPUT M,D,Y 

260 PRINT 

270 LET 11 = INT((Y-1500)/100) 

280 REM VERIFIER DATE NON-ANTERIEURE À CALENDRIER EN VIGUEUR. 
290 1F Y-1582 <O THEN 1300 

300 LET À = 11*5+(11+3)/4 

310 LET 12=INT(A-FNB(A)*7) 

320 LET Y2=INT(Y/100) 

330 LET Y3 =INT(Y-Y2*100) 

340 LET À =Y3/44Y3+D+T(M)+12 

350 LET B=INT(A-FNB(A)*7)+1 

360 IF M > 2 THEN 470 

370 IF Y3 = O THEN 440 

380 LET TI=INT(Y-FNA(Y)*4) 

390 1F T1 <> O THEN 470 

400 IF B<>0 THEN 420 

410 LET R=6 

420 LET B = B-] 

430 GOTO 470 

440 LEFT À = I1-] 

450 LFT TI=INT(A-FNA(A)*4) 

460 IF T1 = O THEN 400 

470 IF B <>O THEN 490 

480 LET R = 7 

490 IF (Y1*12+M1)*314D1<(Y*124M)*314D THEN 550 

500 1F (Y1*124M1)#*314D1=(Y*12+M)*314D THEN 530 

510 PRINT M;"/";D;"/";Y;" ETAIT UN ":; 

520 GOTO 570 

530 PRINT M;"/";D;"/";Y:" EST UN "; 

540 GOTO 570 

550 PRINT M;"/";D;"/";Y;:" SERA UN "; 

560 RFM AFFICHAGE DU JOUR DE LA SEMAINE CORRESPONDANT À LA DATE. 
570 1F B <>] THEN 590 

580 PRINT "DIMANCHE" 

590 IF R<>2 THEN 610 

600 PRINT “LUNDI " 

610 IF B<>3 THEN 630 

620 PRINT "MARDI" 

630 IF B<>4 THEN 650 

640 PRINT "MERCREDI" 

650 IF B<>5 THEN 670 

660 PRINT "JEUDI" 

670 IF B<>6 THEN 690 

680 GOTO 1250 

690 IF R<>7 THEN 710 

700 PRINT "SAMEDI" 

710 IF (Y1*124M1)*314D1=(Y*12+M)*314+D THEN 1120 


ENTREZ LA DATE DE NAISSANCE (OU TOUTE AUTRE DATE INTERESSANTE)? 4,12,1952 720 LFT 15=Yl1-Y 


4 / 12 / 1952 ETAIT UN SAMEDI 


ANNEES MOIS 
AGE LORS DE L'ANNIVERSAIRE 25 7 
VOUS AVEZ DORMI 8 11 
VOUS AVEZ MANGE 4 4 
VOUS AVEZ TRAVAILLE/JOUE 5 10 
VOUS VOUS ETES REPOSE 6 4 


*VOUS POURREZ PRENDRE VOTRE RETRAITE EN 2017 * 


730 PRINT 

740 LFT 16=Ml-M 

750 LET 17=D1-D 

760 IF 17>=0 THEN 790 
770 LET 16= 16-1 

780 LET 17=17+30 

790 IF 16>=0 THEN 820 
800 LET 15=15-1 

810 LET 16=16+12 

820 IF 15<0 THEN 1310 
830 IF 17 <> O THEN 850 
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.. 
os... 
CPR CCE EEE 





1210 PRINT 
835 IF 16 <> O THEN 850 1220 PRINT 
840 PRINT"#*#**JOYEUX ANNIVERSAIRE*#**" 1230 PRINT 
850 PRINT “ “," “,"ANNEES", "MOIS", "JOURS" 1240 END 
860 PRINT “AGE LORS DE L'ANNIVERSAIRE ",15,16,17 1250 IF D=13 THEN 1280 
870 LET A8 = (15*365)+(16*30)+17+INT(16/2) 1260 PRINT “VENDREDI * 
880 LET K5 = 15 1270 GOTO 710 
890 LET K6 = 16 1280 PRINT “VENDREDI TREIZE---PRUDENCE" 
900 LET K7 = 17 1290 GOTO 710 & 
910 REM CALCUL DE LA DATE DFE DEPART À LA RETRAITE. 1300 PRINT “NON PREVU POUR INDIQUER LES JOURS DE LA SEMAINE AVANT MDLXXXII. * 
920 LET FE = Y+65 1310 GOTO 1]40 
930 REM CALCULER LE TEMPS PASSE DANS LES FONCTIONS SUIVANTES. 1320 REM TABLE DE VALEURS MENSUELLES UTILISEES DANS LES CALCULS. 
940 LET F = .35 1330 DATA O0, 3, 3, 6, 1, 4, 6, 2, 5, O, 3, 5 
950 PRINT “VOUS AVEZ DORMI “, 1340 REM IL S'AGIT DE LA DATE DU JOUR UTILISEE DANS LES CACULS. 
960 GOSUB 1370 1350 REM IL S'AGIT DE LA DATE SUR LAQUELLE ON FAIT DES CALCULS. 
970 LET F = .17 1360 REM CALCULER LE TEMPS EN ANNEES, MOIS, ET JOURS 
980 PRINT “VOUS AVEZ MANGE ‘, 1370 LET K1=INT(F*A8) 
990 GOSUR 1370 1380 LET 15 = INT(K1/365) 
1000 LET F = .23 1390 LET K1 = K1- (15*365) 
1010 IF K5 > 3 THEN 1040 1400 LET 16 = INT(K1/30) 
1020 PRINT "VOUS AVEZ JOUE", 1410 LET 17 = K1 -(16*30) 
1030 GOTO 1080 1420 LET K5 = K5-15 
1040 IF K5 > 9 THEN 1070 1430 LET K6 =K6-16 
1050 PRINT "VOUS AVEZ JOUE/ETUDIE", 1440 LET K7 = K7-17 
1060 GOTO 1080 1450 IF K7>=0 THEN 1480 
1070 PRINT "VOUS AVEZ TRAVAILLE/JOUE", 1460 LET K7=K7+30 
1080 GOSUB 1370 1470 LET K6=K6-] 
1085 GOTO 1530 1480 IF K6>O THEN 1510 
1090 PRINT “VOUS VOUS ETES REPOSE ",K5,K6,K7 1490 LET K6=K6+12 
1100 PRINT 1500 LET K5=K5-1 
1110 PRINT “ “,"#*VOUS POURREZ PRENDRE VOTRE RETRAITE EN";E;"*"* 1510 PRINT 15,16,17 
1120 PRINT 1520 RETURN 
1140 PRINT 1530 IF K6=12 THEN 1550 
1150 PRINT 1540 GOTO 1090 
1160 PRINT 1550 LET K5=K5+]1 
1170 PRINT 1560 LET K6=0 
1180 PRINT 1570 GOTO 1090 
1190 PRINT 1580 REM 
1200 PRINT 1590 END 
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Word (Le mot) 





WORD est une combinaison du jeu de 
HANGMAN et de celui des BAGELS. 
Dans ce jeu, le joueur doit deviner un mot 
avec des indications des positions de 
lettres fournies par l'ordinateur. Cepen- 
dant au lieu de deviner une lettre à la fois, 
dans WORD, vous devinez un mot entier 
(un groupe de cinq lettres, tel que AB- 
CDE). 

L'ordinateur vous dira si des lettres que 
vous avez devinées sont dans le mot mys- 
térieux et si certaines d'entre elles sont à 
la position correcte. Avec ces indications, 
vous pouvez essayer de deviner jusqu'à 
ce que vous trouviez le mot ou si vous n'y 
parvenez pas, entrez un « ? » et l’ordina- 
teur vous donnera le mot mystérieux. 

Vous pouvez changer les mots des ins- 
tructions DATA en ligne 512 et 513, mais 
ils doivent obligatoirement être de 
5 lettres. 

L'auteur de ce programme est Charles 
Reid de Lexington High School, Lexing- 
ton, Massachusetts. 


WORD 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


JE PENSE À UN MOT -- VOUS LE CHERCHEZ. JE VOUS DONNERAI DFS 
INDICATIONS POUR VOUS AIDER. BONNE CHANCE!! 


VOUS COMMENCEZ UNE PARTIE NOUVELLE... 
TROUVEZ UN MOT DE INQ LETTRES? AEIOU 
IL Y AVAIT 2 CORRESPONDANCES, LES LETTRES COMMUNES ETANT...OI 
POUR LES LETTRES EXACTES, VOUS CONNAISSEZ 





TROUVEZ UN MOT DE CINQ LETTRES? BOISE 
IL Y AVAIT 3 CORRESPONDANCES, -LFS LETTRES COMMUNES ETANT.. 
POUR LES LETTRES EXACTES, VOUS CONNAISSEZ 


-OIS 





TROUVEZ UN MOT DE CINQ LETTRES? CHOIX 
IL Y AVAIT 3 CORRESPONDANCFS, LES LETTRES COMMUNES ETANT...COI 
POUR LES LETTRES FXACTES, VOUS CONNAISSEZ..... ss. CO-I- 


TROUVEZ UN MOT DE CINQ LETTRES? COSIG 
IL Y AVAIT 4 CORRESPONDANCES, LEFS LETTRES COMMUNES FTANT...COIS 
POUR LES LETTRES EXACTES, VOUS CONNAISSEZ................CO-1- 
TROUVEZ UN MOT DE CINQ LETTRES? COLIS 

IL Y AVAIT 5 CORRESPONDANCES, LES LETTRES COMMUNES ETANT...COLIS 
POUR LES LETTRES EXACTES, VOUS CONNAISSEZ.... 
VOUS AVF7Z TROUVE LE MOT. ET CFLA EN 5 ESSAIS! 


DESIREZ VOUS REJOUER? Y 


VOUS COMMENCEZ UNE PARTIF NOUVELLE... 
TROUVEZ UN MOT NE CINQ LETTRES? ABCDE 
IL Y AVAIT 2 CORRESPONDANCES, LES LETTRES COMMUNES FTANT...AN 
POUR LES LETTRES EXACTES, VOUS CONNAISSEZ......... no 


TROUVEZ UN MOT DE CINQ LETTRES? ADMIS 
IL Y AVAIT 3 CORRESPONDANCES, LES LETTRES COMMUNES ETANT...ADI 
POUR LES LETTRES EXACTES, VOUS CONNAISSEZ.. 


css 


TROUVEZ UN MOT DE CINQ LFTTRES? RADIS 
IL Y AVAIT 4 CORRESPONDANCES, LES LETTRES COMMUNES ETANT...ADIR 
POUR LES LETTRES EXACTES, VOUS CONNAISSEZ................-AD1- 


TROUVEZ UN MOT DF CINQ LETTRES? RADIN 
IL Y AVAIT 5 CORRESPONDANCES, LES LETTRES COMMUNES ETANT...NADIR 
POUR LES LETTRES EXACTES, VOUS CONNAISSEZ................-AD1- 


TROUVEZ UN MOT DE CINQ LETTRES? NADIR 

IL Y AVAIT 5 CORRESPONDANCES, LES LETTRES COMMUNES ETANT...NADIR 
POUR LES LETTRES EXACTES, VOUS CONNAISSEZ................NADIR 
VOUS AVEZ TROUVE LE MOT. ET CELA EN 5 ESSAIS! 


DESIREZ VOUS REJOUER? N 
” Ok 


2 P 
3 P 
4 P 
sn 
10 

15 

20 

30 

35 

40 

50 

60 

70 

80 

90 

95 

100 
110 
120 
130 
140 
144 
146 
150 
160 
170 
172 
173 
175 
180 
190 
200 
205 
210 
220 
230 
231 
232 
233 
240 
250 
260 
265 
270 
272 





280 
285 
286 
287 
288 
289 
290 
300 
310 
320 
400 
410 
500 
510 
520 
530 
540 
999 


RINT TAR(33); "WORD" 
RINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
RINT: PRINT: PRINT 


1M S(7),A(7),L(7),D(7),P(7) 

PRINT "JE PENSE À UN MOT -- VOUS LE CHERCHEZ. JE VOUS DONNERAI DES" 
PRINT “INDI ATIONS POUR VOUS AIDER. BONNF CHANCEIlI": PRINT: PRINT 
REM 

PRINT: PRINT: PRINT “VOUS COMMENCEZ UNE PARTIE NOUVELLE..." 

RESTORE 


READ N 
C=INT(RND(1)*N+1) 
FOR 1=1 TO C 
READ S$ 
NEXT 1! 
G=0 
S(0)=LEN(SS) 

FOR I=1 TO LEN(S$): S(I1)=ASC(MID$S(S$,1,1)): NEXT I 

OR I=1 TO 5 

A(I)=45 

NEXT I! 

FOR J=] TO 5 

P(J)=0 

NEXT J 

PRINT “TROUVEZ UN MOT DE CINQ LETTRES"; 

INPUT LS 

G=G+1 

IF SS=GS THEN 500 

FOR I=1 TO 7: P(I1)=0: NEXT I 

L(O)=LEN(LS) 

FOR I=1 TO LEN(LS): L(I)=ASC(MIDS(LS,1,1)): NEXT 1 
IF L(1)=63 THEN 300 

IF L(O)<>5 THEN 400 

M=0: Q=1 

FOR I=1 TO 5 

FOR J=] TO 5 

IF S(1)<>L(J) THEN 260 

P(Q)=L(J) 

0=0+1 

1F 1<>J THEN 250 

A(J)=L1(J) 

M=M+1 

NEXT J 

NEXT ! 

A(O)=5 

P(O)=M 
FOR I=1 TO A(O): AS=AS$+CHRS(A(I)): NEXT 1 
FOR 1=]1 TO P(Q): PS=PS4+CHRS(P(I1)): NEXT I 
PRINT “IL Y AVAIT";M;"CORRESPONDANCES, LES LETTRES COMMUNES ETANT...";PS 
PRINT "POUR LES LETTRES EXACTES, VOUS CONNAISSEZ...... 





IF AS=SS THEN 500 

IF M>1 THEN 289 

PRINT: PRINT "SI VOUS ARBANNONNEZ, TAPEZ ‘'?' À VOTRE PROCHAIN COUP." 
PRINT 

GOTO 150 

SS="": FOR I=1 TO 7: SS=SS4CHRS(S(I)): NEXT I 


PRINT "LE MOT SECRET EST ":SS$S: 
GOTO 30 

PRINT “VOUS DEVEZ TROUVER UN MOT DF 5 LETTRS. 
PRINT: G=G-1: GOTO 150 

PRINT “VOUS AVEZ TROUVE LF MOT. 
“"DESIREZ VOUS REJOUER":Q$ 
“ THEN 30 

DATA 12,"LAPIN","ATOUT","BALLE","COLIS","EFFET", “MORDIU","NADIR" 
DATA “OKAPI","CHAMP","STASE","LASER", “VALET" 

END 


PRINT 
RECOMMENCEZ ." 


ET CFLA EN";G;"ESSAISI": PRINT 
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Index par catégories de jeux 


Premiers jeux 


Buzzword 36 
Hello 78 
Name 108 
Poetry (Poésie) 120 
Rock, Scissors, Paper 

(Pierre, Ciseaux, Papier) 129 
Russian Roulette 

(Roulette russe) 133 
Weekday (Le jour de la semaine) 169 
Education 
Animal 4 
Change (Faites l'appoint) 39 
Chemist (Le chimiste) 42 
Chief (Le chef) 43 
Civil War 

(Guerre de Sécession) 46 
Fur Trader 

(Le marchand de peaux) 64 
Hammurabi 74 
Hangman (Le pendu) 76 
Kinema 87 
King (Premier ministre) 88 
Literature Quiz (Questionnaire 

Sur la littérature enfantine) 96 
Stock Market 

(Jeu de la Bourse) 146 
Synonym (Jeu des synonymes) 154 
Train 165 
Courbes et images 
Amazing (Le labyrinthe) 3 
Banner (La bannière) 10 
Bounce (Rebond) 25 
Bug (L'insecte) 30 
Bunny 35 
Calendar (Calendrier) 37 
Diamond (Diamant) 56 
Life (Le jeu de la vie) 92 
Life for Two 94 
Love 97 
Sine Wave 138 
3-D Plot 157 


Nombre ou lettre à deviner 
Guess (Devinez) 

Hi-Lo (Haut-Bas) 

Letter (Jeu de la lettre) 

Number (Jeu des nombres) 
Stars (Jeu des étoiles) 

Trap (Piège) 


Jeux de mémoire 


Batnum 
(La bataille des nombres) 
Even Wins 
Nim 
23 Allumettes 


Manipulation de matrice 


Battle (La bataille navale) 
Bombardment (Bombardement) 
Depth Charge 

(Grenade sous-marine) 
Hurkle 
Mugwump 
Pizza 
Salvo 


Logique 

Awari 

Bagels 

Chomp (La part du gâteau) 
Cube (Le cube) 

Digits (Le jeu des nombres) 
Flip Flop 

Hexapawn 

Hight 1-Q (Le solitaire) 
Master Mind 

Nicomachus 

One Check (Le damier solitaire) 
Queen (La reine) 

Reverse (Jeu d'adresse) 
8-D Tic-Tac-Toe 
Tic-Tac-Toe 

Tower (Tours de Hanoi) 
Word (Le mot) 


173 


71 
81 
91 
113 
145 
166 


14 
60 
110 
167 


Espace 
Lunar-LEM-Rocket 
Orbit (Orbite) 
Splat 

Super Star Trek 
Target (La cible) 


Simulation de sports 


Basketball 

Bowling 

Boxing (La boxe) 
Bullfight (La corrida) 
Bullseye (Dans le mille) 
Golf 

Slalom 


Paris et jeux d'argent 
Blackjack 

Craps 

Dice (Les dés) 

Horserace (Course de chevaux) 
Poker 

Roulette 

Slots 


Jeux de cartes 
Acey Ducey 

Checkers (Les dames) 
Gomoko 

War (La bataille) 


Combat 

Bombs Away 
(Lancement de bombes) 

Combat 

Gunner (Le tireur d'élite) 


116 
143 
149 
155 


141 


24 
73 
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VIC 20 


PROGRAMMEZ EN BASIC SUR VIC 20 par G. 0. Hamann, 
2 tomes, Réf. 244-245 


JEUX EN BASIC SUR VIC 20 par Auasrair Gourar, 
96 pages, Réf. 277 
ZX 81 
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208 pages, Réf. 256 
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192 pages, Réf. 304 
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204 pages, Réf. 285 
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96 pages, Réf. 275 


MICRO-PROCESSEURS 
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618 pages, Réf. 220 
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304 pages, Réf. 274 


PROGRAMMATION DU 6502 par Roonay Zaks, 
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JEUX 
D'ORDINATEUR ER 


BASIC 


version microordinateur 


Pour un, deux ou plusieurs joueurs : un recueil de 100 
jeux imaginatifs et créatifs : Basketball, Craps, Gomoko, 
Blackjack, Even Wins, Digits, Bombardement, Course de 
chevaux... 


Faites comme si vous atterrissiez sur la lune, jouez à la 
Bourse, écrivez des poèmes, dessinez.…. 


les meilleurs jeux d’ordinateur 


Tous les jeux sont accompagnés de programmes 
progressifs ainsi que d'instructions très claires. Ils sont écrits 
en Microsoft Basic, Rev. 5.0; un tableau de conversion en 
Basic vous permettra de les adapter. 


L'auteur, Lavio H. An, est un spécialiste éminent en 
informatique, passionné par les jeux d'ordinateur aussi bien 
sérieux que distrayants. 


Il est le fondateur et le rédacteur en chef de Creative 
Computing. 


ISBN  2-902414-46-3 
246 03/84 98F 
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